mainform.dfm

delphi源码- office样式可拖动工具栏 很好用的源程序

object MainFrm: TMainFrm
  Left = 235
  Top = 165
  Width = 696
  Height = 480
  Caption = #25105#30340'GIS'#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {
    0000010001001010040000000000280100001600000028000000100000002000
    0000010004000000000080000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    07700000000000077666662000000076EEEE662A3000006E8E8EE662A30000E8
    B78EE666220006EB88E8E66666700E6B878EEE666667066B828EEE666667063B
    B83EE66666670288BBB6E677666703B8BB62E6637677003B33B3773B36700023
    7238AB3326700006EE233BB2600000000662226000000000000000000000F81F
    0000E0070000C003000080010000800100000000000000000000000000000000
    000000000000000000008001000080010000C0030000E0070000F81F0000}
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object SplitterLeft: TSplitter
    Left = 0
    Top = 56
    Width = 2
    Height = 396
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 688
    Height = 56
    Align = alTop
    AutoSize = True
    BevelKind = bkNone
    BorderWidth = 1
    TabOrder = 0
    OnDockOver = ControlBar1DockOver
    object ActionMainMenuBar1: TActionMainMenuBar
      Left = 11
      Top = 2
      Width = 110
      Height = 22
      UseSystemFont = False
      ActionManager = ActionManager1
      Caption = 'ActionMainMenuBar1'
      ColorMap.HighlightColor = 14410210
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 14410210
      DragKind = dkDrag
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      PersistentHotKeys = True
      Spacing = 1
    end
    object TBFile: TToolBar
      Left = 11
      Top = 28
      Width = 52
      Height = 24
      AutoSize = True
      ButtonHeight = 24
      ButtonWidth = 25
      Caption = 'TBFile'
      DragKind = dkDock
      DragMode = dmAutomatic
      EdgeBorders = []
      EdgeOuter = esRaised
      Flat = True
      Images = ImageListFile
      TabOrder = 1
      object TBtnOpenGST: TToolButton
        Left = 0
        Top = 0
        Caption = 'TBtnOpenGST'
        ImageIndex = 0
      end
      object TBtnOpenTAB: TToolButton
        Left = 25
        Top = 0
        Caption = 'TBtnOpenTAB'
        ImageIndex = 1
      end
    end
    object ToolBarTool: TToolBar
      Left = 76
      Top = 28
      Width = 77
      Height = 24
      AutoSize = True
      ButtonHeight = 24
      ButtonWidth = 25
      Caption = 'ToolBarTool'
      Customizable = True
      DragKind = dkDock
      DragMode = dmAutomatic
      EdgeBorders = []
      Flat = True
      Images = ImageListTool
      TabOrder = 2
      object TBtnZoomIn: TToolButton
        Left = 0
        Top = 0
        Caption = 'TBtnZoomIn'
        ImageIndex = 0
      end
      object TBtnZoomOut: TToolButton
        Left = 25
        Top = 0
        Caption = 'TBtnZoomOut'
        ImageIndex = 1
      end
      object TBtnPan: TToolButton
        Left = 50
        Top = 0
        Caption = 'TBtnPan'
        ImageIndex = 2
      end
    end
  end
  object DockPageControl: TPageControl
    Left = 2
    Top = 56
    Width = 0
    Height = 396
    Align = alLeft
    TabOrder = 1
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = AcOpenGST
                Caption = #25171#24320#22320#22270'(&X)...'
              end
              item
                Action = AcOpenTAB
                Caption = #25171#24320#22270#23618'(&Y)...'
              end
              item
                Caption = '-'
              end
              item
                Action = AcExit
                Caption = #36864#20986'(&Z)'
              end>
            Caption = #25991#20214'(&Z)'
          end
          item
            Items = <
              item
                Action = AcViewNav
              end>
            Caption = #35270#22270
          end>
      end
      item
        Items = <
          item
            Items = <
              item
                Action = AcViewNav
                Caption = #23548#33322#22270'(&Z)'
              end>
            Caption = #35270#22270'(&Z)'
          end>
      end
      item
        Items = <
          item
            Items = <
              item
                Action = AcOpenGST
                Caption = #25171#24320#22320#22270'(&Z)...'
              end
              item
                Action = AcOpenTAB
                Caption = #25171#24320#22270#23618'(&Y)...'
              end
              item
                Caption = '-'
              end
              item
                Action = AcExit
                Caption = #36864#20986'(&X)'
              end>
            Caption = #25991#20214'(&Z)'
          end
          item
            Items = <
              item
                Action = AcViewNav
                Caption = #23548#33322#22270'(&Z)'
              end>
            Caption = #35270#22270'(&Y)'
          end>
      end
      item
        Items = <
          item
            Items = <
              item
                Action = AcOpenGST
                Caption = #25171#24320#22320#22270'(&Z)...'
              end
              item
                Action = AcOpenTAB
                Caption = #25171#24320#22270#23618'(&Y)...'
              end
              item
                Action = AcExit
                Caption = #36864#20986'(&X)'
              end>
            Caption = #25991#20214'(&Z)'
          end
          item
            Items = <
              item
                Action = AcViewNav
                Caption = #23548#33322#22270'(&Z)'
              end>
            Caption = #35270#22270'(&Y)'
          end>
      end
      item
        Items = <
          item
            Items = <
              item
                Action = AcViewNav
                Caption = #23548#33322#22270'(&Z)'
              end>
            Caption = #35270#22270'(&Y)'
          end
          item
            Items = <
              item
                Action = AcOpenGST
                Caption = #25171#24320#22320#22270'(&Z)...'
              end
              item
                Action = AcOpenTAB
                Caption = #25171#24320#22270#23618'(&Y)...'
              end
              item
                Action = AcExit
                Caption = #36864#20986'(&X)'
              end>
            Caption = #25991#20214'(&Z)'
          end>
      end
      item
        Items = <
          item
            Items = <
              item
                Action = AcOpenGST
                Caption = #25171#24320#22320#22270'(&Z)...'
              end
              item
                Action = AcOpenTAB
                Caption = #25171#24320#22270#23618'(&Y)...'
              end
              item
                Caption = '-'
              end
              item
                Action = AcSave
                Caption = #20445#23384#22320#22270'(&W)'
              end
              item
                Action = AcSaveAs
                Caption = #22320#22270#21478#23384#20026'(&V)...'
              end
              item
                Caption = '-'
              end
              item
                Action = AcExit
                Caption = #36864#20986'(&X)'
              end>
            Caption = #25991#20214'(&Z)'
          end
          item
            Items = <
              item
                Action = AcViewLayer
              end
              item
                Action = AcViewNav
                Caption = #23548#33322#22270'(&Z)'
              end>
            Caption = #35270#22270'(&Y)'
          end>
        ActionBar = ActionMainMenuBar1
      end>
    Left = 528
    Top = 8
    StyleName = 'XP Style'
    object AcOpenGST: TAction
      Category = #25991#20214
      Caption = #25171#24320#22320#22270'...'
      OnExecute = AcOpenGSTExecute
    end
    object AcOpenTAB: TAction
      Category = #25991#20214