styleunit1.dfm

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

        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 = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'With WPStyleCollection'
      ImageIndex = 1
      object WPToolBar1: TWPToolBar
        Left = 0
        Top = 0
        Width = 837
        Height = 58
        ParentColor = False
        UseDockManager = False
        KeepGroupsTogether = True
        Align = alTop
        BevelLines = []
        AutoEnabling = True
        WidthBetweenGroups = 4
        FontChoice = fsPrinterFonts
        sel_ListBoxes = [SelFontName, SelFontSize, SelFontColor, SelBackgroundColor, SelStyle, SelParColor]
        sel_StatusIcons = [SelBold, SelItalic, SelUnder, SelLeft, SelRight, SelBlock, SelCenter]
        sel_ActionIcons = [SelOpen, SelSave, SelPrint, SelPrintSetup]
        sel_DatabaseIcons = []
        sel_EditIcons = []
        sel_TableIcons = []
        sel_OutlineIcons = [SelBullets, SelNumbers]
        FontSizeFrom = 8
        FlatButtons = False
        ButtonHeight = 0
        TrueTypeOnly = False
        object WPToolButton1: TWPToolButton
          Left = 6
          Top = 31
          Width = 23
          Height = 22
          StyleGroup = 256
          StyleNumber = 2
          UseOwnGylph = False
        end
        object Button1: TButton
          Left = 31
          Top = 31
          Width = 137
          Height = 22
          Caption = 'Edit Stylesheet'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnClick = Button1Click
        end
      end
      object WPRichText2: TWPRichText
        Left = 26
        Top = 84
        Width = 811
        Height = 412
        RTFText.Data = {
          3C215750546F6F6C735F466F726D617420563D3530302F3E0D0A3C6469763E3C
          6373206E723D312077707374793D5B5B5D5D2F3E3C63206E723D312F3E2E2E2E
          2075736520746865206C697374626F7820696E2074686520746F6F6C62617220
          746F2063726561746520616E642065646974207374796C6573213C2F6469763E
          0D0A}
        Header.DefaultTabstop = 0
        RTFVariables = <>
        SpellCheckStrategie = wpspCheckInInit
        WPToolBar = WPToolBar1
        WPRuler = WPRuler1
        VRuler = WPVertRuler1
        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]
        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
        OnOpenDialog = WPRichText2OpenDialog
        Align = alClient
        TabOrder = 1
      end
      object WPRuler1: TWPRuler
        Left = 0
        Top = 58
        Width = 837
        Height = 26
        Units = wrCentimeter
        DrawOptions = []
        TabKind = tkLeft
        Options = [wrShowTabSelector, wrShowTabStops, wrShowIndents, wpUseIntervalls]
        ColorMargin = clAppWorkSpace
        ColorBack = clBtnFace
        Align = alTop
        OnDblClick = WPRuler1DblClick
      end
      object WPVertRuler1: TWPVertRuler
        Left = 0
        Top = 84
        Width = 26
        Height = 412
        Units = wrCentimeter
        DrawOptions = []
        ColorMargin = clAppWorkSpace
        ColorBack = clBtnFace
        Align = alLeft
      end
    end
  end
  object WPStyleCollection1: TWPStyleCollection
    Styles = <
      item
        Name = 'Headline2'
        Values.Strings = (
          'CharStyleMask=5'
          'CharStyleON=5')
        CSSDisplay = wpstBlock
        IsDefaultStyle = False
      end
      item
        Name = 'Normal'
        Values.Strings = (
          'CharFont=Arial'
          'CharFontSize=1000')
        CSSDisplay = wpstBlock
        IsDefaultStyle = False
      end
      item
        Name = 'Headline1'
        Values.Strings = (
          'CharStyleMask=1'
          'CharStyleON=1')
        CSSDisplay = wpstBlock
        IsDefaultStyle = False
      end>
    SaveToStreamFormat = wpSaveWPCSSFormat
    ControlledMemos = <
      item
        EditBox = WPRichText2
        Tag = 0
      end>
    Left = 100
    Top = 135
  end
  object ActionList1: TActionList
    Left = 153
    Top = 137
  end
end