mainfrm.dfm

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

object FrmMain: TFrmMain
  Left = 116
  Top = 109
  Width = 820
  Height = 596
  Caption = 'FrmMain'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 812
    Height = 24
    AutoSize = True
    ButtonHeight = 20
    ButtonWidth = 73
    Caption = 'ToolBar1'
    ShowCaptions = True
    TabOrder = 0
    object tbtnFileOpen: TToolButton
      Left = 0
      Top = 2
      Action = acFileOpen
    end
    object tbtnFileSave: TToolButton
      Left = 73
      Top = 2
      Action = acFileSave
    end
    object tbtnEditSelectAll: TToolButton
      Left = 146
      Top = 2
      Action = EditSelectAll
    end
    object chkIsAddClip: TCheckBox
      Left = 219
      Top = 2
      Width = 83
      Height = 20
      Caption = #25918#21040#21098#20999#26495
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object chkIsClearMemo: TCheckBox
      Left = 302
      Top = 2
      Width = 84
      Height = 20
      Caption = 'IsClearMemo'
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object ToolButton1: TToolButton
      Left = 386
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object pnlAccSet: TPanel
      Left = 394
      Top = 2
      Width = 87
      Height = 20
      BevelOuter = bvNone
      Caption = 'pnlAccSet'
      TabOrder = 4
      OnClick = pnlAccSetClick
    end
    object cbAcciType: TComboBox
      Left = 481
      Top = 2
      Width = 98
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 1
      Text = 'Delphi'
      Items.Strings = (
        'Delphi'
        'C++'
        'CSharp'
        'VB'
        'XML_HTML')
    end
    object cbConvType: TComboBox
      Left = 579
      Top = 2
      Width = 67
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 2
      Text = 'ctHtml'
      Items.Strings = (
        'ctHtml'
        'ctRTL')
    end
    object btnSetting: TToolButton
      Left = 646
      Top = 2
      Caption = '&Setting...'
      ImageIndex = 3
      OnClick = btnSettingClick
    end
  end
  object pcMain: TPageControl
    Left = 0
    Top = 57
    Width = 812
    Height = 493
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    TabPosition = tpBottom
    object tsRichEdit: TTabSheet
      Caption = 'tsRichEdit'
      ImageIndex = 1
      object lblRichEditFileName: TLabel
        Left = 0
        Top = 0
        Width = 804
        Height = 12
        Align = alTop
        Alignment = taCenter
        Caption = 'lblRichEditFileName'
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu
        Transparent = True
        WordWrap = True
      end
      object RichEdit: TRichEdit
        Left = 184
        Top = 144
        Width = 603
        Height = 283
        Align = alCustom
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        HideSelection = False
        Lines.Strings = (
          'RichEdit1')
        ParentFont = False
        PopupMenu = PopupMenu
        ScrollBars = ssBoth
        TabOrder = 0
        OnKeyDown = RichEditKeyDown
      end
    end
    object tsShowHtml: TTabSheet
      Caption = 'tsShowHtml'
      object lblWebBrowser: TLabel
        Left = 0
        Top = 0
        Width = 78
        Height = 12
        Align = alTop
        Alignment = taCenter
        Caption = 'lblWebBrowser'
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu
        Transparent = True
        WordWrap = True
      end
      object WebBrowser: TWebBrowser
        Left = 192
        Top = 104
        Width = 595
        Height = 323
        Align = alCustom
        TabOrder = 0
        ControlData = {
          4C0000007F3D0000622100000000000000000000000000000000000000000000
          000000004C000000000000000000000001000000E0D057007335CF11AE690800
          2B2E126208000000000000004C0000000114020000000000C000000000000046
          8000000000000000000000000000000000000000000000000000000000000000
          00000000000000000100000000000000000000000000000000000000}
      end
    end
    object tsMemo: TTabSheet
      Caption = 'tsMemo'
      ImageIndex = 2
      object lblMemo: TLabel
        Left = 0
        Top = 0
        Width = 804
        Height = 12
        Align = alTop
        Alignment = taCenter
        Caption = 'lblMemo'
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu
        Transparent = True
        WordWrap = True
      end
      object Memo: TMemo
        Left = 224
        Top = 112
        Width = 563
        Height = 315
        Align = alCustom
        HideSelection = False
        Lines.Strings = (
          'Memo1')
        PopupMenu = PopupMenu
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      ImageIndex = 3
      PopupMenu = PopupMenu
      object lblSrcDir: TLabel
        Left = 124
        Top = 5
        Width = 36
        Height = 12
        Alignment = taRightJustify
        Caption = #28304#30446#24405
      end
      object lblDesDir: TLabel
        Left = 112
        Top = 49
        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = #30446#30340#30446#24405
      end
      object lblFileExt: TLabel
        Left = 88
        Top = 27
        Width = 72
        Height = 12
        Alignment = taRightJustify
        Caption = #35201#36716#25991#20214#21518#32512
      end
      object lblMsg: TLabel
        Left = 266
        Top = 86
        Width = 6
        Height = 12
        OnClick = lblMsgClick
      end
      object lblSrcFile: TLabel
        Left = 124
        Top = 277
        Width = 36
        Height = 12
        Alignment = taRightJustify
        Caption = #28304#25991#20214
      end
      object lblDesFile: TLabel
        Left = 112
        Top = 308
        Width = 48
        Height = 12
        Alignment = taRightJustify
        Caption = #30446#30340#25991#20214
      end
      object spSelectFile: TSpeedButton
        Left = 728
        Top = 272
        Width = 23
        Height = 22
        Caption = '...'
        OnClick = spSelectFileClick
      end
      object spSaveFile: TSpeedButton
        Left = 728
        Top = 304
        Width = 23
        Height = 22
        Caption = '...'
        OnClick = spSaveFileClick
      end
      object lblCurSrc: TLabel
        Left = 168
        Top = 134
        Width = 585
        Height = 59
        AutoSize = False
        Transparent = True
        WordWrap = True
      end
      object lblCurDes: TLabel
        Left = 168
        Top = 198
        Width = 585
        Height = 67
        AutoSize = False
        Transparent = True
        WordWrap = True
      end
      object edtSrc: TEdit
        Left = 168
        Top = 0
        Width = 585
        Height = 20
        TabOrder = 0
        Text = 'C:\Program Files\Borland\Delphi7\Projects\CnWizards'
      end
      object edtDes: TEdit
        Left = 168
        Top = 48
        Width = 585
        Height = 20
        TabOrder = 1
        Text = 'E:\Test\'
      end
      object btnTran: TButton
        Left = 168
        Top = 80
        Width = 75
        Height = 25
        Caption = #20840#36716
        TabOrder = 2
        OnClick = btnTranClick
      end