fmain.dfm

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

        Top = 0
        Width = 8
        Caption = 'ToolButton46'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tbbDocumentProperties: TToolButton
        Left = 396
        Top = 0
        Action = dmMain.actFileProperties
      end
    end
    object pnlPage: TPanel
      Tag = 1
      Left = 606
      Top = 2
      Width = 100
      Height = 48
      BevelOuter = bvNone
      Caption = 'Tool Palette'
      Color = clActiveBorder
      Constraints.MinWidth = 100
      UseDockManager = False
      DragKind = dkDock
      DragMode = dmAutomatic
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object pgTop: TPageControl
        Tag = 1
        Left = 0
        Top = 0
        Width = 100
        Height = 48
        Align = alClient
        DockSite = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Small Fonts'
        Font.Style = []
        ParentFont = False
        TabHeight = 16
        TabOrder = 0
        OnChange = pgTopChange
        OnDockDrop = pgTopDockDrop
        OnGetSiteInfo = pgTopGetSiteInfo
      end
    end
    object tbrMain: TToolBar
      Tag = 1
      Left = 11
      Top = 2
      Width = 419
      Height = 22
      AutoSize = True
      Caption = 'Main'
      Color = clActiveBorder
      DragKind = dkDock
      DragMode = dmAutomatic
      EdgeBorders = []
      Flat = True
      Images = dmMain.imgMain
      ParentColor = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Wrapable = False
      OnAdvancedCustomDraw = tbSearchAdvancedCustomDraw
      OnCustomDrawButton = tbrMainCustomDrawButton
      OnEndDock = tbWebEndDock
      object tbbNew: TToolButton
        Left = 0
        Top = 0
        Action = dmMain.actFileNew
        Style = tbsDropDown
      end
      object tbbOpen: TToolButton
        Left = 36
        Top = 0
        Action = dmMain.actFileOpen
        Caption = 'Recent Files'
        Style = tbsDropDown
      end
      object ToolButton2: TToolButton
        Tag = 1
        Left = 72
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 24
        Style = tbsSeparator
      end
      object tbbSave: TToolButton
        Left = 80
        Top = 0
        Action = dmMain.actFileSave
      end
      object tbbSaveAll: TToolButton
        Left = 103
        Top = 0
        Action = dmMain.actFileSaveAll
      end
      object ToolButton51: TToolButton
        Left = 126
        Top = 0
        Width = 8
        Caption = 'ToolButton51'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object tbbPrint: TToolButton
        Left = 134
        Top = 0
        Action = dmMain.actFilePrint
      end
      object ToolButton55: TToolButton
        Tag = 1
        Left = 157
        Top = 0
        Width = 8
        Caption = 'ToolButton55'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object tbbUndo: TToolButton
        Left = 165
        Top = 0
        Action = dmMain.actEditUndo
      end
      object tbbRedo: TToolButton
        Left = 188
        Top = 0
        Action = dmMain.actEditRedo
      end
      object ToolButton58: TToolButton
        Tag = 1
        Left = 211
        Top = 0
        Width = 8
        Caption = 'ToolButton58'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object tbbCut: TToolButton
        Left = 219
        Top = 0
        Action = dmMain.actEditCut
      end
      object tbbCopy: TToolButton
        Left = 242
        Top = 0
        Action = dmMain.actEditCopy
      end
      object tbbPaste: TToolButton
        Left = 265
        Top = 0
        Action = dmMain.actEditPaste
      end
      object tbbDelete: TToolButton
        Left = 288
        Top = 0
        Action = dmMain.actEditDelete
      end
      object ToolButton54: TToolButton
        Tag = 1
        Left = 311
        Top = 0
        Width = 8
        Caption = 'ToolButton54'
        ImageIndex = 15
        Style = tbsSeparator
      end
      object tbbFind: TToolButton
        Left = 319
        Top = 0
        Action = dmMain.actFindFind
      end
      object tbbFindNext: TToolButton
        Left = 342
        Top = 0
        Action = dmMain.actFindNext
      end
      object tbbReplace: TToolButton
        Left = 365
        Top = 0
        Action = dmMain.actFindReplace
      end
      object ToolButton67: TToolButton
        Tag = 1
        Left = 388
        Top = 0
        Width = 8
        Caption = 'ToolButton67'
        ImageIndex = 20
        Style = tbsSeparator
      end
      object tbbHelp: TToolButton
        Left = 396
        Top = 0
        Hint = 'Help'
        Caption = 'tbbHelp'
        ImageIndex = 75
        OnClick = tbbHelpClick
      end
    end
  end
  object popTabs: TPopupMenu
    OwnerDraw = True
    Left = 280
    Top = 416
    object CloseOpenDocument1: TMenuItem
      Action = dmMain.actFileClose
    end
    object CloseAllOpenDocuments2: TMenuItem
      Action = dmMain.actFileCloseAll
    end
    object N24: TMenuItem
      Caption = '-'
    end
    object SaveDocument2: TMenuItem
      Action = dmMain.actFileSave
    end
    object SaveDocumentAs2: TMenuItem
      Action = dmMain.actFileSaveAs
    end
    object SaveAllOpenDocuments2: TMenuItem
      Action = dmMain.actFileSaveAll
    end
    object N34: TMenuItem
      Caption = '-'
    end
    object FTP2: TMenuItem
      Caption = '&FTP'
      object OpenFilefromFTP1: TMenuItem
        Action = dmMain.actFileOpenFTP
      end
      object SaveFiletoFTP1: TMenuItem
        Action = dmMain.actFileSaveFTP
      end
    end
    object N44: TMenuItem
      Caption = '-'
    end
    object PrintSetup2: TMenuItem
      Caption = '&Print Setup'
      ImageIndex = 26
    end
    object Print2: TMenuItem
      Caption = 'Print'
      ImageIndex = 6
      ShortCut = 16464
    end
  end
  object popProject: TPopupMenu
    OwnerDraw = True
    Left = 400
    Top = 288
    object NewProject1: TMenuItem
      Caption = '&New Project'
      OnClick = NewProject1Click
    end
    object OpenProject1: TMenuItem
      Caption = '&Open Project'
      OnClick = OpenProject1Click
    end
    object N38: TMenuItem
      Caption = '-'
    end
    object SaveProject1: TMenuItem
      Caption = '&Save Project'
      OnClick = SaveProject1Click
    end
    object SaveProjectAs1: TMenuItem
      Caption = 'Save Project &As'
      OnClick = SaveProjectAs1Click
    end
    object N39: TMenuItem
      Caption = '-'
    end
    object Insert1: TMenuItem
      Caption = '&Insert'
      object File2: TMenuItem
        Caption = '&File'
        OnClick = File2Click
      end
      object Hyperlink1: TMenuItem
        Caption = '&Hyperlink'
        OnClick = Hyperlink1Click
      end
      object EmailAddress1: TMenuItem
        Caption = '&Email Address'
        OnClick = EmailAddress1Click
      end
    end
    object N41: TMenuItem
      Caption = '-'
    end
    object InsertNewFolder1: TMenuItem
      Caption = '&Insert New Folder'
      OnClick = Folder1Click
    end
    object N42: TMenuItem
      Caption = '-'
    end
    object RemoveItem1: TMenuItem
      Caption = '&Remove Item'
      OnClick = RemoveItem1Click
    end
  end
  object dlgFileSave: TSaveDialog
    Left = 640
    Top = 416
  end
  object dlgFileOpen: TOpenDialog
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 608
    Top = 416
  end
  object mnuMain: TMainMenu
    AutoHotkeys = maManual
    Images = dmMain.imgMain
    OwnerDraw = True
    Left = 536
    Top = 416
    object File1: TMenuItem
      Caption = '&File'
      OnClick = File1Click
      object NewDocument1: TMenuItem
        Action = dmMain.actFileNew
      end
      object OpenDocument1: TMenuItem
        Action = dmMain.actFileOpen
      end
      object OpenFromInternet1: TMenuItem
        Caption = 'Open From &Internet'
        OnClick = OpenFromInternet1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object CloseDocument1: TMenuItem
        Action = dmMain.actFileClose
      end
      object CloseAllOpenDocuments1: TMenuItem
        Action = dmMain.actFileCloseAll
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object SaveDocument1: TMenuItem
        Action = dmMain.actFileSave
      end
      object SaveDocumentAs1: TMenuItem
        Action = dmMain.actFileSaveAs
      end
      object SaveAllOpenDocuments1: TMenuItem
        Action = dmMain.actFileSaveAll
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object ShowFileInBrowser1: TMenuItem
        Action = dmMain.actFileShowInBrowser
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Export1: TMenuItem
        Caption = '&Export'
        ImageIndex = 77
        object ExportToHTML1: TMenuItem
          Action = dmMain.actFileExportHTML
        end
        object ExporttoRTF1: TMenuItem
          Action = dmMain.actFileExportRTF
        end
        object ExportAsXHTML1: TMenuItem
          Action = dmMain.actExportXML
        end
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object FTP1: TMenuItem
        Caption = '&FTP'
        object OpenFromFTP1: TMenuItem
          Action = dmMain.actFileOpenFTP
        end
        object SaveToFTP1: TMenuItem
          Action = dmMain.actFileSaveFTP
        end
        object N45: TMenuItem
          Caption = '-'
        end
        object EditAccounts1: TMenuItem
          Caption = '&Edit Accounts'
          OnClick = EditAccounts1Click
        end
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object PrintSetup1: TMenuItem
        Caption = '&Print Setup'
        ImageIndex = 26
      end
      object Print1: TMenuItem
        Caption = 'Print'
        ImageIndex = 6
        ShortCut = 16464
        OnClick = Print1Click
      end
      object PrintPreview1: TMenuItem
        Caption = 'Print Pre&view'
        OnClick = PrintPreview1Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object DocumentProperties1: TMenuItem
        Action = dmMain.actFileProperties
      end
      object N11: TMenuItem