wpreptest.dfm

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

    end
    object ReportOutput: TTabSheet
      Caption = 'Output'
      ImageIndex = 3
      object DestText: TWPRichText
        Left = 0
        Top = 31
        Width = 825
        Height = 559
        RTFVariables = <>
        SpellCheckStrategie = wpspCheckInInit
        WPToolBar = WPToolBar2
        XOffset = 144
        YOffset = 144
        XBetween = 144
        YBetween = 144
        LayoutMode = wplayFullLayout
        ScrollBars = ssBoth
        EditOptions = [wpTableResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpMoveCPOnPageUpDown]
        ViewOptions = [wpDisableMisspellMarkers, 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.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
        Align = alClient
        TabOrder = 0
      end
      object WPToolBar2: TWPToolBar
        Left = 0
        Top = 0
        Width = 825
        Height = 31
        ParentColor = False
        UseDockManager = False
        KeepGroupsTogether = True
        Align = alTop
        BevelLines = []
        AutoEnabling = True
        WidthBetweenGroups = 4
        FontChoice = fsPrinterFonts
        sel_ListBoxes = []
        sel_StatusIcons = []
        sel_ActionIcons = [SelFitWidth, SelFitHeight, SelZoomIn, SelZoomOut]
        sel_DatabaseIcons = []
        sel_EditIcons = []
        sel_TableIcons = []
        sel_OutlineIcons = []
        FontSizeFrom = 8
        FlatButtons = False
        ButtonHeight = 0
        TrueTypeOnly = False
        object Button3: TButton
          Left = 102
          Top = 3
          Width = 153
          Height = 23
          Caption = 'Save Report ...'
          TabOrder = 0
          OnClick = Button3Click
        end
        object ShowFields: TCheckBox
          Left = 257
          Top = 3
          Width = 97
          Height = 17
          Alignment = taLeftJustify
          Caption = '  Show Fields'
          TabOrder = 1
          OnClick = ShowFieldsClick
        end
      end
    end
  end
  object WPReportBandsDialog1: TWPReportBandsDialog
    EditBox = SourceText
    SuperMerge = WPSuperMerge1
    AutoActivate = False
    StayOnTop = True
    DataBases.Strings = (
      'DATA'
      'LOOP100'
      'LOOP10')
    ShowFormulas = False
    ShowAddDeleteButton = True
    Left = 461
    Top = 112
  end
  object WPSuperMerge1: TWPSuperMerge
    OnMailMergeGetText = WPSuperMerge1MailMergeGetText
    BeforeProcessGroup = WPSuperMerge1BeforeProcessGroup
    Mode = wpIgnorePageHeightMode
    Bands.PaperColor = clBlack
    Bands.HeaderColor = 16760704
    Bands.FooterColor = 10253815
    Bands.DataColor = 8454016
    Bands.GroupColor = clBtnFace
    Bands.HeaderFontColor = clBlack
    Bands.FooterFontColor = clBlack
    Bands.DataFontColor = clBlack
    Bands.GroupFontColor = clBlack
    Bands.BandHeightTW = 283
    Bands.Font.Charset = DEFAULT_CHARSET
    Bands.Font.Color = clWindowText
    Bands.Font.Height = -18
    Bands.Font.Name = 'MS Sans Serif'
    Bands.Font.Style = []
    UseEvalEngine = []
    SuppressAutomaticHeaderFooter = False
    Left = 492
    Top = 113
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 61
    Top = 123
    object ShowBandDialog1: TMenuItem
      Caption = 'Show Band Dialog'
      OnClick = Button1Click
    end
    object InsertField1: TMenuItem
      Caption = 'Insert Field'
      OnClick = Button2Click
    end
    object InsertParagraphatendofthisgroup1: TMenuItem
      Caption = 'Insert Paragraph at end of this group [INS]'
      OnClick = InsertParagraphatendofthisgroup1Click
    end
  end
  object InsFieldPopup: TPopupMenu
    Left = 367
    Top = 109
    object ESTData1: TMenuItem
      Caption = 'TEST Data'
      OnClick = ESTData1Click
    end
    object estNumber1: TMenuItem
      Caption = 'Test Number'
      OnClick = estNumber1Click
    end
    object otaltablefooter1: TMenuItem
      Caption = 'Total (table footer)'
      OnClick = otaltablefooter1Click
    end
    object SumField: TMenuItem
      Caption = 'Page Sum field (footer rows)'
      OnClick = SumFieldClick
    end
  end
  object WPFormulaInterface1: TWPFormulaInterface
    OnTextObjectPaintCalc = WPFormulaInterface1TextObjectPaintCalc
    Left = 367
    Top = 155
  end
end