textpu1.dfm

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

object WPTextPathDemo: TWPTextPathDemo
  Left = 198
  Top = 166
  Width = 430
  Height = 273
  ActiveControl = WPRichText1
  Caption = 'Text Path Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 422
    Height = 239
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    OnMouseDown = PageControl1MouseDown
    object TabSheet1: TTabSheet
      Caption = 'Page 1'
      object WPRichText1: TWPRichText
        Left = 7
        Top = 9
        Width = 139
        Height = 182
        AllowMultiView = True
        OnInitializeRTFDataObject = WPRichText1InitializeRTFDataObject
        XOffset = 144
        YOffset = 144
        XBetween = 144
        YBetween = 144
        LayoutMode = wplayNormal
        ScrollBars = ssNone
        EditOptions = [wpNoHorzScrolling, wpNoVertScrolling]
        ClipboardOptions = []
        EditBoxModes = [wpemLimitTextWidth, wpemLimitTextHeight]
        WordWrap = True
        ProtectedProp = []
        OneClickHyperlink = False
        BeforeEditBoxNeedFocus = WPRichText1BeforeEditBoxNeedFocus
        TabOrder = 0
        Anchors = [akLeft, akTop, akRight, akBottom]
      end
      object WPRichText2: TWPRichText
        Left = 163
        Top = 7
        Width = 241
        Height = 188
        AllowMultiView = True
        XOffset = 144
        YOffset = 144
        XBetween = 144
        YBetween = 144
        LayoutMode = wplayNormal
        ScrollBars = ssNone
        EditOptions = [wpNoHorzScrolling, wpNoVertScrolling]
        ClipboardOptions = []
        EditBoxModes = [wpemLimitTextWidth, wpemLimitTextHeight]
        WordWrap = True
        ProtectedProp = []
        OneClickHyperlink = False
        BeforeEditBoxNeedFocus = WPRichText1BeforeEditBoxNeedFocus
        TabOrder = 1
        Anchors = [akTop, akRight, akBottom]
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Page 2'
      ImageIndex = 1
      object WPRichText3: TWPRichText
        Left = 8
        Top = 8
        Width = 241
        Height = 163
        AllowMultiView = True
        XOffset = 144
        YOffset = 144
        XBetween = 144
        YBetween = 144
        LayoutMode = wplayNormal
        ScrollBars = ssNone
        EditOptions = [wpNoHorzScrolling, wpNoVertScrolling]
        ClipboardOptions = []
        EditBoxModes = [wpemLimitTextWidth, wpemLimitTextHeight]
        WordWrap = True
        ProtectedProp = []
        OneClickHyperlink = False
        BeforeEditBoxNeedFocus = WPRichText3BeforeEditBoxNeedFocus
        TabOrder = 0
        Anchors = [akLeft, akTop, akBottom]
      end
      object WPRichText4: TWPRichText
        Left = 256
        Top = 8
        Width = 139
        Height = 153
        AllowMultiView = True
        XOffset = 144
        YOffset = 144
        XBetween = 144
        YBetween = 144
        LayoutMode = wplayNormal
        ScrollBars = ssNone
        EditOptions = [wpNoHorzScrolling, wpNoVertScrolling]
        ClipboardOptions = []
        EditBoxModes = [wpemLimitTextWidth, wpemLimitTextHeight]
        WordWrap = True
        ProtectedProp = []
        OneClickHyperlink = False
        BeforeEditBoxNeedFocus = WPRichText3BeforeEditBoxNeedFocus
        TabOrder = 1
        Anchors = [akLeft, akTop, akRight]
      end
      object WPOverflow: TWPRichText
        Left = 252
        Top = 163
        Width = 208
        Height = 9
        AllowMultiView = True
        XOffset = 144
        YOffset = 144
        XBetween = 144
        YBetween = 144
        LayoutMode = wplayNormal
        PaperColor = clRed
        ScrollBars = ssNone
        EditOptions = [wpNoHorzScrolling, wpNoVertScrolling]
        ClipboardOptions = []
        EditBoxModes = [wpemLimitTextWidth]
        WordWrap = True
        ProtectedProp = []
        OneClickHyperlink = False
        BeforeEditBoxNeedFocus = WPOverflowBeforeEditBoxNeedFocus
        TabOrder = 2
        Visible = False
      end
    end
  end
  object WPRTFStorage1: TWPRTFStorage
    Links = <
      item
        RTFControl = WPRichText1
        DisplayMode = wpDisplayTextArea
        TextKind = wpIsBody
        TextRange = wpraOnAllPages
        CreateText = True
      end
      item
        RTFControl = WPRichText2
        DisplayMode = wpDisplayTextArea
        TextKind = wpIsBody
        TextRange = wpraOnAllPages
        CreateText = True
      end
      item
        RTFControl = WPRichText3
        DisplayMode = wpDisplayTextArea
        TextKind = wpIsBody
        TextRange = wpraOnAllPages
        CreateText = True
      end
      item
        RTFControl = WPRichText4
        DisplayMode = wpDisplayTextArea
        TextKind = wpIsBody
        TextRange = wpraOnAllPages
        CreateText = True
      end
      item
        RTFControl = WPOverflow
        DisplayMode = wpDisplayTextArea
        TextKind = wpIsBody
        TextRange = wpraOnAllPages
        CreateText = True
      end>
    Left = 138
    Top = 16
  end
end