object PaintForm: TPaintForm
  Left = 237
  Height = 564
  Top = 141
  Width = 515
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'BASIC'
  ClientHeight = 564
  ClientWidth = 515
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Courier New'
  Font.Pitch = fpFixed
  Font.Quality = fqAntialiased
  Menu = MainMenu1
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  LCLVersion = '3.8.0.0'
  Visible = True
  object PaintBox1: TPaintBox
    Left = 0
    Height = 513
    Top = 0
    Width = 507
    PopupMenu = PopupMenu1
    OnClick = PaintBox1Click
    OnMouseDown = PaintBox1MouseDown
    OnMouseMove = PaintBox1MouseMove
    OnMouseUp = PaintBox1MouseUp
    OnPaint = PaintBox1Paint
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 24
    Top = 540
    Width = 515
    Panels = <    
      item
        Width = 145
      end    
      item
        Width = 145
      end    
      item
        Width = 50
      end>
    SimplePanel = False
    OnResize = StatusBar1Resize
  end
  object MainMenu1: TMainMenu
    Left = 56
    Top = 16
    object File1: TMenuItem
      Caption = '&File'
      HelpContext = 18
      object Open1: TMenuItem
        Caption = '&Open'
        OnClick = Open1Click
      end
      object Close1: TMenuItem
        Caption = '&Close'
        OnClick = Close1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Save1: TMenuItem
        Caption = '&Save'
        HelpContext = 18
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As'
        HelpContext = 18
        OnClick = SaveAs1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print'
        OnClick = Print1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&XIT'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 2
      HelpContext = 20
      object Copy1: TMenuItem
        Caption = '&Copy'
        HelpContext = 90
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
      end
    end
    object Run1: TMenuItem
      Caption = '&Break'
      GroupIndex = 2
      HelpContext = 61
      object Break1: TMenuItem
        Caption = '&Break'
        ShortCut = 16450
        OnClick = Break1Click
      end
      object Resume1: TMenuItem
        Caption = '&Resume'
        Visible = False
        OnClick = Resume1Click
      end
    end
    object Show1: TMenuItem
      Caption = '&Window'
      GroupIndex = 2
      object TextWindow1: TMenuItem
        Caption = '&Text window'
        OnClick = E1Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.bmp'
    Filter = 'BitMap|*.bmp|PNG|*.png|JPEG|*.jpg|TIFF|*.tiff|X BitMap|*.xbm'
    FilterIndex = 0
    Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing, ofViewDetail]
    Left = 48
    Top = 240
  end
  object OpenDialog1: TOpenDialog
    FilterIndex = 0
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofViewDetail]
    Left = 176
    Top = 224
  end
  object PopupMenu1: TPopupMenu
    Left = 329
    Top = 127
    object Copy2: TMenuItem
      Caption = 'Copy'
      OnClick = Copy2Click
    end
  end
end
