Page 1 of 1
fwh 7.10 preview at startup
Posted: Mon Oct 29, 2007 1:43 pm
by Richard Chidiak
Hello
I need to initiate my preview window with zoom on
If i set on init ::zoom(.t.) and lzoom := .t. before, the result is badly painted.
Has anyone succeeded doing this ?
Thanks for help
Richard
Posted: Fri Nov 02, 2007 10:31 am
by Antonio Linares
Richard,
Where do you call ::zoom(.t.) from ?
Posted: Fri Nov 02, 2007 4:43 pm
by Richard Chidiak
Antonio
tried several locations,
On init the result is bad,
tried lzoom := .t. same bad painting
Any idea where i should call it from ?
Richard
Posted: Fri Nov 02, 2007 5:32 pm
by Antonio Linares
Richard,
If you do a:
PRINT oPrn PREVIEW
...
ENDPRINT
then you have no way to access to oPreview object. And you need to send it the :Zoom() msg. Unless I am missing something.
You could easily modify source/classes/rpreview.prg and do it here:
Code: Select all
function RPreview( oDevice )
local oPreview := TPreview():New( oDevice )
oPreview:Zoom()
oPreview:Activate()
return nil
Posted: Sat Nov 03, 2007 5:32 am
by Richard Chidiak
Antonio
I had done this also and the result is not good.
I think an image shows better the problem
I have uploaded two images
www.cbati.com/ZOOMNORMAL.jpg this image is obtained when zooming (not at init)
www.cbati.com/ZOOMONINIT.jpg this image is obtained when zooming at startup
Thanks for your help,
Richard
See the difference in paiting
