numbering.dfm

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

object Form1: TForm1
  Left = 257
  Top = 153
  Width = 990
  Height = 598
  Caption = 'Numbers in WPTools 5'
  Color = 15908791
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 120
  TextHeight = 16
  object WPRichText1: TWPRichText
    Left = 0
    Top = 0
    Width = 797
    Height = 322
    RTFText.Data = {
      3C215750546F6F6C735F466F726D617420563D3530303E0D0A3C6469763E3C63
      73206E723D312077707374793D5B5B5D5D2F3E3C63206E723D312F3E6A757374
      2061206C696E65206F6620746578743C2F6469763E0D0A3C6469763E3C63206E
      723D312F3E41206C6F6E676572206C696E65207769746820776F726420777261
      70202E2E2E206161612062626220636363632061616120626262206363636320
      6161612062626220636363632061616120626262206363636320616161206262
      6220636363632061616120626262206363636320616161206262622063636363
      2061616120626262206363636320616161206262622063636363206161612062
      6262206363636320616161206262622063636363206161612062626220636363
      6320616161206262622063636363206161612062626220636363632061616120
      6262622063636363203C2F6469763E0D0A3C6469763E3C63206E723D312F3E6F
      6E65206D6F7265206C696E653C2F6469763E0D0A3C6469763E3C63206E723D31
      2F3E616E64206F6E65206D6F72653C2F6469763E0D0A3C6469763E3C2F646976
      3E0D0A3C6469763E3C63206E723D312F3E616161616161616161616161616161
      61616161613C2F6469763E0D0A3C6469763E3C63206E723D312F3E6262626262
      626262626262626262626262626262623C2F6469763E0D0A3C6469763E3C6320
      6E723D312F3E636363636363636363636363636363636363636363636363633C
      2F6469763E0D0A3C6469763E3C63206E723D312F3E6464646464646464646464
      6464646464646464643C2F6469763E0D0A3C6469763E3C63206E723D312F3E65
      65656565656565656565656565656565656565653C2F6469763E0D0A3C646976
      3E3C63206E723D312F3E66666666666666666666666666666666666666666666
      6666663C2F6469763E0D0A3C6469763E3C63206E723D312F3E67676767676767
      676767676767676767673C2F6469763E0D0A3C6469763E3C63206E723D312F3E
      68686868686868686868686868686868686868683C2F6469763E0D0A3C646976
      3E3C63206E723D312F3E69696969696969696969696969696969696969696969
      6969696969696969696969696969696969693C2F6469763E0D0A}
    RTFVariables = <>
    XOffset = 144
    YOffset = 144
    XBetween = 144
    YBetween = 144
    LayoutMode = wplayNormal
    ScrollBars = ssNone
    EditOptions = [wpTableResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpMoveCPOnPageUpDown]
    ClipboardOptions = []
    ProtectedProp = []
    HyperLinkCursor = crArrow
    TextObjectCursor = crHandPoint
    InsertPointAttr.Bold = tsIgnore
    InsertPointAttr.Italic = tsIgnore
    InsertPointAttr.DoubleUnderline = False
    InsertPointAttr.Underline = tsIgnore
    InsertPointAttr.StrikeOut = tsIgnore
    InsertPointAttr.StrikeOutColor = clBlack
    InsertPointAttr.SuperScript = tsIgnore
    InsertPointAttr.SubScript = tsIgnore
    InsertPointAttr.Hidden = False
    InsertPointAttr.UnderlineColor = clBlack
    InsertPointAttr.TextColor = clRed
    InsertPointAttr.BackgroundColor = clBlack
    InsertPointAttr.UseUnderlineColor = False
    InsertPointAttr.UseTextColor = True
    InsertPointAttr.UseBackgroundColor = False
    HyperlinkTextAttr.Bold = tsIgnore
    HyperlinkTextAttr.Italic = tsIgnore
    HyperlinkTextAttr.DoubleUnderline = False
    HyperlinkTextAttr.Underline = tsTRUE
    HyperlinkTextAttr.StrikeOut = tsIgnore
    HyperlinkTextAttr.StrikeOutColor = clBlack
    HyperlinkTextAttr.SuperScript = tsIgnore
    HyperlinkTextAttr.SubScript = tsIgnore
    HyperlinkTextAttr.Hidden = False
    HyperlinkTextAttr.UnderlineColor = clBlue
    HyperlinkTextAttr.TextColor = clBlack
    HyperlinkTextAttr.BackgroundColor = clBlack
    HyperlinkTextAttr.UseUnderlineColor = True
    HyperlinkTextAttr.UseTextColor = False
    HyperlinkTextAttr.UseBackgroundColor = False
    HyperlinkTextAttr.HotUnderlineColor = clRed
    HyperlinkTextAttr.UseHotUnderlineColor = True
    HyperlinkTextAttr.HotTextColor = clRed
    HyperlinkTextAttr.UseHotTextColor = True
    HyperlinkTextAttr.HotUnderline = tsTRUE
    HyperlinkTextAttr.HotStyleIsActive = True
    BookmarkTextAttr.Bold = tsIgnore
    BookmarkTextAttr.Italic = tsIgnore
    BookmarkTextAttr.DoubleUnderline = False
    BookmarkTextAttr.Underline = tsIgnore
    BookmarkTextAttr.StrikeOut = tsIgnore
    BookmarkTextAttr.StrikeOutColor = clBlack
    BookmarkTextAttr.SuperScript = tsIgnore
    BookmarkTextAttr.SubScript = tsIgnore
    BookmarkTextAttr.Hidden = False
    BookmarkTextAttr.UnderlineColor = clBlack
    BookmarkTextAttr.TextColor = clBlack
    BookmarkTextAttr.BackgroundColor = clBlack
    BookmarkTextAttr.UseUnderlineColor = False
    BookmarkTextAttr.UseTextColor = False
    BookmarkTextAttr.UseBackgroundColor = False
    SPANObjectTextAttr.Bold = tsIgnore
    SPANObjectTextAttr.Italic = tsIgnore
    SPANObjectTextAttr.DoubleUnderline = False
    SPANObjectTextAttr.Underline = tsIgnore
    SPANObjectTextAttr.StrikeOut = tsIgnore
    SPANObjectTextAttr.StrikeOutColor = clBlack
    SPANObjectTextAttr.SuperScript = tsIgnore
    SPANObjectTextAttr.SubScript = tsIgnore
    SPANObjectTextAttr.Hidden = False
    SPANObjectTextAttr.UnderlineColor = clBlack
    SPANObjectTextAttr.TextColor = clBlack
    SPANObjectTextAttr.BackgroundColor = clBlack
    SPANObjectTextAttr.UseUnderlineColor = False
    SPANObjectTextAttr.UseTextColor = False
    SPANObjectTextAttr.UseBackgroundColor = False
    HiddenTextAttr.Bold = tsIgnore
    HiddenTextAttr.Italic = tsIgnore
    HiddenTextAttr.DoubleUnderline = False
    HiddenTextAttr.Underline = tsIgnore
    HiddenTextAttr.StrikeOut = tsIgnore
    HiddenTextAttr.StrikeOutColor = clBlack
    HiddenTextAttr.SuperScript = tsIgnore
    HiddenTextAttr.SubScript = tsIgnore
    HiddenTextAttr.Hidden = True
    HiddenTextAttr.UnderlineColor = clBlack
    HiddenTextAttr.TextColor = clBlack
    HiddenTextAttr.BackgroundColor = clBlack
    HiddenTextAttr.UseUnderlineColor = False
    HiddenTextAttr.UseTextColor = False
    HiddenTextAttr.UseBackgroundColor = False
    AutomaticTextAttr.Bold = tsIgnore
    AutomaticTextAttr.Italic = tsIgnore
    AutomaticTextAttr.DoubleUnderline = False
    AutomaticTextAttr.Underline = tsIgnore
    AutomaticTextAttr.StrikeOut = tsIgnore
    AutomaticTextAttr.StrikeOutColor = clBlack
    AutomaticTextAttr.SuperScript = tsIgnore
    AutomaticTextAttr.SubScript = tsIgnore
    AutomaticTextAttr.Hidden = False
    AutomaticTextAttr.UnderlineColor = clBlack
    AutomaticTextAttr.TextColor = clBlack
    AutomaticTextAttr.BackgroundColor = clBlack
    AutomaticTextAttr.UseUnderlineColor = False
    AutomaticTextAttr.UseTextColor = False
    AutomaticTextAttr.UseBackgroundColor = False
    ProtectedTextAttr.Bold = tsIgnore
    ProtectedTextAttr.Italic = tsIgnore
    ProtectedTextAttr.DoubleUnderline = False
    ProtectedTextAttr.Underline = tsIgnore
    ProtectedTextAttr.StrikeOut = tsIgnore
    ProtectedTextAttr.StrikeOutColor = clBlack
    ProtectedTextAttr.SuperScript = tsIgnore
    ProtectedTextAttr.SubScript = tsIgnore
    ProtectedTextAttr.Hidden = False
    ProtectedTextAttr.UnderlineColor = clBlack
    ProtectedTextAttr.TextColor = clBlack
    ProtectedTextAttr.BackgroundColor = clBlack
    ProtectedTextAttr.UseUnderlineColor = False
    ProtectedTextAttr.UseTextColor = False
    ProtectedTextAttr.UseBackgroundColor = False
    FieldObjectTextAttr.Bold = tsIgnore
    FieldObjectTextAttr.Italic = tsIgnore
    FieldObjectTextAttr.DoubleUnderline = False
    FieldObjectTextAttr.Underline = tsIgnore
    FieldObjectTextAttr.StrikeOut = tsIgnore
    FieldObjectTextAttr.StrikeOutColor = clBlack
    FieldObjectTextAttr.SuperScript = tsIgnore
    FieldObjectTextAttr.SubScript = tsIgnore
    FieldObjectTextAttr.Hidden = False
    FieldObjectTextAttr.UnderlineColor = clBlack
    FieldObjectTextAttr.TextColor = clBlack
    FieldObjectTextAttr.BackgroundColor = clBlack
    FieldObjectTextAttr.UseUnderlineColor = False
    FieldObjectTextAttr.UseTextColor = False
    FieldObjectTextAttr.UseBackgroundColor = False
    WriteObjectMode = wobStandard
    OneClickHyperlink = False
    OnDblClick = WPRichText1DblClick
    Align = alClient
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 797
    Top = 0
    Width = 185
    Height = 322
    Align = alRight
    TabOrder = 1
    object Button1: TButton
      Left = 14
      Top = 17
      Width = 75
      Height = 25
      Caption = '1,2,3,4'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Before1: TEdit
      Left = 93
      Top = 19
      Width = 25
      Height = 24
      TabOrder = 1
    end
    object After1: TEdit
      Left = 123
      Top = 19
      Width = 25
      Height = 24
      TabOrder = 2
      Text = '.'
    end
    object Outline: TButton
      Left = 13
      Top = 52
      Width = 75
      Height = 25
      Caption = 'Outline'
      TabOrder = 3
      OnClick = OutlineClick
    end
    object Button2: TButton
      Left = 8
      Top = 282
      Width = 75
      Height = 25
      Caption = 'vvv'
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 86
      Top = 281
      Width = 75
      Height = 25
      Caption = '^^^'
      TabOrder = 5
      OnClick = Button3Click
    end
    object CreateLegalOutline: TButton
      Left = 17
      Top = 151
      Width = 147
      Height = 25
      Caption = 'Create Legal'
      TabOrder = 6
      OnClick = CreateLegalOutlineClick
    end
    object GetPartText: TButton
      Left = 17
      Top = 203
      Width = 152
      Height = 25
      Caption = 'Par Text'
      TabOrder = 7
      OnClick = GetPartTextClick
    end
    object Button4: TButton
      Left = 18
      Top = 90
      Width = 75
      Height = 25
      Caption = 'Button4'
      TabOrder = 8
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 110
      Top = 64
      Width = 75
      Height = 25
      Caption = 'Button5'
      TabOrder = 9
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 103
      Top = 99
      Width = 75
      Height = 25
      Caption = 'Button6'
      TabOrder = 10
      OnClick = Button6Click
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 322
    Width = 982
    Height = 242
    Align = alBottom
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssVertical
    TabOrder = 2
  end
end