CompForm.dfm.txt

object CompileForm: TCompileForm
  Left = 238
  Top = 120
  Width = 369
  Height = 311
  Caption = '*'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poDefault
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ToolbarPanel: TPanel
    Left = 0
    Top = 0
    Width = 361
    Height = 28
    Align = alTop
    BevelOuter = bvNone
    FullRepaint = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    object NewButton: TSpeedButton
      Left = 6
      Top = 4
      Width = 23
      Height = 22
      Hint = 'New'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888888888888888888888800000000000888880FFFFFFFFF0888880FFFFFFFFF
        0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF
        0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFF0000888880FFFFFF0F0
        8888880FFFFFF008888888000000008888888888888888888888}
      OnClick = FNewClick
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 361
      Height = 2
      Align = alTop
      Shape = bsTopLine
    end
    object OpenButton: TSpeedButton
      Left = 29
      Top = 4
      Width = 23
      Height = 22
      Hint = 'Open'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777777777777777000000000007777700333333333077770B0333333333
        07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
        77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
        7007777777770777070777777777700077777777777777777777}
      OnClick = FOpenClick
    end
    object SaveButton: TSpeedButton
      Left = 52
      Top = 4
      Width = 23
      Height = 22
      Hint = 'Save'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        2222220000000000000220330000008803022033000000880302203300000088
        0302203300000000030220333333333333022033000000003302203088888888
        0302203088888888030220308888888803022030888888880302203088888888
        0002203088888888080220000000000000022222222222222222}
      OnClick = FSaveClick
    end
    object Bevel2: TBevel
      Left = 78
      Top = 4
      Width = 2
      Height = 22
      Shape = bsLeftLine
    end
    object CompileButton: TSpeedButton
      Left = 83
      Top = 4
      Width = 23
      Height = 22
      Hint = 'Compile'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888FFFFFFFFFFFFFFF000000000000
        0008777777777777777F0FFFFFFFFFFFFF087F8F8F8F8F8F8F7F0F0F0F0F0F0F
        0F087F7878787878787F0FFFFFFFFFFFFF087F8F8F8F8F8F8F7F0F0F0F0F0F0F
        0F087F7878787878787F0FFFFFFFFFFFFF087FFFFFFFFFFFFF7F000000000000
        00087777777777777778848888848888848887FF8887FF8887FF444888444888
        44487778F87778F87778848484848484848887F78787F78787F8848888848888
        84888788888788888788888888888888888888F88888F88888F8848888848888
        8488878888878888878888888888888888888888888888888888}
      NumGlyphs = 2
      OnClick = FCompileClick
    end
    object Bevel3: TBevel
      Left = 109
      Top = 4
      Width = 2
      Height = 22
      Shape = bsLeftLine
    end
    object RunButton: TSpeedButton
      Left = 114
      Top = 4
      Width = 23
      Height = 22
      Hint = 'Run'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333FF333333333333333FF33333333333338AFF33333
        333333388FFF333333333338AAAFF33333333338888FFF3333333338AAAAAFF3
        3333333888888FFF33333338AAAAAAAFF33333388888888FFF333338AAAAAAA8
        833333388888888883333338AAAAA883333333388888888333333338AAA88333
        333333388888833333333338A883333333333338888333333333333883333333
        3333333883333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = RRunClick
    end
    object PauseButton: TSpeedButton
      Left = 137
      Top = 4
      Width = 23
      Height = 22
      Hint = 'Pause'
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        77777777777777777777777FFFF7FFFF77777777FFF77FFF77777778BBF78BBF
        7777777888F7888F77777778BBF78BBF7777777888F7888F77777778BBF78BBF
        7777777888F7888F77777778BBF78BBF7777777888F7888F77777778BBF78BBF
        7777777888F7888F77777778BBF78BBF7777777888F7888F77777778BBF78BBF
        7777777888F7888F77777778BBF78BBF7777777888F7888F777777788887888F
        7777777888778887777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777}
      NumGlyphs = 2
      OnClick = RPauseClick
    end
    object Bevel4: TBevel
      Left = 163
      Top = 4
      Width = 2
      Height = 22
      Shape = bsLeftLine
    end
    object HelpButton: TSpeedButton
      Left = 168
      Top = 4
      Width = 23
      Height = 22
      Hint = 'Help'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        2222222222200022222222222005580222222220055FF780222220055FF00778
        0222855FF0055077802285F00555550778028005553B55507780855555535555
        070225F55555BB555002225F555553BB55022225F55535BB555022225F55BBB5
        5500222225F5555500222222225F550022222222222550222222}
      OnClick = HDocClick
    end
  end
  object BodyPanel: TPanel
    Left = 0
    Top = 28
    Width = 361
    Height = 216
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Memo: TSynEdit
      Left = 0
      Top = 0
      Width = 361
      Height = 130
      Cursor = crIBeam
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 2
      Gutter.Font.Charset = DEFAULT_CHARSET
      Gutter.Font.Color = clWindowText
      Gutter.Font.Height = -11
      Gutter.Font.Name = 'Terminal'
      Gutter.Font.Style = []
      Gutter.Width = 23
      Highlighter = SynMultiSyn1
      Keystrokes = <
        item
          Command = ecUp
          ShortCut = 38
        end
        item
          Command = ecSelUp
          ShortCut = 8230
        end
        item
          Command = ecScrollUp
          ShortCut = 16422
        end
        item
          Command = ecDown
          ShortCut = 40
        end
        item
          Command = ecSelDown
          ShortCut = 8232
        end
        item
          Command = ecScrollDown
          ShortCut = 16424
        end
        item
          Command = ecLeft
          ShortCut = 37
        end
        item
          Command = ecSelLeft
          ShortCut = 8229
        end
        item
          Command = ecWordLeft
          ShortCut = 16421
        end
        item
          Command = ecSelWordLeft
          ShortCut = 24613
        end
        item
          Command = ecRight
          ShortCut = 39
        end
        item
          Command = ecSelRight
          ShortCut = 8231
        end
        item
          Command = ecWordRight
          ShortCut = 16423
        end
        item
          Command = ecSelWordRight
          ShortCut = 24615
        end
        item
          Command = ecPageDown
          ShortCut = 34
        end
    ...