finderunit1.dfm

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

object WPUseFinder: TWPUseFinder
  Left = 7
  Top = 168
  Width = 630
  Height = 265
  Caption = 'Finder and Character Attribute Replacing'
  Color = clBtnFace
  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 = 622
    Height = 184
    RTFText.Data = {
      3C215750546F6F6C735F466F726D617420563D3530302F3E0D0A0D0A3C766172
      6961626C65733E0D0A3C7661726961626C65206E616D653D2244617461626173
      65732220646174613D22616E73692220746578743D22444154412C4C4F4F5031
      302C4C4F4F50313030222F3E3C2F7661726961626C65733E0D0A3C6E756D6265
      727374796C65733E3C6E7374796C652069643D312077707374793D5B5B4E756D
      6265724D6F64653A32343B4E756D626572494E44454E543A3336303B4E756D62
      657254455854423A262333393B6C262333393B3B43686172466F6E743A262333
      393B57696E6744696E6773262333393B3B5D5D2F3E0D0A3C6E7374796C652069
      643D322077707374793D5B5B4E756D6265724D6F64653A31393B4E756D626572
      494E44454E543A3336303B5D5D2F3E0D0A3C6E7374796C652069643D33207770
      7374793D5B5B4E756D6265724D6F64653A313B4E756D626572494E44454E543A
      3336303B4E756D62657254455854413A262333393B2E262333393B3B5D5D2F3E
      0D0A3C6E7374796C652069643D342077707374793D5B5B4E756D6265724D6F64
      653A323B4E756D626572494E44454E543A3336303B4E756D6265725445585441
      3A262333393B2E262333393B3B5D5D2F3E0D0A3C6E7374796C652069643D3520
      77707374793D5B5B4E756D6265724D6F64653A333B4E756D626572494E44454E
      543A3336303B4E756D62657254455854413A262333393B2E262333393B3B5D5D
      2F3E0D0A3C6E7374796C652069643D362077707374793D5B5B4E756D6265724D
      6F64653A343B4E756D626572494E44454E543A3336303B4E756D626572544558
      54413A262333393B29262333393B3B5D5D2F3E0D0A3C6E7374796C652069643D
      372077707374793D5B5B4E756D6265724D6F64653A353B4E756D626572494E44
      454E543A3336303B4E756D62657254455854413A262333393B29262333393B3B
      5D5D2F3E0D0A3C6E7374796C652069643D382077707374793D5B5B4E756D6265
      724D6F64653A363B4E756D626572494E44454E543A3336303B5D5D2F3E0D0A3C
      6E7374796C652069643D392077707374793D5B5B4E756D6265724D6F64653A37
      3B4E756D626572494E44454E543A3336303B5D5D2F3E0D0A3C6E7374796C6520
      69643D31302077707374793D5B5B4E756D6265724D6F64653A383B4E756D6265
      72494E44454E543A3336303B5D5D2F3E0D0A3C6E7374796C652069643D313120
      77707374793D5B5B4E756D6265724D6F64653A31353B4E756D626572494E4445
      4E543A3336303B5D5D2F3E0D0A3C6E7374796C652069643D3132207770737479
      3D5B5B4E756D6265724D6F64653A31363B4E756D626572494E44454E543A3336
      303B5D5D2F3E0D0A3C6E7374796C652069643D31332077707374793D5B5B4E75
      6D6265724D6F64653A32333B4E756D626572494E44454E543A3336303B5D5D2F
      3E0D0A3C6E7374796C652069643D3131342077707374793D5B5B4E756D626572
      54455854423A262333393B70262333393B3B43686172466F6E743A262333393B
      57696E6744696E6773262333393B3B4E756D6265724D6F64653A32343B4E756D
      626572494E44454E543A3336303B5D5D2F3E0D0A3C6E7374796C652069643D31
      31352077707374793D5B5B4E756D62657254455854423A262333393B6E262333
      393B3B43686172466F6E743A262333393B57696E6744696E6773262333393B3B
      4E756D6265724D6F64653A32343B4E756D626572494E44454E543A3336303B5D
      5D2F3E0D0A3C6E7374796C652069643D3131362077707374793D5B5B4E756D62
      657254455854423A262333393B76262333393B3B43686172466F6E743A262333
      393B57696E6744696E6773262333393B3B4E756D6265724D6F64653A32343B4E
      756D626572494E44454E543A3336303B5D5D2F3E0D0A3C6E7374796C65206964
      3D3131372067726F75703D31206C6576656C3D312077707374793D5B5B4E756D
      6265724D6F64653A323B4E756D62657254455854413A262333393B2E26233339
      3B3B4E756D626572494E44454E543A3336303B5D5D2F3E0D0A3C6E7374796C65
      2069643D3131382067726F75703D31206C6576656C3D322077707374793D5B5B
      4E756D6265724D6F64653A343B4E756D62657254455854413A262333393B2E26
      2333393B3B4E756D626572494E44454E543A3336303B5D5D2F3E0D0A3C6E7374
      796C652069643D3131392067726F75703D31206C6576656C3D33207770737479
      3D5B5B4E756D6265724D6F64653A313B4E756D62657254455854413A26233339
      3B2E262333393B3B4E756D626572494E44454E543A3336303B5D5D2F3E0D0A3C
      6E7374796C652069643D3132302067726F75703D31206C6576656C3D34207770
      7374793D5B5B4E756D6265724D6F64653A353B4E756D62657254455854413A26
      2333393B29262333393B3B4E756D626572494E44454E543A3336303B5D5D2F3E
      0D0A3C6E7374796C652069643D3132312067726F75703D31206C6576656C3D35
      2077707374793D5B5B4E756D6265724D6F64653A333B4E756D62657254455854
      413A262333393B29262333393B3B4E756D62657254455854423A262333393B28
      262333393B3B4E756D626572494E44454E543A3336303B5D5D2F3E0D0A3C6E73
      74796C652069643D3132322067726F75703D31206C6576656C3D362077707374
      793D5B5B4E756D6265724D6F64653A353B4E756D62657254455854413A262333
      393B29262333393B3B4E756D62657254455854423A262333393B28262333393B
      3B4E756D626572494E44454E543A3336303B5D5D2F3E0D0A3C6E7374796C6520
      69643D3132332067726F75703D31206C6576656C3D372077707374793D5B5B4E
      756D6265724D6F64653A313B4E756D62657254455854413A262333393B292623
      33393B3B4E756D62657254455854423A262333393B28262333393B3B4E756D62
      6572494E44454E543A3336303B5D5D2F3E0D0A3C6E7374796C652069643D3132
      342067726F75703D31206C6576656C3D382077707374793D5B5B4E756D626572
      4D6F64653A313B4E756D62657254455854413A262333393B29262333393B3B4E
      756D62657254455854423A262333393B28262333393B3B4E756D626572494E44
      454E543A3336303B5D5D2F3E0D0A3C6E7374796C652069643D3132352067726F
      75703D31206C6576656C3D392077707374793D5B5B4E756D6265724D6F64653A
      313B4E756D62657254455854413A262333393B29262333393B3B4E756D626572
      54455854423A262333393B28262333393B3B4E756D626572494E44454E543A33
      36303B5D5D2F3E0D0A3C2F6E756D6265727374796C65733E0D0A3C7374796C65
      73686565743E3C2F7374796C6573686565743E3C6469763E3C2F6469763E0D0A
      3C6469763E3C6373206E723D312077707374793D5B5B5D5D2F3E3C63206E723D
      312F3E5468697320697320612068797065726C696E6B3A20687474703A2F2F77
      77772E777063756265642E636F6D2E3C2F6469763E0D0A3C6469763E3C2F6469
      763E0D0A3C6469763E3C63206E723D312F3E4E6F7720736F6D6520776F726473
      3A203C6373206E723D322077707374793D5B5B43686172436F6C6F723A636C52
      65643B5D5D2F3E3C63206E723D322F3E7265643C63206E723D312F3E203C6373
      206E723D332077707374793D5B5B436861724247436F6C6F723A636C47726565
      6E3B5D5D2F3E3C63206E723D332F3E677265656E3C63206E723D312F3E203C63
      73206E723D342077707374793D5B5B436861724247436F6C6F723A636C426C75
      653B5D5D2F3E3C63206E723D342F3E626C75653C63206E723D312F3E20616E64
      20616E6F74686572206C696E6B3A20687474703A2F2F7777772E777063756265
      642E636F6D3C2F6469763E0D0A3C6469763E3C2F6469763E0D0A3C6469763E3C
      2F6469763E0D0A3C6469763E3C63206E723D312F3E5468697320746578742069
      73203C6373206E723D352077707374793D5B5B436861725374796C654D61736B
      3A313B436861725374796C654F4E3A313B5D5D2F3E3C63206E723D352F3E626F
      6C643C63206E723D312F3E2C2074686973206973203C6373206E723D36207770
      7374793D5B5B436861725374796C654D61736B3A333B436861725374796C654F
      4E3A333B5D5D2F3E3C63206E723D362F3E626F6C642F6974616C69633C63206E
      723D312F3E21203C2F6469763E0D0A3C6469763E3C2F6469763E0D0A}
    RTFVariables = <
      item
        Name = 'Databases'
        SubType = wpxDefault
        Text = 'DATA,LOOP10,LOOP100'
      end>
    XOffset = 144
    YOffset = 144
    XBetween = 144
    YBetween = 144
    LayoutMode = wplayNormal
    ScrollBars = ssBoth
    EditOptions = [wpTableResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpMoveCPOnPageUpDown]
    ClipboardOptions = []
    FormatOptions = [wpShowBookmarkCodes, wpShowHyperlinkCodes, wpShowSPANCodes]
    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.HotTextColor = clRed
    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
    Align = alClient
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 184
    Width = 622
    Height = 47
    Align = alBottom
    TabOrder = 1
    object RedReplace: TButton
      Left = 12
      Top = 12
      Width = 200
      Height = 25
      Caption = 'Replace red words!'
      TabOrder = 0
      OnClick = RedReplaceClick
    end
    object Button1: TButton
      Left = 217
      Top = 12
      Width = 199
      Height = 25
      Caption = 'Make bold text red'
      TabOrder = 1
      OnClick = Button1Click
    end
    object ConvHyperlinks: TButton
      Left = 421
      Top = 13
      Width = 191
      Height = 25
      Caption = 'Convert Hyperlinks'
      TabOrder = 2
      OnClick = ConvHyperlinksClick
    end
  end
end