mainfrm.dfm

一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。

      object edtExt: TEdit
        Left = 168
        Top = 24
        Width = 121
        Height = 20
        TabOrder = 3
        Text = '.pas'
      end
      object edtSrcFile: TEdit
        Left = 168
        Top = 272
        Width = 561
        Height = 20
        TabOrder = 4
        Text = 'edtSrcFile'
      end
      object edtDesFile: TEdit
        Left = 168
        Top = 304
        Width = 561
        Height = 20
        TabOrder = 5
        Text = 'edtDesFile'
      end
      object btnTranFile: TButton
        Left = 168
        Top = 336
        Width = 75
        Height = 25
        Caption = #36716#25442
        TabOrder = 6
        OnClick = btnTranFileClick
      end
      object chkTranView: TCheckBox
        Left = 256
        Top = 338
        Width = 177
        Height = 17
        Caption = 'chkTranView'
        Checked = True
        State = cbChecked
        TabOrder = 7
      end
      object chkHTMLFormat: TCheckBox
        Left = 16
        Top = 392
        Width = 545
        Height = 17
        Caption = 'chkHTMLFormat'
        Checked = True
        State = cbChecked
        TabOrder = 8
      end
      object chkClipboardTextOrFmtText: TCheckBox
        Left = 16
        Top = 416
        Width = 641
        Height = 17
        Caption = 'chkClipboardTextOrFmtText'
        Checked = True
        State = cbChecked
        TabOrder = 9
      end
      object ProgressBar: TProgressBar
        Left = 168
        Top = 112
        Width = 585
        Height = 16
        TabOrder = 10
      end
    end
  end
  object pnlMain: TPanel
    Left = 0
    Top = 24
    Width = 812
    Height = 33
    Align = alTop
    BevelOuter = bvLowered
    PopupMenu = PopupMenu
    TabOrder = 2
    object spClipboardToHightLightToMemo: TSpeedButton
      Left = 120
      Top = 5
      Width = 111
      Height = 22
      Action = acClipboardToHightLightToMemo
    end
    object spClipboardToRE: TSpeedButton
      Left = 240
      Top = 5
      Width = 138
      Height = 22
      Action = acClipboardToRE
    end
    object spClipboardToWeb: TSpeedButton
      Left = 384
      Top = 5
      Width = 121
      Height = 22
      Action = acClipboardToWeb
    end
    object spWebToHtml_Memo: TSpeedButton
      Left = 512
      Top = 5
      Width = 145
      Height = 22
      Action = acWebToHtml
    end
    object spSelTextToMemo: TSpeedButton
      Left = 3
      Top = 5
      Width = 110
      Height = 22
      Action = acSelTextToMemo
    end
    object cbItem: TComboBox
      Left = 664
      Top = 8
      Width = 129
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      Text = 'cbItem'
      OnDblClick = cbItemDblClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 40
    Top = 128
    object mmFile: TMenuItem
      Caption = 'File'
      object Open1: TMenuItem
        Action = acFileOpen
      end
      object SaveAs1: TMenuItem
        Action = acFileSave
      end
      object SaveAs2: TMenuItem
        Action = acFileSaveAS
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = FileExit
      end
    end
    object mmEdit: TMenuItem
      Caption = 'Edit'
      object Undo1: TMenuItem
        Action = EditUndo
      end
      object Delete1: TMenuItem
        Action = EditDelete
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Copy1: TMenuItem
        Action = EditCopy
      end
      object Cut1: TMenuItem
        Action = EditCut
      end
      object Paste1: TMenuItem
        Action = EditPaste
      end
      object SelectAll1: TMenuItem
        Action = EditSelectAll
      end
    end
    object mmTest: TMenuItem
      Caption = 'TmpTest'
      object mmgetClipboardFormats: TMenuItem
        Caption = 'getClipboardFormats'
        OnClick = mmgetClipboardFormatsClick
      end
    end
  end
  object ActionList1: TActionList
    Left = 40
    Top = 192
    object acFileOpen: TAction
      Category = 'File'
      Caption = 'acFileOpen'
      OnExecute = acFileOpenExecute
      OnUpdate = UpdateFileOpenAndSave
    end
    object acFileSave: TAction
      Category = 'File'
      Caption = 'acFileSave'
      OnExecute = acFileSaveExecute
      OnUpdate = UpdateFileOpenAndSave
    end
    object acFileSaveAS: TAction
      Category = 'File'
      Caption = 'acFileSaveAS'
      OnExecute = acFileSaveASExecute
      OnUpdate = UpdateFileOpenAndSave
    end
    object EditCut: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object FileExit: TFileExit
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit|Quits the application'
      ImageIndex = 43
    end
    object EditPaste: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object EditSelectAll: TEditSelectAll
      Category = 'Edit'
      Caption = 'Select &All'
      Hint = 'Select All|Selects the entire document'
      ShortCut = 16449
    end
    object EditUndo: TEditUndo
      Category = 'Edit'
      Caption = '&Undo'
      Hint = 'Undo|Reverts the last action'
      ImageIndex = 3
      ShortCut = 16474
    end
    object EditDelete: TEditDelete
      Category = 'Edit'
      Caption = '&Delete'
      Hint = 'Delete|Erases the selection'
      ImageIndex = 5
      ShortCut = 46
    end
    object acSelTextToMemo: TAction
      Category = 'RE'#21491#38190
      Caption = 'acSelTextToMemo'
      OnExecute = acSelTextToMemoExecute
      OnUpdate = acSelTextToMemoUpdate
    end
    object acClipboardToWeb: TAction
      Category = 'RE'#21491#38190
      Caption = 'acClipboardToWeb'
      OnExecute = acClipboardToWebExecute
      OnUpdate = ClipboardHasData
    end
    object acClipboardToRE: TAction
      Category = 'RE'#21491#38190
      Caption = 'acClipboardToRE'
      OnExecute = acClipboardToREExecute
      OnUpdate = ClipboardHasData
    end
    object acClipboardToHightLightToMemo: TAction
      Category = 'RE'#21491#38190
      Caption = 'acClipboardToHightLightToMemo'
      OnExecute = acClipboardToHightLightToMemoExecute
      OnUpdate = ClipboardHasData
    end
    object acGetHighLishtHead: TAction
      Category = 'RE'#21491#38190
      Caption = 'acGetHighLishtHead'
      OnExecute = acGetHighLishtHeadExecute
    end
    object acGetHighLishtEnd: TAction
      Category = 'RE'#21491#38190
      Caption = 'acGetHighLishtEnd'
      OnExecute = acGetHighLishtEndExecute
    end
    object acWebToHtml: TAction
      Category = 'RE'#21491#38190
      Caption = 'acWebToHtml_Memo'
      OnExecute = acWebToHtmlExecute
    end
  end
  object PopupMenu: TPopupMenu
    Left = 36
    Top = 268
    object Copy2: TMenuItem
      Action = EditCopy
    end
    object Cut2: TMenuItem
      Action = EditCut
    end
    object Paste2: TMenuItem
      Action = EditPaste
    end
    object Delete2: TMenuItem
      Action = EditDelete
    end
    object SelectAll2: TMenuItem
      Action = EditSelectAll
    end
    object pmSetSelectFont: TMenuItem
      Caption = 'SetSelect Font'
      OnClick = pmSetSelectFontClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object pmHighLisht: TMenuItem
      Caption = 'pmHighLisht'
      object pmConvHighLight: TMenuItem
        Action = acSelTextToMemo
      end
      object pmClipboardToMemo: TMenuItem
        Action = acClipboardToHightLightToMemo
      end
      object pmGetHighLishtHead: TMenuItem
        Action = acGetHighLishtHead
      end
      object pmGetHighLishtEnd: TMenuItem
        Action = acGetHighLishtEnd
      end
    end
    object pmpmClipboardTo: TMenuItem
      Caption = 'pmClipboardTo'
      object pmacClipboardToWeb: TMenuItem
        Action = acClipboardToWeb
      end
      object pmClipboardToRE: TMenuItem
        Action = acClipboardToRE
      end
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object pmWebToHtml_Memo: TMenuItem
      Action = acWebToHtml
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object pmAbout: TMenuItem
      Caption = 'pmAbout'
      OnClick = pmAboutClick
    end
  end
end