Tim
Excuse my English, I use google translate
In version 13.08 these lines were not commented / ** / and now in the current version are discussed
Eliminating these symbols of comment / ** / to me preview works properly
Tim
Disculpe mi ingles, uso translate google
En la version 13.08 estas lineas no estaban comentadas /* */ y ahora en la version actual aparecen comentadas
Eliminando esos
simbolos de comentario /* */ a mi me funciona el preview correctamente
CLASS TMetaFile
METHOD Paint
- Code: Select all Expand view RUN
SetWindowExt( ::hDC, 100, 100 )
if ::nVRatio == nil
::SetCoors()
endif
SetViewportExt( ::hDC, 100 * ::nXZoom, 100 * ( ::nYZoom / 2 ) * ::nVRatio * ::Super:nWidth() / ::Super:nHeight() )
nHStep = ( ::Super:nWidth() * ( ::nXZoom - 1 ) ) / 9.8
nVStep = ( ( ::Super:nWidth() * ::nXZoom * ::nVRatio ) - ::Super:nHeight() ) / 10.3
SetViewOrg( ::hDC, -::nXorig * nHStep, -::nYorig * nVStep )