letterheadunit1.pas

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

unit LetterHeadUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WPCTRRich, WPTbar, ComCtrls, Menus, WPUtil, WpPagPrp, WPRuler,
  WPRTEDefs, WPCTRMemo, WPRTEPaint;

type
  TWPLetterHeadEdit = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Close1: TMenuItem;
    EditLetter1: TMenuItem;
    EditLetterhead1: TMenuItem;
    PageControl1: TPageControl;
    Letter: TTabSheet;
    Letterhead: TTabSheet;
    WPToolBar1: TWPToolBar;
    WPRichText1: TWPRichText;
    WPRuler1: TWPRuler;
    WPVertRuler1: TWPVertRuler;
    WPVertRuler2: TWPVertRuler;
    WPRuler2: TWPRuler;
    WPLetterHead: TWPRichText;
    WPPagePropDlg1: TWPPagePropDlg;
    PageFormat1: TMenuItem;
    procedure Close1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EditLetter1Click(Sender: TObject);
    procedure EditLetterhead1Click(Sender: TObject);
    procedure PageFormat1Click(Sender: TObject);
    procedure WPRichText1MeasureTextPage(Sender: TObject;
      PageInfo: TWPMeasurePageParam);
    procedure WPRichText1PaintWatermark(Sender: TObject;
      RTFEngine: TWPRTFEnginePaint; toCanvas: TCanvas; PageRect: TRect;
      PaintPageNr, RTFPageNr: Integer; WaterMarkRef: TObject; XRes,
      YRes: Integer; CurrentZoom: Single; PaintMode: TWPPaintModes);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  WPLetterHeadEdit: TWPLetterHeadEdit;

implementation

{$R *.dfm}

procedure TWPLetterHeadEdit.Close1Click(Sender: TObject);
begin
  Close;
end;

procedure TWPLetterHeadEdit.FormCreate(Sender: TObject);
begin
  Letterhead.TabVisible := FALSE;
  Letter.TabVisible := FALSE;
  PageControl1.ActivePage := Letter;

  WPRichText1.Header := WPLetterHead.Header;
  WPLetterHead.Refresh(false);
end;

procedure TWPLetterHeadEdit.EditLetter1Click(Sender: TObject);
begin
  WPRichText1.Header := WPLetterHead.Header;
  PageControl1.ActivePage := Letter;
end;

procedure TWPLetterHeadEdit.EditLetterhead1Click(Sender: TObject);
begin
  PageControl1.ActivePage := LetterHead;
end;

procedure TWPLetterHeadEdit.PageFormat1Click(Sender: TObject);
begin
  if WPPagePropDlg1.Execute then
     WPRichText1.Header := WPLetterHead.Header;
end;

procedure TWPLetterHeadEdit.WPRichText1MeasureTextPage(Sender: TObject;
  PageInfo: TWPMeasurePageParam);
begin

end;

// uses WPRTEPaint
procedure TWPLetterHeadEdit.WPRichText1PaintWatermark(Sender: TObject;
  RTFEngine: TWPRTFEnginePaint; toCanvas: TCanvas; PageRect: TRect;
  PaintPageNr, RTFPageNr: Integer; WaterMarkRef: TObject; XRes,
  YRes: Integer; CurrentZoom: Single; PaintMode: TWPPaintModes);
begin
  // We are painting on a RTF-Engine surface so use the
  // PaintPageMode wpNoViewPortAPI since everything has been
  // set up already
  WPLetterhead.PaintPageOnCanvas(0,
     0, 0, 0, 0, toCanvas, [],
     XRes, YRes, -1, -1, [wpNoViewPortAPI]);
end;

end.