resizeu.pas

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

unit ResizeU;

interface

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

type
  TWPResizeDemo = class(TForm)
    WPRichText1: TWPRichText;
    Panel1: TPanel;
    Button1: TButton;
    H: TWPValueEdit;
    W: TWPValueEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure WPRichText1MailMergeGetText(Sender: TObject;
      const inspname: String; Contents: TWPMMInsertTextContents);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  WPResizeDemo: TWPResizeDemo;

implementation

{$R *.dfm}

procedure TWPResizeDemo.FormCreate(Sender: TObject);
begin
  W.Value := 4000;
  H.Value := 3000;
  Button1Click(nil);
end;

procedure TWPResizeDemo.Button1Click(Sender: TObject);
begin
  WPRichText1.MergeText;
  WPRichText1.Resizing := 200;
  repeat
    WPRichText1.Header.SetPageWH(
      W.Value,
      H.Value,
      300,  300, 300, 300);
    if WPRichText1.PageCount=1 then break;
    WPRichText1.Resizing := WPRichText1.Resizing-1;
  until WPRichText1.Resizing=0;
end;



procedure TWPResizeDemo.WPRichText1MailMergeGetText(Sender: TObject;
  const inspname: String; Contents: TWPMMInsertTextContents);
var i : Integer;
    s : string;
begin
  s := '';
  for i:=0 to Random(20) do
    s := s  + 'Abc ';
  Contents.StringValue := s;
end;

end.