onepagoneimgu.pas

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

unit OnePagOneImgU;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    WPRichText1: TWPRichText;
    Panel2: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure WPRichText1TextObjectClick(Sender: TWPCustomRtfEdit;
      pobj: TWPTextObj; obj: TWPObject; var ignore: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,w,h : Integer;
    bit : TBitmap;
    m : Single;
begin
  WPRichText1.Clear;
  WPRichText1.CheckHasBody;
  m := 0.02;
  for i:=1 to 30 do
  begin
    bit := TBitmap.Create;
    w := WPRichText1.Header.PageWidth -
       WPRichText1.Header.LeftMargin -
       WPRichText1.Header.RightMargin-36;
    h := WPRichText1.Header.PageHeight -
       WPRichText1.Header.TopMargin -
       WPRichText1.Header.BottomMargin-36;
    bit.Width := Round(w * m);
    bit.Height := Round(h * m);

    bit.Canvas.Font.Color := clRed;
    bit.Canvas.Font.Height := - bit.Width div 2;
    bit.Canvas.TextOut(10,10, IntToStr(i));
    WPRichText1.TextObjects.Insert(bit,w,h);
    if i<30 then
       WPRichText1.InputString(#12);
  end;
end;

procedure TForm1.WPRichText1TextObjectClick(Sender: TWPCustomRtfEdit;
  pobj: TWPTextObj; obj: TWPObject; var ignore: Boolean);
begin
  if pobj.IsImage and (pobj.ObjRef<>nil) then
  begin
     pobj.ObjRef.LoadFromFile('C:\body_bg.jpg')
  end;
  ignore := TRUE;
end;

end.