mainunit.dfm

IDE开发环境

                  TabOrder = 0
                  OnClick = TreeView2Click
                  OnDragDrop = TreeView2DragDrop
                  OnDragOver = TreeView2DragOver
                  OnKeyUp = TreeView2KeyUp
                  Items.Data = {
                    0100000026000000000000000100000000000000FFFFFFFF0000000000000000
                    0D42415349432050726F6A656374}
                end
              end
            end
          end
        end
      end
    end
  end
  object TBDock7: TTBDock
    Left = 733
    Top = 104
    Width = 9
    Height = 338
    Position = dpRight
    OnRequestDock = TBDock7RequestDock
  end
  object TBDock8: TTBDock
    Left = 0
    Top = 442
    Width = 742
    Height = 9
    Position = dpBottom
    OnRequestDock = TBDock8RequestDock
  end
  object TBDock1: TTBDock
    Left = 0
    Top = 0
    Width = 742
    Height = 23
    OnRequestDock = TBDock1RequestDock
    object TBXToolbar1: TTBXToolbar
      Left = 0
      Top = 0
      Caption = 'Menu Bar'
      CloseButton = False
      DockPos = -72
      DockRow = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Song'
      Font.Style = []
      FullSize = True
      Images = ImageList3
      MenuBar = True
      ParentFont = False
      ProcessShortCuts = True
      ShrinkMode = tbsmWrap
      TabOrder = 0
      Color = clBtnFace
      object File1: TTBXSubmenuItem
        Caption = '&File'
        Layout = tbxlGlyphTop
        Options = [tboNoRotation]
        object TBXSubmenuItem8: TTBXSubmenuItem
          Caption = '&New'
          ImageIndex = 0
          object TBXItem16: TTBXItem
            Caption = '&Project'
            OnClick = TBXItem16Click
          end
          object TBXItem17: TTBXItem
            Caption = '&Form'
            OnClick = TBXItem17Click
          end
          object TBXItem15: TTBXItem
            Caption = '&BASIC File'
            ShortCut = 16462
            OnClick = TBXItem15Click
          end
        end
        object Open: TTBXItem
          Caption = '&Open'
          ImageIndex = 1
          ShortCut = 16463
          OnClick = Open1Click
        end
        object Save1: TTBXItem
          Caption = '&Save'
          ImageIndex = 2
          ShortCut = 16467
          OnClick = Save1Click
        end
        object SaveAs1: TTBXItem
          Caption = 'Save &As'
          ShortCut = 49235
          OnClick = SaveAs1Click
        end
        object RecentFilesMenu: TTBXSubmenuItem
          Caption = '&Recent Files'
        end
        object TBXSeparatorItem4: TTBXSeparatorItem
        end
        object Print: TTBXItem
          Caption = '&Print'
          ImageIndex = 38
          ShortCut = 16464
        end
        object TBXSeparatorItem5: TTBXSeparatorItem
        end
        object Close1: TTBXItem
          Caption = '&Close'
          ImageIndex = 21
          ShortCut = 49219
          OnClick = Close1Click
        end
        object TBXSeparatorItem6: TTBXSeparatorItem
        end
        object Exit1: TTBXItem
          Caption = 'E&xit'
          ShortCut = 16465
          OnClick = Exit1Click
        end
      end
      object Edit1: TTBXSubmenuItem
        Caption = '&Edit'
        object Undo1: TTBXItem
          Caption = '&Undo'
          ImageIndex = 56
          ShortCut = 16474
          OnClick = Undo1Click
        end
        object TBXSeparatorItem7: TTBXSeparatorItem
        end
        object Cut: TTBXItem
          Caption = 'Cu&t'
          ImageIndex = 22
          ShortCut = 16472
          OnClick = Cut1Click
        end
        object Copy: TTBXItem
          Caption = '&Copy'
          ImageIndex = 23
          ShortCut = 16451
          OnClick = Copy1Click
        end
        object Paste: TTBXItem
          Caption = '&Paste'
          ImageIndex = 44
          ShortCut = 16470
          OnClick = Paste1Click
        end
        object TBXItem24: TTBXItem
          Caption = 'Select &All'
          ShortCut = 16449
          OnClick = TBXItem24Click
        end
        object TBXSeparatorItem8: TTBXSeparatorItem
        end
        object AlignToGrid: TTBXItem
          Caption = 'Align to &Grid'
          OnClick = Aligntogrid1Click
        end
        object TBXItem20: TTBXItem
          Caption = '&Send to Back'
          OnClick = TBXItem20Click
        end
        object TBXItem21: TTBXItem
          Caption = '&Bring to Front'
          OnClick = TBXItem21Click
        end
        object TBXSeparatorItem9: TTBXSeparatorItem
        end
        object EditMode1: TTBXItem
          Caption = '&Edit Mode'
          Checked = True
          ShortCut = 16453
          OnClick = Editmode1Click
        end
      end
      object mnuCodeEditor: TTBXSubmenuItem
        Caption = '&Code Editor'
        object mnuCommentOut: TTBXItem
          Caption = '&Comment out selected'
          OnClick = mnuCommentOutClick
        end
        object mnuUnComment: TTBXItem
          Caption = '&Uncomment out selected'
          OnClick = mnuUnCommentClick
        end
        object mnuCallDLL: TTBXItem
          Caption = 'Call &DLL'
        end
      end
      object mnuFormDesigner: TTBXSubmenuItem
        Caption = 'Form &Designer'
      end
      object TBXSubmenuItem1: TTBXSubmenuItem
        Caption = '&Search'
        object TBXItem8: TTBXItem
          Caption = '&Find...'
          ShortCut = 16454
          OnClick = TBXItem8Click
        end
        object TBXItem9: TTBXItem
          Caption = 'Find and &Replace...'
          ShortCut = 16466
          OnClick = TBXItem9Click
        end
        object TBXSeparatorItem10: TTBXSeparatorItem
        end
        object TBXItem10: TTBXItem
          Caption = 'Go To &Line...'
          ShortCut = 16455
          OnClick = TBXItem10Click
        end
      end
      object TBXSubmenuItem5: TTBXSubmenuItem
        Caption = '&View'
        object TBXMDIWindowItem1: TTBXMDIWindowItem
        end
        object TBXSeparatorItem12: TTBXSeparatorItem
        end
        object TBXItem13: TTBXItem
          Caption = '&Project Manager'
          Checked = True
          OnClick = TBXItem13Click
        end
        object TBXItem18: TTBXItem
          Caption = 'Object &Inspector'
          Checked = True
          OnClick = TBXItem18Click
        end
        object TBXItem19: TTBXItem
          Caption = 'Project &TreeView'
          Checked = True
          OnClick = TBXItem19Click
        end
        object TBXSeparatorItem16: TTBXSeparatorItem
        end
        object TBXItem32: TTBXItem
          Caption = '&Tile'
          ImageIndex = 53
          OnClick = TBXItem32Click
        end
        object TBXItem31: TTBXItem
          Caption = '&Cascade'
          ImageIndex = 46
          OnClick = TBXItem31Click
        end
      end
      object TBXSubmenuItem3: TTBXSubmenuItem
        Caption = '&Project'
        object TBXSubmenuItem7: TTBXSubmenuItem
          Caption = '&Mode'
          Visible = False
          object KB1: TTBXItem
            Caption = '&KoolBASIC'
            Checked = True
            OnClick = KB1Click
          end
          object RQ1: TTBXItem
            Caption = '&Rapid-Q'
            OnClick = RQ1Click
          end
          object BPP1: TTBXItem
            Caption = '&B++'
            OnClick = BPP1Click
          end
        end
        object TBXSubmenuItem6: TTBXSubmenuItem
          Caption = '&Menu Style'
          Visible = False
          object NormalStyleMenus1: TTBXItem
            Caption = '&Normal'
            OnClick = XPStyleMenus1Click
          end
          object XPStyleMenus1: TTBXItem
            Caption = '&XP'
            Checked = True
            GroupIndex = 1
            OnClick = XPStyleMenus1Click
          end
          object StripesStyleMenus1: TTBXItem
            Caption = '&Stripes'
            GroupIndex = 2
            OnClick = XPStyleMenus1Click
          end
        end
        object TBXItem25: TTBXItem
          Caption = 'Change &Icon'
        end
        object TBXItem26: TTBXItem