edsspelldemou.dfm

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

object WPToolsDemoEditor: TWPToolsDemoEditor
  Left = 76
  Top = 371
  Width = 874
  Height = 578
  Caption = 'WPTools Editor'
  Color = clWindow
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object StatusBar1: TStatusBar
    Left = 0
    Top = 525
    Width = 866
    Height = 19
    Panels = <>
  end
  object EditorParent1: TPanel
    Left = 0
    Top = 41
    Width = 866
    Height = 484
    Align = alClient
    BevelOuter = bvNone
    Caption = ' '
    TabOrder = 1
    object WPRichText1: TWPRichText
      Left = 26
      Top = 26
      Width = 840
      Height = 458
      Header.DefaultTopMargin = 720
      Header.DefaultBottomMargin = 720
      Header.DefaultLeftMargin = 720
      Header.DefaultRightMargin = 720
      Header.LeftMargin = 720
      Header.RightMargin = 720
      Header.TopMargin = 720
      Header.BottomMargin = 720
      RTFVariables = <
        item
          Name = 'Databases'
          SubType = wpxDefault
          Text = 'DATA,LOOP10,LOOP100'
        end>
      WPToolBar = WPToolPanel1
      WPRuler = WPRuler1
      VRuler = WPVertRuler1
      XOffset = 140
      YOffset = 140
      XBetween = 140
      YBetween = 140
      LayoutMode = wplayFullLayout
      ScrollBars = ssBoth
      EditOptions = [wpTableResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpActivateRedo, wpActivateRedoHotkey, 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 = wobRTF
      OneClickHyperlink = False
      OnOpenDialog = WPRichText1OpenDialog
      Align = alClient
      TabOrder = 0
    end
    object WPRuler1: TWPRuler
      Left = 0
      Top = 0
      Width = 866
      Height = 26
      Units = wrCentimeter
      DrawOptions = []
      TabKind = tkLeft
      Options = [wrShowTabSelector, wrShowTabStops, wrShowIndents, wpUseIntervalls]
      ColorMargin = clAppWorkSpace
      ColorBack = clBtnFace
      Align = alTop
    end
    object WPVertRuler1: TWPVertRuler
      Left = 0
      Top = 26
      Width = 26
      Height = 458
      Units = wrCentimeter
      DrawOptions = []
      ColorMargin = clAppWorkSpace
      ColorBack = clBtnFace
      Align = alLeft
    end
  end
  object WPToolPanel1: TWPToolPanel
    Left = 0
    Top = 0
    Width = 866
    Height = 41
    ParentColor = False
    UseDockManager = False
    Align = alTop
    BevelLines = []
    BevelOuter = bvNone
    AutoEnabling = True
    Caption = 'WPToolPanel1'
    TabOrder = 2
    NextToolBar = BorderParent
    Moveable = False
    Sizeable = False
    Autoalign = True
    XGap = 0
    YGap = 0
    object WPToolButton1: TWPToolButton
      Left = 508
      Top = 6
      Width = 26
      Height = 24
      AllowAllUp = True
      GroupIndex = 3007
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C0000000000000000000000000000000000000000000000000000000
        000000000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000000000000000000000000000C0C0C000C0C0C0000000
        00000000000000000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000000000000000000000000000C0C0C000C0C0C0000000
        00000000000000000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000000000000000000000000000C0C0C000C0C0C0000000
        00000000000000000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C00000000000000000000000000000000000000000000000
        000000000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000000000000000000000000000C0C0C000C0C0C0000000
        00000000000000000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000000000000000000000000000C0C0C000C0C0C0000000
        00000000000000000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000000000000000000000000000C0C0C000C0C0C0000000
        00000000000000000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C0000000000000000000000000000000000000000000000000000000
        000000000000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000}
      StyleGroup = 256
      StyleNumber = 2
      UseOwnGylph = False
      StyleName = 'WPI_BOLD'
    end
    object WPToolButton2: TWPToolButton
      Left = 540
      Top = 6
      Width = 26
      Height = 24
      AllowAllUp = True
      GroupIndex = 3008
      Flat = True
      Glyph.Data = {