Hi,
This is my code:
var StampMeta : TMetafile;
...
StampMeta := TMetafile.Create;
...
//
// procedure to write a stamp on PDF
//
procedure TFrmMain.PrepareStamp(StampText : String);
var StampMetaCan : TMetafileCanvas;
aForm : TXForm;
begin
StampMetaCan := TMetafileCanvas.Create(StampMeta,0);
StampMetaCan.Font.Name := 'tahoma';
StampMetaCan.Font.Size := 12;
StampMetaCan.Brush.Style := bsClear;
aForm.eM11:= 1.0;
aForm.eM12:= 0.0;
aForm.eM21:= 0.0;
aForm.eM22:= 1.0;
aForm.eDx := Screen.PixelsPerInch;
aForm.eDy := Screen.PixelsPerInch*2;
SetWorldTransform(StampMetaCan.Handle, aForm);
StampMetaCan.TextOut(0,0, DateToStr(now));
StampMetaCan.TextOut(0,50, StampText);
StampMetaCan.Free;
WPViewPDF1.CommandStrEx(495,'1-10000', StampMeta.Handle);
end;
//
// Then I use this code to Save PDF
//
....
....
WPViewPDF1.CommandStr(COMPDF_SaveToFile, savedialog1.FileName);
Ivano