stymainu.dfm

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

        'WST_Ital'
        'WST_Span'
        'WST_Swed'
        'ZapfEllipt BT'
        'Zurich Ex BT')
      ComboBoxStyle = cbsScreenFonts
      DontApplyChanges = False
    end
    object WPComboBox3: TWPComboBox
      Left = 446
      Top = 7
      Width = 82
      Height = 22
      Style = csOwnerDrawFixed
      ItemHeight = 16
      TabOrder = 3
      Items.Strings = (
        ' 6'
        ' 7'
        ' 8'
        ' 9'
        ' 10'
        ' 11'
        ' 12'
        ' 13'
        ' 14'
        ' 15'
        ' 16'
        ' 17'
        ' 18'
        ' 19'
        ' 20'
        ' 21'
        ' 22'
        ' 23'
        ' 24'
        ' 25'
        ' 26'
        ' 27'
        ' 28'
        ' 29'
        ' 30'
        ' 31'
        ' 32'
        ' 33'
        ' 34'
        ' 35'
        ' 36'
        ' 37'
        ' 38'
        ' 39'
        ' 40'
        ' 41'
        ' 42'
        ' 43'
        ' 44'
        ' 45'
        ' 46'
        ' 47'
        ' 48'
        ' 49'
        ' 50'
        ' 51'
        ' 52'
        ' 53'
        ' 54'
        ' 55'
        ' 56'
        ' 57'
        ' 58'
        ' 59'
        ' 60'
        ' 61'
        ' 62'
        ' 63'
        ' 64'
        ' 65'
        ' 66'
        ' 67'
        ' 68'
        ' 69'
        ' 70'
        ' 71'
        ' 72')
      ComboBoxStyle = cbsFontSize
      DontApplyChanges = False
    end
    object WPComboBox4: TWPComboBox
      Left = 529
      Top = 7
      Width = 82
      Height = 22
      Style = csOwnerDrawFixed
      ItemHeight = 16
      ItemIndex = 0
      TabOrder = 4
      Text = '0'
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15')
      ComboBoxStyle = cbsColor
      DontApplyChanges = False
    end
  end
  object StyleParent: TWPRichText
    Left = 209
    Top = 73
    Width = 100
    Height = 100
    RTFVariables = <>
    OnInitializeRTFDataObject = StyleParentInitializeRTFDataObject
    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 = []
    FormatOptions = [wpShowBookmarkCodes]
    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
    TabOrder = 2
    Visible = False
  end
  object InfoPanel: TPanel
    Left = 197
    Top = 117
    Width = 421
    Height = 41
    Caption = 'InfoPanel'
    TabOrder = 3
    Visible = False
  end
  object MainMenu1: TMainMenu
    Left = 397
    Top = 121
    object File1: TMenuItem
      Caption = 'File'
      object Open1: TMenuItem
        Caption = 'Open'
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = 'Save'
        OnClick = Save1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Close1: TMenuItem
        Caption = 'Close'
      end
    end
    object Styles1: TMenuItem
      Caption = 'Styles'
      object EditStylesheet1: TMenuItem
        Caption = 'Edit Stylesheet'
        OnClick = EditStylesheet1Click
      end
    end
    object GenerateText1: TMenuItem
      Caption = 'Generate Text'
      object CreateBigText: TMenuItem
        Caption = 'TOC + memos'
        OnClick = CreateBigTextClick
      end
    end
    object Windows1: TMenuItem
      Caption = 'Windows'
      object ile1: TMenuItem
        Caption = 'Tile'
        OnClick = ile1Click
      end
      object WIndMenu: TMenuItem
        Caption = '-'
      end
    end
  end
  object WPDefaultActions1: TWPDefaultActions
    ControlledMemos = <>
    AssignMenu = False
    Left = 355
    Top = 120
  end
  object WPStyleDlg1: TWPStyleDlg
    ShowValueList = False
    Left = 366
    Top = 62
  end
  object WPPreviewDlg1: TWPPreviewDlg
    EditBox = StyleParent
    DefaultLeft = 10
    DefaultTop = 10
    DefaultPosition = poScreenCenter
    DefaultWidth = 319
    DefaultHeight = 426
    MinHeight = 220
    MinWidth = 220
    ZoomMode = wp100Percent
    WindowState = wsNormal
    DisabledDialogs = [wpStartPrint, wpStartSave, wpdiaLoad, wpdiaCanClose, wpStartNewDocument, wpdiaThesaurus, wpdiaFind, wpdiaReplace]
    Left = 229
    Top = 194
  end
end