mainform.dfm

来自「學習資料網上下載」· DFM 代码 · 共 1,292 行 · 第 1/5 页

object fmMain: TfmMain
  Left = 325
  Top = 236
  AutoScroll = False
  Caption = 'fmMain'
  ClientHeight = 513
  ClientWidth = 775
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 201
    Top = 54
    Height = 440
  end
  object coolMain: TCoolBar
    Left = 0
    Top = 0
    Width = 775
    Height = 54
    AutoSize = True
    Bands = <
      item
        Control = psMenu
        ImageIndex = -1
        Width = 775
      end
      item
        Control = psToolbar
        ImageIndex = -1
        Width = 775
      end>
    EdgeBorders = [ebTop]
    object psMenu: TPageScroller
      Left = 9
      Top = 0
      Width = 762
      Height = 25
      Control = tbMenu
      TabOrder = 0
      TabStop = False
      object tbMenu: TToolBar
        Left = 0
        Top = 0
        Width = 233
        Height = 21
        Align = alNone
        AutoSize = True
        ButtonHeight = 21
        ButtonWidth = 59
        Caption = 'tbMenu'
        EdgeBorders = []
        Flat = True
        Indent = 4
        ShowCaptions = True
        TabOrder = 0
        Wrapable = False
        object btnFile: TToolButton
          Left = 4
          Top = 0
          AutoSize = True
          Caption = '&File'
          Grouped = True
          MenuItem = mnuFile
        end
        object btnEdit: TToolButton
          Left = 31
          Top = 0
          AutoSize = True
          Caption = '&Edit'
          Grouped = True
          MenuItem = mnuEdit
        end
        object ToolButton2: TToolButton
          Left = 60
          Top = 0
          AutoSize = True
          Caption = '&View'
          Grouped = True
          MenuItem = mnuView
        end
        object ToolButton1: TToolButton
          Left = 94
          Top = 0
          AutoSize = True
          Caption = '&Resource'
          Grouped = True
          MenuItem = mnuResource
        end
        object btnResourceObject: TToolButton
          Left = 151
          Top = 0
          AutoSize = True
          Caption = '...object'
          Grouped = True
          ImageIndex = 0
          Visible = False
        end
        object btnHelp: TToolButton
          Left = 200
          Top = 0
          AutoSize = True
          Caption = '&Help'
          Grouped = True
          MenuItem = mnuHelp
        end
      end
    end
    object psToolbar: TPageScroller
      Left = 9
      Top = 27
      Width = 762
      Height = 25
      Control = tbMain
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TabStop = False
      object tbMain: TToolBar
        Left = 0
        Top = 0
        Width = 136
        Height = 22
        Align = alNone
        AutoSize = True
        Caption = 'tbMain'
        EdgeBorders = []
        Flat = True
        Images = ilMain
        TabOrder = 0
        Wrapable = False
        object btnFileNew: TToolButton
          Left = 0
          Top = 0
          Action = actFileNew
        end
        object btnFileOpen: TToolButton
          Left = 23
          Top = 0
          Action = actFileOpenFile
          DropdownMenu = pomMRU
          Style = tbsDropDown
        end
        object btnFileSave: TToolButton
          Left = 59
          Top = 0
          Action = actFileSave
        end
        object ToolButton3: TToolButton
          Left = 82
          Top = 0
          Width = 8
          Caption = 'ToolButton3'
          ImageIndex = 10
          Style = tbsSeparator
        end
        object ToolButton4: TToolButton
          Left = 90
          Top = 0
          Action = actResourceAddResource
        end
        object ToolButton5: TToolButton
          Left = 113
          Top = 0
          Action = actResourceDeleteResource
        end
      end
    end
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 494
    Width = 775
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Alignment = taRightJustify
        Width = 50
      end>
    ParentFont = True
    UseSystemFont = False
  end
  object tvResources: TTreeView
    Left = 0
    Top = 54
    Width = 201
    Height = 440
    Align = alLeft
    Images = ilResources
    Indent = 19
    PopupMenu = pomResources
    ReadOnly = True
    TabOrder = 2
    OnChange = tvResourcesChange
    OnCollapsed = tvResourcesCollapsed
    OnDblClick = actResourcePropertiesExecute
    OnExpanded = tvResourcesExpanded
  end
  object pnlResource: TPanel
    Left = 204
    Top = 54
    Width = 571
    Height = 440
    Align = alClient
    BevelOuter = bvLowered
    FullRepaint = False
    TabOrder = 3
  end
  object mnuMain: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Images = ilMain
    Left = 728
    Top = 64
    object mnuFile: TMenuItem
      Caption = '&File'
      object mnuFileNew: TMenuItem
        Action = actFileNew
      end
      object Open1: TMenuItem
        Action = actFileOpenFile
      end
      object mnuFileSave: TMenuItem
        Action = actFileSave
      end
      object mnuFileSaveAs: TMenuItem
        Action = actFileSaveAs
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuFilePrint: TMenuItem
        Action = actFilePrint
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mnuFileExit: TMenuItem
        Action = actFileExit
      end
    end
    object mnuEdit: TMenuItem
      Caption = '&Edit'