tbxd_u1.dfm

wptools5 pro 完整源代码 Msword界面的文本编辑器源代码

object WPTBXForm: TWPTBXForm
  Left = 108
  Top = 157
  Width = 947
  Height = 682
  ActiveControl = WPRichText1
  Caption = 'WPTools 5 Demo Wordprocessor (uses "TBX")'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object TBDock1: TTBXDock
    Left = 0
    Top = 0
    Width = 939
    Height = 57
    object TBToolbar1: TTBXToolbar
      Left = 0
      Top = 0
      Caption = 'Menu Bar'
      CloseButton = False
      DockPos = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Tahoma'
      Font.Style = []
      FullSize = True
      MenuBar = True
      ParentFont = False
      ProcessShortCuts = True
      ShrinkMode = tbsmWrap
      TabOrder = 0
      object TBXSubmenuItem1: TTBXSubmenuItem
        Caption = '&File'
        object TBXItem4: TTBXItem
          Caption = '&New'
          ImageIndex = 28
          ShortCut = 16462
        end
        object TBXItem1: TTBXItem
          Action = WPAOpen1
        end
        object TBXItem5: TTBXItem
          Caption = '&Close'
          OnClick = TBXItem5Click
        end
        object TBXSeparatorItem1: TTBXSeparatorItem
        end
        object TBXItem2: TTBXItem
          Action = WPASave1
        end
        object TBXSeparatorItem2: TTBXSeparatorItem
        end
        object TBXItem6: TTBXItem
          Caption = 'Page Set&up...'
          OnClick = TBXItem6Click
        end
        object TBXItem15: TTBXItem
          Caption = 'Print Pre&view'
          ImageIndex = 34
          OnClick = TBXItem15Click
        end
        object TBXItem76: TTBXItem
          Caption = 'Setup Printer'
          OnClick = TBXItem76Click
        end
        object TBXItem7: TTBXItem
          Caption = '&Print'
          ImageIndex = 33
          ShortCut = 16464
          OnClick = TBXItem7Click
        end
        object TBXItem67: TTBXItem
          Caption = 'Print Label'
          OnClick = TBXItem67Click
        end
        object TBXSeparatorItem3: TTBXSeparatorItem
        end
        object TBXItem8: TTBXItem
          Caption = 'E&xit'
        end
      end
      object mnEdit: TTBXSubmenuItem
        Caption = '&Edit'
        object TBXSeparatorItem7: TTBXSeparatorItem
        end
        object TBXItem65: TTBXItem
          Action = WPAUndo1
        end
        object TBXItem64: TTBXItem
          Action = WPARedo1
        end
        object TBXSeparatorItem4: TTBXSeparatorItem
        end
        object TBXItem9: TTBXItem
          Action = WPACopy1
        end
        object TBXItem10: TTBXItem
          Action = WPACut1
        end
        object TBXItem11: TTBXItem
          Action = WPAPaste1
        end
        object TBXSeparatorItem11: TTBXSeparatorItem
        end
        object TBXItem56: TTBXItem
          Action = WPASellAll1
        end
        object TBXSeparatorItem17: TTBXSeparatorItem
        end
        object TBXItem57: TTBXItem
          Action = WPASearch2
        end
        object TBXItem58: TTBXItem
          Action = WPAReplace2
        end
        object TBXSeparatorItem14: TTBXSeparatorItem
        end
        object TBXItem13: TTBXItem
          Caption = 'Delete Empty Paragraphs'
          OnClick = TBXItem13Click
        end
      end
      object TBXSubmenuItem11: TTBXSubmenuItem
        Caption = '&Insert'
        object TBXItem14: TTBXItem
          Caption = 'Graphic - embedded'
          OnClick = TBXItem14Click
        end
        object TBXItem29: TTBXItem
          Caption = 'Graphic - linked'
          OnClick = TBXItem29Click
        end
        object TBXItem63: TTBXItem
          Action = AInsBook
        end
        object TBXItem60: TTBXItem
          Action = AInsHyper
        end
        object TBXSubmenuItem7: TTBXSubmenuItem
          Caption = 'Field'
          object TBXItem22: TTBXItem
            Caption = 'Page Number'
            OnClick = TBXItem22Click
          end
          object TBXItem26: TTBXItem
            Tag = 1
            Caption = 'Next Page Number'
            OnClick = TBXItem22Click
          end
          object TBXItem27: TTBXItem
            Tag = 2
            Caption = 'Prior Page Number'
            OnClick = TBXItem22Click
          end
          object TBXItem23: TTBXItem
            Tag = 3
            Caption = 'Page Count'
            OnClick = TBXItem22Click
          end
          object TBXItem25: TTBXItem
            Tag = 4
            Caption = 'Date'
            OnClick = TBXItem22Click
          end
          object TBXItem24: TTBXItem
            Tag = 5
            Caption = 'Time'
            OnClick = TBXItem22Click
          end
          object TBXSeparatorItem10: TTBXSeparatorItem
          end
          object TBXItem30: TTBXItem
            Caption = 'Name ...'
            OnClick = TBXItem30Click
          end
        end
        object TBXItem20: TTBXItem
          Caption = 'Merge Field'
          OnClick = TBXItem20Click
        end
        object TBXSubmenuItem6: TTBXSubmenuItem
          Caption = 'Table Of Contents'
          object TBXSubmenuItem12: TTBXSubmenuItem
            Caption = 'Mark Paragraph to be Headline'
            object TBXItem78: TTBXItem
              Caption = 'ON'
              ShortCut = 16456
              OnClick = TBXItem78Click
            end
            object TBXItem77: TTBXItem
              Caption = 'OFF'
              ShortCut = 49224
              OnClick = TBXItem77Click
            end
          end
          object TBXItem31: TTBXItem
            Caption = 'Insert/Update TOC'
            OnClick = TBXItem31Click
          end
        end
        object TBXItem55: TTBXItem
          Caption = 'Page Break'
          OnClick = TBXItem55Click
        end
        object TBXItem80: TTBXItem
          Caption = 'Section break'
          OnClick = TBXItem80Click
        end
        object TBXItem66: TTBXItem
          Caption = 'Insert horizontal line'
          OnClick = TBXItem66Click
        end
        object TBXItem59: TTBXItem
          Caption = 'Insert Footnote'
          OnClick = TBXItem59Click
        end
        object TBXSeparatorItem22: TTBXSeparatorItem
        end
        object TBXItem36: TTBXItem
          Caption = 'InsertTextBox'
          OnClick = TBXItem36Click
        end
      end
      object TBXSubmenuItem5: TTBXSubmenuItem
        Caption = '&View'
        object TBXItem18: TTBXItem
          Caption = 'Manage Header and Footer'
          OnClick = TBXItem18Click
        end
        object TBXSeparatorItem6: TTBXSeparatorItem
        end
        object TBXSubmenuItem8: TTBXSubmenuItem
          Caption = 'Zoom'
          ImageIndex = 34
          Options = [tboDropdownArrow]
          ToolBoxPopup = True
          object TBXStringList1: TTBXStringList
            ItemIndex = 6
            Strings.Strings = (
              'Page Width'
              'Full Page'
              'Double Page'
              '25%'
              '50%'
              '75%'
              '100%'
              '125%'
              '150%'
              '200%')
            OnChange = TBXList1Change
          end
        end
        object TBXVisibilityToggleItem2: TTBXVisibilityToggleItem
          Caption = 'Show Thumbnails'
          Control = ThumbWindow
          ImageIndex = 30
        end
        object TBXSeparatorItem8: TTBXSeparatorItem
        end
        object showBookM: TTBXItem
          Caption = 'Bookmark Codes'
          OnClick = showBookMClick
        end
        object ShowHyper: TTBXItem
          Caption = 'Hyperlink Codes'
          OnClick = ShowHyperClick
        end
        object ShowMailM: TTBItem
          Caption = 'Mailmerge Codes'
          Checked = True