Was experimenting with adding a print preview by copying from the
Printer.canvas to a form.canvas and showing it
PrintRect,PreviewRect:TRect;
begin
duPageWidth:=GetDeviceCaps(Printer.Canvas.Handle,PHYSICALWIDTH);
duPageHeight:=GetDeviceCaps(Printer.Canvas.Handle,PHYSICALHEIGHT);
//show this page with copyrect command
PrintRect:=Rect(10,10,duPageWidth-20,duPageHeight-20);
PreviewRect:=Rect(10,10,frmjkblPrint.Width-20,frmjkblPrint.Height-20);
frmjkblPrint.Canvas.CopyRect(PreviewRect,Printer.Canvas,PrintRect);
frmjkblPrint.show;
But it doesn't work...
Is it legit to copyrect from Printer.canvas?
John
_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi
