fmain.dfm

Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器

    Panels = <
      item
        Width = 84
      end
      item
        Alignment = taCenter
        Width = 250
      end
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Width = 80
      end
      item
        Width = 150
      end>
    SimplePanel = False
  end
  object tbTools: TToolBar
    Tag = 1
    Left = 160
    Top = 192
    Width = 321
    Height = 22
    Align = alNone
    AutoSize = True
    Caption = 'Tools'
    DragKind = dkDock
    DragMode = dmAutomatic
    EdgeBorders = []
    EdgeOuter = esNone
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Images = dmMain.imlShellIcon
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    Wrapable = False
    OnAdvancedCustomDraw = tbWebAdvancedCustomDraw
    OnCustomDrawButton = tbrMainCustomDrawButton
    OnEndDock = tbWebEndDock
  end
  object tbMacros: TToolBar
    Tag = 1
    Left = 144
    Top = 216
    Width = 261
    Height = 22
    Align = alNone
    AutoSize = True
    Caption = 'Macros'
    DragKind = dkDock
    DragMode = dmAutomatic
    EdgeBorders = []
    EdgeOuter = esNone
    Flat = True
    Images = dmMain.imgMain
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    Wrapable = False
    OnAdvancedCustomDraw = tbWebAdvancedCustomDraw
    OnCustomDrawButton = tbrMainCustomDrawButton
    OnEndDock = tbWebEndDock
    object tbbMac1: TToolButton
      Tag = 1
      Left = 0
      Top = 0
      Caption = 'tbbMac1'
      ImageIndex = 31
      OnClick = tbbMac1Click
    end
    object tbbMac2: TToolButton
      Tag = 2
      Left = 23
      Top = 0
      Caption = 'tbbMac2'
      ImageIndex = 32
      OnClick = tbbMac1Click
    end
    object tbbMac3: TToolButton
      Tag = 3
      Left = 46
      Top = 0
      Caption = 'tbbMac3'
      ImageIndex = 33
      OnClick = tbbMac1Click
    end
    object tbbMac4: TToolButton
      Tag = 4
      Left = 69
      Top = 0
      Caption = 'tbbMac4'
      ImageIndex = 34
      OnClick = tbbMac1Click
    end
    object tbbMac5: TToolButton
      Tag = 5
      Left = 92
      Top = 0
      Caption = 'tbbMac5'
      ImageIndex = 35
      OnClick = tbbMac1Click
    end
    object tbbMac6: TToolButton
      Tag = 6
      Left = 115
      Top = 0
      Caption = 'tbbMac6'
      ImageIndex = 36
      OnClick = tbbMac1Click
    end
    object tbbMac7: TToolButton
      Tag = 7
      Left = 138
      Top = 0
      Caption = 'tbbMac7'
      ImageIndex = 37
      OnClick = tbbMac1Click
    end
    object tbbMac8: TToolButton
      Tag = 8
      Left = 161
      Top = 0
      Caption = 'tbbMac8'
      ImageIndex = 38
      OnClick = tbbMac1Click
    end
    object tbbMac9: TToolButton
      Left = 184
      Top = 0
      Caption = 'tbbMac9'
      ImageIndex = 39
      OnClick = tbbMac1Click
    end
    object tbbMac10: TToolButton
      Left = 207
      Top = 0
      Caption = 'tbbMac10'
      ImageIndex = 40
      OnClick = tbbMac1Click
    end
    object ToolButton18: TToolButton
      Tag = 1
      Left = 230
      Top = 0
      Width = 8
      Caption = 'ToolButton18'
      ImageIndex = 50
      Style = tbsSeparator
    end
    object tbbMacRec: TToolButton
      Left = 238
      Top = 0
      Caption = 'tbbMacRec'
      ImageIndex = 51
      Style = tbsCheck
      OnClick = tbbMacRecClick
    end
  end
  object dpBottom: TDockPanel
    Left = 0
    Top = 487
    Width = 790
    Height = 20
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    DockSite = True
    TabOrder = 7
    OnGetSiteInfo = dpBottomGetSiteInfo
    TabPosition = tpLeft
  end
  object tbSearch: TToolBar
    Tag = 1
    Left = 344
    Top = 122
    Width = 222
    Height = 22
    Align = alNone
    AutoSize = True
    Caption = 'Search'
    DragKind = dkDock
    DragMode = dmAutomatic
    EdgeBorders = []
    Flat = True
    Images = dmMain.imgMain
    TabOrder = 8
    Wrapable = False
    OnAdvancedCustomDraw = tbWebAdvancedCustomDraw
    OnCustomDrawButton = tbrMainCustomDrawButton
    OnEndDock = tbWebEndDock
    OnResize = tbSearchResize
    object cmbFind: TComboBox
      Left = 0
      Top = 0
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnKeyPress = cmbFindKeyPress
    end
    object ToolButton4: TToolButton
      Tag = 1
      Left = 145
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object tbbFind1: TToolButton
      Left = 153
      Top = 0
      Action = dmMain.actFindFind
    end
    object tbbFindNext1: TToolButton
      Left = 176
      Top = 0
      Action = dmMain.actFindNext
    end
    object tbbFindRep1: TToolButton
      Left = 199
      Top = 0
      Action = dmMain.actFindReplace
    end
  end
  object dpTop: TDockPanel
    Left = 0
    Top = 56
    Width = 790
    Height = 10
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    DockSite = True
    TabOrder = 9
    OnGetSiteInfo = dpRightGetSiteInfo
    TabPosition = tpBottom
  end
  object ctrlTab: TPanel
    Left = 280
    Top = 296
    Width = 257
    Height = 30
    Align = alCustom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 10
    object tcFiles: TTabControl
      Left = 2
      Top = 2
      Width = 253
      Height = 26
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      OwnerDraw = True
      ParentFont = False
      PopupMenu = popTabs
      RaggedRight = True
      TabOrder = 0
      TabPosition = tpBottom
      OnChange = tcFilesChange
      OnDrawTab = tcFilesDrawTab
    end
  end
  object cntrlTop: TControlBar
    Left = 0
    Top = 0
    Width = 790
    Height = 56
    Align = alTop
    AutoSize = True
    Color = clActiveBorder
    ParentColor = False
    TabOrder = 11
    OnBandInfo = cntrlTopBandInfo
    OnBandMove = cntrlTopBandMove
    OnBandPaint = cntrlTopBandPaint
    OnGetSiteInfo = cntrlTopGetSiteInfo
    OnMouseUp = cntrlTopMouseUp
    object tbrProg: TToolBar
      Tag = 1
      Left = 11
      Top = 28
      Width = 419
      Height = 22
      AutoSize = True
      Caption = 'Standard'
      Color = clActiveBorder
      DragKind = dkDock
      DragMode = dmAutomatic
      EdgeBorders = []
      Flat = True
      Images = dmMain.imgMain
      ParentColor = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Wrapable = False
      OnAdvancedCustomDraw = tbSearchAdvancedCustomDraw
      OnCustomDrawButton = tbrMainCustomDrawButton
      OnEndDock = tbWebEndDock
      object tbbFormat: TToolButton
        Left = 0
        Top = 0
        Caption = '&Format'
        ImageIndex = 61
        MenuItem = Format1
        Style = tbsDropDown
      end
      object tbbCase: TToolButton
        Left = 36
        Top = 0
        Caption = 'C&hange case'
        ImageIndex = 67
        MenuItem = Changecase1
        Style = tbsDropDown
      end
      object tbbAdvanced: TToolButton
        Left = 72
        Top = 0
        Caption = '&Advanced'
        ImageIndex = 91
        MenuItem = Advanced1
        Style = tbsDropDown
      end
      object tbbBlock: TToolButton
        Left = 108
        Top = 0
        Caption = '&Block'
        ImageIndex = 59
        MenuItem = Block1
        Style = tbsDropDown
      end
      object tbbLineBreak: TToolButton
        Left = 144
        Top = 0
        Caption = 'Line &Break'
        ImageIndex = 62
        MenuItem = LineBreak1
        Style = tbsDropDown
      end
      object ToolButton72: TToolButton
        Tag = 1
        Left = 180
        Top = 0
        Width = 8
        Caption = 'ToolButton72'
        ImageIndex = 23
        Style = tbsSeparator
      end
      object tbbPrefrences: TToolButton
        Left = 188
        Top = 0
        Action = dmMain.actViewPrefrences
      end
      object ToolButton80: TToolButton
        Tag = 1
        Left = 211
        Top = 0
        Width = 8
        Caption = 'ToolButton80'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tbbFindInFiles: TToolButton
        Left = 219
        Top = 0
        Action = dmMain.actFindFindInFiles
      end
      object tbbCompile: TToolButton
        Left = 242
        Top = 0
        Action = dmMain.actBuildCompile
      end
      object tbbOpenFromWeb: TToolButton
        Left = 265
        Top = 0
        Hint = 'Open From Web'
        Caption = 'tbbOpenFromWeb'
        ImageIndex = 26
        OnClick = tbbOpenFromWebClick
      end
      object tbbOpenFTP: TToolButton
        Left = 288
        Top = 0
        Action = dmMain.actFileOpenFTP
      end
      object ToolButton74: TToolButton
        Tag = 1
        Left = 311
        Top = 0
        Width = 8
        Caption = 'ToolButton74'
        ImageIndex = 40
        Style = tbsSeparator
      end
      object tbbInternalBrowser: TToolButton
        Left = 319
        Top = 0
        Action = dmMain.actFileShowInBrowser
      end
      object tbbExternalBrowser: TToolButton
        Left = 342
        Top = 0
        Action = dmMain.actFileShowInExternalBrowser
      end
      object tbbHex: TToolButton
        Left = 365
        Top = 0
        Action = dmMain.actEditHex
        Style = tbsCheck
      end
      object ToolButton46: TToolButton
        Tag = 1
        Left = 388