headerfooteru.dfm

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

object Form1: TForm1
  Left = 55
  Top = 180
  Width = 1005
  Height = 776
  Caption = 
    'TWPRTFStorage: Show different elements of the text in different ' +
    'editors'
  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 WPHeader: TWPRichText
    Left = 0
    Top = 25
    Width = 997
    Height = 122
    AllowMultiView = True
    LayoutMode = wplayNormal
    ScrollBars = ssNone
    EditOptions = [wpTableResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpMoveCPOnPageUpDown]
    ViewOptions = [wpHideSelectionNonFocussed]
    ClipboardOptions = []
    ProtectedProp = []
    OneClickHyperlink = False
    Align = alTop
    TabOrder = 0
  end
  object WPBody: TWPRichText
    Left = 0
    Top = 171
    Width = 997
    Height = 449
    AllowMultiView = True
    LayoutMode = wpDualPageView
    ScrollBars = ssBoth
    EditOptions = [wpTableResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpMoveCPOnPageUpDown]
    ViewOptions = [wpHideSelectionNonFocussed]
    ClipboardOptions = []
    ProtectedProp = []
    OneClickHyperlink = False
    Align = alClient
    TabOrder = 1
  end
  object WPFooter: TWPRichText
    Left = 0
    Top = 642
    Width = 997
    Height = 100
    AllowMultiView = True
    LayoutMode = wplayNormal
    ScrollBars = ssNone
    EditOptions = [wpTableResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpMoveCPOnPageUpDown]
    ViewOptions = [wpHideSelectionNonFocussed]
    ClipboardOptions = []
    ProtectedProp = []
    OneClickHyperlink = False
    Align = alBottom
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 997
    Height = 25
    Align = alTop
    Caption = 'Header'
    TabOrder = 3
    object HeaderRange: TComboBox
      Left = 9
      Top = 0
      Width = 145
      Height = 21
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -10
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
      OnChange = HeaderRangeChange
      Items.Strings = (
        'All'
        'Odd'
        'Even'
        'First')
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 620
    Width = 997
    Height = 22
    Align = alBottom
    Caption = 'Footer'
    TabOrder = 4
    object FooterRange: TComboBox
      Left = 8
      Top = 0
      Width = 145
      Height = 21
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -10
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
      OnChange = FooterRangeChange
      Items.Strings = (
        'All'
        'Odd'
        'Even'
        'First')
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 147
    Width = 997
    Height = 24
    Align = alTop
    Caption = 'Document'
    TabOrder = 5
    object SelectDualPage: TCheckBox
      Left = 7
      Top = 5
      Width = 207
      Height = 17
      Caption = 'Dual Page View'
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = SelectDualPageClick
    end
  end
  object WPRTFStorage1: TWPRTFStorage
    Links = <
      item
        RTFControl = WPBody
        DisplayMode = wpDisplayTextStream
        TextKind = wpIsBody
        TextRange = wpraOnAllPages
        CreateText = True
      end
      item
        RTFControl = WPHeader
        DisplayMode = wpDisplayTextStream
        TextKind = wpIsHeader
        TextRange = wpraOnAllPages
        CreateText = True
      end
      item
        RTFControl = WPFooter
        DisplayMode = wpDisplayTextStream
        TextKind = wpIsFooter
        TextRange = wpraOnAllPages
        CreateText = True
      end>
    Left = 37
    Top = 184
  end
end