fwh 7.10 preview at startup

[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

[Antonio Linares]

Richard,

Where do you call ::zoom(.t.) from ?

[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

[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  Expand view

function RPreview( oDevice )

   local oPreview := TPreview():New( oDevice )

   oPreview:Zoom()
   oPreview:Activate()

return nil


[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