FiveTech Software tech support forums

... addressed in FWH2007 to be released. You may adopt the same fix in your "rpreview.prg". Please locate the following code in the METHOD BuildWindow()   if ! ::oDevice:lPrvModal .and. ::oWndMain != nil .and. ;      Upper( ::oWndMain:ClassName() ) == ...

yo lo tengo así : METHOD BuildWindow() CLASS TPreview ..... ::oWnd:bKeydown := { | nKey, nFlags | Iif( nkey == 27 , ::oWnd:End(),) } ..... Return Mastintin gracias por responder, en realidad estoy usando la clase txtview y si existe la ...

yo lo tengo así :

METHOD BuildWindow() CLASS TPreview

.....

::oWnd:bKeydown := { | nKey, nFlags | Iif( nkey == 27 , ::oWnd:End(),) }

.....

Return

Incluso, se me ocurre que, con un poco de trabajo, se podria diseñar un buildwindow de la clase TPreview para adaptarlo a un espacio de pantalla definido por ti (por ejemplo un TPanel), pero hay que probarlo.
Claro, modificando la clase
Es una idea.
Saludos

Antonio, At rpreview.prg, messageboxes are only in English, so they should be also in spanish: method buildwindow() MsgStop( ::cResFile + " not found, imposible to continue",; "FiveWin Printing Error" ) method saveas() cMsg := If( lPDF, "PDF", ...

... preview, this is all I got inside checkres.txt 13/06/2013 23:42:08: BRUSH,-1257235400,TCOMBOBOX:SETCOLOR(2540)->TCOMBOBOX:NEW(207)->TPREVIEW:BUILDWINDOW(511)->TPREVIEW:NEW(136)->RPREVIEW(1634)->(b)TREPORT_NEW(187)->TREPORT:ACTIVATE(883)->TXBROWSE:REPORT(7005)->(b)EDIT(957)->TBTNBMP:CLICK(466)->TBTNBMP:LBUTTONUP(657)->TCONTROL:HANDLEEVENT(1719)->TBTNBMP:HANDLEEVENT(1446)->_FWH(3180)->WINRUN(0)->TMDIFRAME:ACTIVATE(993)->MAIN(70) ...

... ::oWndMain:Show(), ), ;  // Ad by Quim                     .t. )  BuildWindow queda asi : METHOD BuildWindow() CLASS TPreview   local oIcon, cTitle := "FiveWin Printing Preview", oCursor, ...

... Segundo... Obliga al preview a iniciar con Zoom desde el método NEW:   ::lZoom     := .T.  y Tercero tambien en el método NEW, luego de ::BuildWindow() Coloca: if ::lZoom   ::Zoom()   ::Zoom()endif 

Ya habia intentado con eso, y no funciona y da error, lo mas cercano es ::Zoom, en Method New(), despues de ::BuildWindow(), pero solo pinta bien el reporte horizontalmente, no verticalmente...

... el problema se da porque: Seleccionando desde el menú el metodo ::Zoom(), funciona correctamente, pero al accionarlo inclusive despues de ::BuildWindow() en el método ::New() , solo la resolucion horizontal es calculada, pero no la vertical... Esto supongo sería algo muy fácil para FiveTech ...

... method: HBRUSH Args: [ 1] = U Stack Calls =========== Called from: => HBRUSH( 0 ) Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:BUILDWINDOW( 528 ) Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:NEW( 136 ) Called from: .\source\classes\RPREVIEW.PRG => RPREVIEW( 1630 ...

... from: d:\_lib\fwh\source\classes\RPREVIEW.prg => TPREVIEW:SETORG2(1228) Called from: d:\_lib\fwh\source\classes\RPREVIEW.prg => (b)TPREVIEW:BUILDWINDOW(470

... Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:CHECKSTYLE(635) Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:BUILDWINDOW(394) Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:NEW(134) Called from: .\source\classes\RPREVIEW.PRG => RPREVIEW(1596) ...

... [ 1] = U [ 2] = N 1 Stack Calls =========== Called from: rpreview.prg => TPREVIEW:SETFACTOR(1530) Called from: rpreview.prg => TPREVIEW:BUILDWINDOW(579) Called from: rpreview.prg => TPREVIEW:NEW(132) Called from: rpreview.prg => RPREVIEW(1675) Called from: .\source\classes\REPORT.PRG ...

... DATA aPrinters DATA cPrinter DATA cOldPrinter // Esteban CLASSDATA oWndMain METHOD New( oDevice ) METHOD Activate() METHOD BuildButtonBar() METHOD BuildWindow() METHOD BuildMenu() METHOD PaintMeta() METHOD NextPage() METHOD PrevPage() METHOD TopPage() METHOD BottomPage() METHOD TwoPages( lMenu ...