headerfooteru.pas

来自「wptools5 pro 完整源代码 Msword界面的文本编辑器源代码」· PAS 代码 · 共 73 行

unit HeaderFooterU;


interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, WPRTEDefs, WPCTRMemo, WPCTRRich, WPRTEPaint, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    WPHeader: TWPRichText;
    WPBody: TWPRichText;
    WPFooter: TWPRichText;
    WPRTFStorage1: TWPRTFStorage;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    SelectDualPage: TCheckBox;
    HeaderRange: TComboBox;
    FooterRange: TComboBox;
    procedure SelectDualPageClick(Sender: TObject);
    procedure HeaderRangeChange(Sender: TObject);
    procedure FooterRangeChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SelectDualPageClick(Sender: TObject);
begin
  if SelectDualPage.Checked then
        WPBody.LayoutMode := wpDualPageView  // from WPRTEPaint
  else  WPBody.LayoutMode := wplayFullLayout;
end;

procedure TForm1.HeaderRangeChange(Sender: TObject);
begin
    WPHeader.ActiveText := WPHeader.HeaderFooter.Get(wpIsHeader,
        TWPPagePropertyRange( HeaderRange.ItemIndex ));
    WPHeader.SetFocus;
end;

procedure TForm1.FooterRangeChange(Sender: TObject);
begin
    WPFooter.ActiveText := WPFooter.HeaderFooter.Get(wpIsFooter,
        TWPPagePropertyRange( FooterRange.ItemIndex ));
    WPFooter.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HeaderRange.ItemIndex := 0;
  FooterRange.ItemIndex := 0; 
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  WPBody.SetFocus;
end;

end.