sectappendu.dfm

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

      FieldObjectTextAttr.BackgroundColor = clBlack
      FieldObjectTextAttr.UseUnderlineColor = False
      FieldObjectTextAttr.UseTextColor = False
      FieldObjectTextAttr.UseBackgroundColor = False
      WriteObjectMode = wobRTF
      OneClickHyperlink = False
      Align = alRight
      TabOrder = 4
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 20
      Height = 283
      Align = alLeft
      BevelOuter = bvNone
      Caption = '1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 283
    Width = 773
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Append: TButton
      Left = 11
      Top = 7
      Width = 170
      Height = 25
      Caption = 'Append All (manual)'
      TabOrder = 0
      OnClick = AppendClick
    end
    object TestRTF: TButton
      Left = 770
      Top = 7
      Width = 75
      Height = 25
      Caption = 'TestRTF'
      TabOrder = 1
      OnClick = TestRTFClick
    end
    object TestWPT: TButton
      Left = 848
      Top = 7
      Width = 75
      Height = 25
      Caption = 'TestWPT'
      TabOrder = 2
      OnClick = TestWPTClick
    end
    object Append2: TButton
      Left = 183
      Top = 7
      Width = 170
      Height = 25
      Hint = '  WPAll.HeaderFooter.AppendAsSection(WP1.HeaderFooter);'
      Caption = 'Append All: Alternative'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = Append2Click
    end
    object AppendWithStrings: TButton
      Left = 356
      Top = 7
      Width = 170
      Height = 25
      Hint = 
        'WPAll.AsString := '#39'<newsection/>'#39' + WP1.AsANSIString('#39'WPTOOLS'#39') ' +
        '+ ...'
      Caption = 'Append All: concat strings'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = AppendWithStringsClick
    end
    object Button2: TButton
      Left = 529
      Top = 7
      Width = 75
      Height = 25
      Caption = 'Preview'
      TabOrder = 5
      OnClick = Button2Click
    end
  end
  object WPAll: TWPRichText
    Left = 0
    Top = 324
    Width = 773
    Height = 138
    RTFVariables = <>
    SpellCheckStrategie = wpspCheckInInit
    XOffset = 144
    YOffset = 144
    XBetween = 144
    YBetween = 144
    AutoZoom = wpAutoZoomAdjustColumnCount
    Zooming = 8
    PageColumns = 8
    LayoutMode = wplayFullLayout
    ScrollBars = ssBoth
    EditOptions = [wpTableResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpMoveCPOnPageUpDown]
    ViewOptions = [wpDontGrayHeaderFooterInLayout]
    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.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 = wobRTF
    OneClickHyperlink = False
    Align = alClient
    TabOrder = 2
  end
  object WPPreviewDlg1: TWPPreviewDlg
    EditBox = WPAll
    DefaultLeft = 10
    DefaultTop = 10
    DefaultPosition = poScreenCenter
    DefaultWidth = 319
    DefaultHeight = 426
    MinHeight = 220
    MinWidth = 220
    ZoomMode = wpPvDoublePage
    WindowState = wsNormal
    DisabledDialogs = [wpStartPrint, wpStartSave, wpdiaLoad, wpdiaCanClose, wpStartNewDocument, wpdiaThesaurus, wpdiaFind, wpdiaReplace]
    AllowEditMode = True
    Left = 404
    Top = 360
  end
end