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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour fwh 7.10 preview at startup
Richard,
Where do you call ::zoom(.t.) from ?
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
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:
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:
function RPreview( oDevice )
local oPreview := TPreview():New( oDevice )
oPreview:Zoom()
oPreview:Activate()
return nilAntonio
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