object PaintForm: TPaintForm
  Left = 998
  Height = 565
  Top = 124
  Width = 515
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'BASIC'
  ClientHeight = 545
  ClientWidth = 515
  DefaultMonitor = dmMainForm
  Font.Height = -13
  Font.Name = 'Andale Mono'
  Font.Pitch = fpFixed
  Menu = MainMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  LCLVersion = '1.8.4.0'
  Visible = True
  object PaintBox1: TPaintBox
    Left = 0
    Height = 517
    Top = 0
    Width = 515
    Font.Height = -13
    Font.Name = 'Andale Mono'
    ParentFont = False
    PopupMenu = PopupMenu1
    OnClick = PaintBox1Click
    OnMouseDown = PaintBox1MouseDown
    OnMouseMove = PaintBox1MouseMove
    OnMouseUp = PaintBox1MouseUp
    OnPaint = PaintBox1Paint
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 24
    Top = 521
    Width = 515
    Align = alNone
    Anchors = [akLeft, akRight, akBottom]
    Panels = <    
      item
        Width = 145
      end    
      item
        Width = 145
      end    
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    left = 12
    top = 4
    object File1: TMenuItem
      Caption = 'ファイル'
      HelpContext = 18
      object Open1: TMenuItem
        Caption = '読み込み'
        OnClick = Open1Click
      end
      object Close1: TMenuItem
        Caption = '閉じる'
        OnClick = Close1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Save1: TMenuItem
        Caption = '保存'
        HelpContext = 18
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = '名前を付けて保存'
        HelpContext = 18
        OnClick = SaveAs1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '印刷'
        OnClick = Print1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '終了'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '編集'
      GroupIndex = 2
      HelpContext = 20
      object Copy1: TMenuItem
        Caption = 'コピー'
        HelpContext = 90
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '貼り付け'
        OnClick = Paste1Click
      end
    end
    object Run1: TMenuItem
      Caption = '実行'
      GroupIndex = 2
      HelpContext = 61
      object Break1: TMenuItem
        Caption = '中断'
        Enabled = False
        ShortCut = 16450
        OnClick = Break1Click
      end
    end
    object Show1: TMenuItem
      Caption = 'ウィンドウ'
      GroupIndex = 2
      object E1: TMenuItem
        Caption = 'プログラム画面'
        OnClick = E1Click
      end
    end
    object Option1: TMenuItem
      Caption = 'オプション'
      GroupIndex = 2
      HelpContext = 50
      object Size1: TMenuItem
        Caption = 'サイズ'
        HelpContext = 51
        OnClick = Size1Click
      end
      object Color1: TMenuItem
        Caption = '色指標'
        HelpContext = 55
        OnClick = Color1Click
      end
      object Font1: TMenuItem
        Caption = 'フォント'
        HelpContext = 57
        OnClick = Font1Click
      end
      object RunOption1: TMenuItem
        Caption = '実行前に消去'
        HelpContext = 59
        object K1: TMenuItem
          Caption = 'する'
          Checked = True
          OnClick = K1Click
        end
        object K2: TMenuItem
          Caption = 'しない'
          OnClick = K2Click
        end
      end
    end
  end
  object SaveDialog1: TSaveDialog
    Title = '(&N):'
    DefaultExt = '.BMP'
    Filter = 'BitMap|*.bmp|PNG|*.png|JPEG|*.jpg|TIFF|*.tif|X BitMap|*.xbm'
    FilterIndex = 0
    Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofEnableSizing, ofViewDetail]
    left = 208
    top = 88
  end
  object FontDialog1: TFontDialog
    Font.CharSet = SHIFTJIS_CHARSET
    Font.Height = 17
    Font.Name = 'System'
    Font.Pitch = fpVariable
    MinFontSize = 0
    MaxFontSize = 0
    left = 200
    top = 16
  end
  object OpenDialog1: TOpenDialog
    FilterIndex = 0
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail]
    left = 88
    top = 48
  end
  object PopupMenu1: TPopupMenu
    left = 329
    top = 127
    object Copy2: TMenuItem
      Caption = 'Copy'
      OnClick = Copy2Click
    end
  end
end
