mainform.dfm

用delphi实现的PL/0的编译器

object frmMain: TfrmMain
  Left = 195
  Top = 105
  Width = 696
  Height = 482
  Caption = 'PL/0 编译器 Windows版'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000BBBBBBB000000000000000000000000BBBBBBBBBBBB0000000000000000
    0000BBBB000BBBBBBB000000000000000000BBB00000000BBBB0000000000000
    0000BBB00000000000BBB0000000000000000BB000000000000BBB0000000000
    00000BBB000000000000BB0000000099000000BB00000000AAAA0BB0AA000099
    000000BBB0000000AAAAA0BB0A0000990000000BBB000000AA00000BB0000099
    00000000BBB00000AA000000BB000099000000000BBB0000AA000000BB000099
    00000000000BB000AA0000000B000099000000000000BBB0AA0000000B000099
    0000000000000BB0AA000000BB0000999999999900000000AA000000BB000099
    9999999999000000AA0B000BB00000990000000999900000AA00BBBB00000099
    0000000099900000AA000000000000990000000009900000AA00000000000099
    0000000009900000AA000000000000990000000099900000AA00000000000099
    0000000999900000AA000000000000999999999999000000AA00000000000099
    9999999990000000AA0000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFF80FFFFFF000FFFFE0003FFFE0001FFFE0E007FFE0F
    E03FFF0FFC1F8707E0018787E0018783E00187C1E00387E0E1E187F061E187F8
    01F187FE01F1800F01E1800380E18001E0038000E00787E0E10F87F0E1FF87F0
    E1FF87E0E1FF8000E1FF8001E1FF8003E1FF8007E1FFFFFFFFFFFFFFFFFF}
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object Splitter1: TSplitter
    Left = 525
    Top = 24
    Width = 3
    Height = 325
    Cursor = crHSplit
    Align = alRight
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 349
    Width = 688
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 417
    Width = 688
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Bevel = pbNone
        Text = '作者：蒋云起  2001年6月'
        Width = 200
      end
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 24
    AutoSize = True
    Caption = 'ToolBar'
    Flat = True
    Images = ImageList
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Transparent = True
    object tbNew: TToolButton
      Left = 0
      Top = 0
      Hint = '新建'
      Caption = 'tbNew'
      ImageIndex = 0
      OnClick = menuitemNewClick
    end
    object tbOpen: TToolButton
      Left = 23
      Top = 0
      Hint = '打开'
      Caption = 'tbOpen'
      ImageIndex = 1
      OnClick = menuitemOpenClick
    end
    object tbSave: TToolButton
      Left = 46
      Top = 0
      Hint = '保存'
      Caption = 'tbSave'
      ImageIndex = 2
      OnClick = menuitemSaveClick
    end
    object ToolButton1: TToolButton
      Left = 69
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 77
      Top = 0
      Hint = '运行'
      Caption = 'ToolButton2'
      ImageIndex = 3
      OnClick = menuitemRunClick
    end
  end
  object MsgCode: TListBox
    Left = 528
    Top = 24
    Width = 160
    Height = 325
    Align = alRight
    ItemHeight = 14
    TabOrder = 1
  end
  object MsgError: TListBox
    Left = 0
    Top = 352
    Width = 688
    Height = 65
    Align = alBottom
    ItemHeight = 14
    TabOrder = 2
  end
  object MsgEdit: TRichEdit
    Left = 0
    Top = 24
    Width = 525
    Height = 325
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    PlainText = True
    ScrollBars = ssBoth
    TabOrder = 0
    WordWrap = False
    OnEnter = MsgEditEnter
    OnKeyUp = MsgEditKeyUp
    OnMouseUp = MsgEditMouseUp
  end
  object MainMenu: TMainMenu
    AutoHotkeys = maManual
    Left = 8
    Top = 376
    object menuFile: TMenuItem
      Caption = '文件(&F)'
      object menuitemNew: TMenuItem
        Caption = '新建'
        ShortCut = 16462
        OnClick = menuitemNewClick
      end
      object menuitemOpen: TMenuItem
        Caption = '打开...'
        ShortCut = 114
        OnClick = menuitemOpenClick
      end
      object menuitemSave: TMenuItem
        Caption = '保存'
        ShortCut = 113
        OnClick = menuitemSaveClick
      end
      object menuitemSaveAs: TMenuItem
        Caption = '保存为...'
        ShortCut = 16497
        OnClick = menuitemSaveAsClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object menuitemExit: TMenuItem
        Caption = '退出'
        ShortCut = 16465
        OnClick = menuitemExitClick
      end
    end
    object menuEdit: TMenuItem
      Caption = '编辑(&E)'
      object menuitemCut: TMenuItem
        Caption = '剪切'
        ShortCut = 16472
        OnClick = menuitemCutClick
      end
      object menuitemCopy: TMenuItem
        Caption = '拷贝'
        ShortCut = 16451
        OnClick = menuitemCopyClick
      end
      object menuitemPaste: TMenuItem
        Caption = '粘贴'
        ShortCut = 16470
        OnClick = menuitemPasteClick
      end
    end
    object menuComplete: TMenuItem
      Caption = '编译(&C)'
      object menuitemRun: TMenuItem
        Caption = '运行'
        ShortCut = 116
        OnClick = menuitemRunClick
      end
    end
    object menuWindow: TMenuItem
      Caption = '窗口(&W)'
      object menuitemRunWin: TMenuItem
        Caption = '程序运行窗口'
        OnClick = menuitemRunWinClick
      end
      object menuitemStack: TMenuItem
        Caption = '程序运行栈'
        OnClick = menuitemStackClick
      end
      object menuitemTable: TMenuItem
        Caption = '名字表窗口'
        OnClick = menuitemTableClick
      end
    end
    object menuHelp: TMenuItem
      Caption = '帮助(&H)'
      object menuitemAbout: TMenuItem
        Caption = '关于...'
        ShortCut = 112
        OnClick = menuitemAboutClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'PL/0 程序文件|*.pl0'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 48
    Top = 376
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '*.pl0'
    Filter = 'PL/0 程序文件|*.pl0'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 88
    Top = 376
  end
  object ImageList: TImageList
    Left = 128
    Top = 376
    Bitmap = {
      494C010104000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001001800000000000024
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000