Changing Preview Zoom

[Timm]

Hi!

I tried to preset a new zoom value by overloading it:

Código: Seleccionar todo

CLASS TPreviewControl FROM XPreviewControl
   PROPERTY nZoomIndex INIT 10
END CLASS

It didn't work.
This allows me to adjust the zoom factor, but the combobox in the preview window doesn't show the correct value.

Código: Seleccionar todo

CLASS TPreviewPage FROM XPreviewPage
   PROPERTY nFitInPage INIT pfALL
END CLASS

Best regards, Timm

[ignacio]

Try this:

Código: Seleccionar todo

CLASS TPreviewPage FROM XPreviewPage
   PROPERTY nZoomFactor INIT 10   WRITE INLINE ( ::FnFitInPage := pfNONE, ::FnZoomFactor := Value, ::SetEmfCoors(), ::Refresh() )
END CLASS

BTW, This is the complete fix:

Código: Seleccionar todo

CLASS TOzsPreviewControl FROM TOzsBevel

   PROPERTY nZoomIndex  READ  INLINE IIF( !Empty(::oCombo:nIndex), ::oCombo:nIndex, ::FnZommIndex ) ;
                        WRITE INLINE ( ::oCombo:nIndex := Value, ::SetZoom() ) 
END CLASS

On method Create() (about line 143 )

Código: Seleccionar todo

IF !Empty( ::FnZoomIndex ) .AND. ::FnZoomIndex <= Len( :aItems )
  ::oCombo:nIndex := ::FnZoomIndex
  ::oPreviewPage:nZoomFactor := Val( :aItems[ :nIndex ] )
ELSE
  :SelectString( ToString( ::oPreviewPage:nZoomFactor ) ) // Old code
ENDIF

It will be available on next Xailer release.

Regards,