On win xp it not make this error but on windows seven 64 bit make error
I cannot see the bottom of the paper
any solution ?

Second Problem
then when I return back from zoom to one page there is a line black at right as if it not refresh the window

I tried to modify rpreview at Paintmeta method for the first problem
and perhaps it run ok now
if ::oWnd != nil
nWidth = ::nWidth() - If( ::lZoom, 20, 0 )
nHeight = ::nHeight() - If( ::lZoom .and. ::nZFactor > 1, 20, 0 ) - 10 - ;
If( LargeFonts(), 100,86 ) //100 80
if ! ::lZoom
nMetaWidth = ( nHeight - 40 ) * nFactor
else
nMetaWidth = nWidth * nFactor
endif
oCoors1 := TRect():New( 40,;
But I think it is no good solution !!!!!
I cannot see the bottom of the paper
any solution ?

Second Problem
then when I return back from zoom to one page there is a line black at right as if it not refresh the window

I tried to modify rpreview at Paintmeta method for the first problem
and perhaps it run ok now
if ::oWnd != nil
nWidth = ::nWidth() - If( ::lZoom, 20, 0 )
nHeight = ::nHeight() - If( ::lZoom .and. ::nZFactor > 1, 20, 0 ) - 10 - ;
If( LargeFonts(), 100,86 ) //100 80
if ! ::lZoom
nMetaWidth = ( nHeight - 40 ) * nFactor
else
nMetaWidth = nWidth * nFactor
endif
oCoors1 := TRect():New( 40,;
But I think it is no good solution !!!!!
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
