FiveTech Software tech support forums

... if ::oWnd == nil return nil endif if ::bSetUp != nil Eval( ::bSetUp, Self, ::oWnd ) endif ACTIVATE WINDOW ::oWnd MAXIMIZED ; ON RESIZE ( ::PaintMeta(), ::ResizeListView() ) ; ON UP ::VScroll( GO_UP ) ; ON DOWN ::VScroll( GO_DOWN ) ; ON PAGEUP ::VScroll( GO_UP, GO_PAGE) ; ON PAGEDOWN ::VScroll( ...

Hola a todos... Existe alguna manera en la que pueda inicializar tPreview en 100% ???? He modificado el Metodo PaintMeta() y puedo cambiar el tamaño del visualizador, pero no me funciona con el vScroll... He intentado llamando el metodo SetFactor() desde ON INIT, pero no me reconoce ...

Antonio ¿Y como sería en el caso de la siguiente línea del metodo Paintmeta(): METHOD PaintMeta() CLASS TPreview . . . oRect:nBottom -= ( IfNil( ::oWnd:oMsgBar, ::oWnd:oBottom ):nHeight + 4 + 5 ) // 5 shadow depth <<-- no existe . . return nil Saludos ...

Dear Nages, I correct it and now it run ok for the first problem I change this line on PaintMeta() method If( LargeFonts(), 100, 92 ) this because someone changed largefonts() function .....remember now largefonts support 143 dpi!!! http://img717.imageshack.us/img717/2280/rprevieok.jpg ...

... black at right as if it not refresh the window http://img29.imageshack.us/img29/6028/errprev.jpg I tried to modify rpreview at Paintmeta method for the first problem and perhaps it run ok now  if ::oWnd != nil              nWidth  = ::oWnd:nWidth() - If( ::lZoom, 20, 0 )     ...

... method: NHEIGHT Args: [ 1] = U Stack Calls =========== Called from: => NHEIGHT(0) Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:PAINTMETA(638) Called from: .\source\classes\RPREVIEW.PRG => (b)TPREVIEW:ACTIVATE(159) Called from: .\source\classes\WINDOW.PRG => TWINDOW:RESIZE(2118) ...

... // 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 ) METHOD Zoom( lMenu ) METHOD VScroll( nType, ...

... para salir con escape oWnd:bKeyDown := {|nK| if( nK != VK_ESCAPE, , oWnd:End() ) } SetFactor() ACTIVATE WINDOW oWnd ; MAXIMIZED ; ON RESIZE PaintMeta() ; ON UP vScroll(GO_UP) ; ON DOWN vScroll(GO_DOWN) ; ON PAGEUP vScroll(GO_UP,GO_PAGE) ; ON PAGEDOWN vScroll(GO_DOWN,GO_PAGE) ; ON LEFT hScroll(GO_LEFT) ...

... CLASS TPreview ..... ..... METHOD Activate() CLASS TPreview ACTIVATE WINDOW ::oWnd MAXIMIZED ; ON RESIZE ::PaintMeta() ; ON UP ::VScroll( GO_UP ) ; ON DOWN ::VScroll( GO_DOWN ) ; ON PAGEUP ::VScroll( GO_UP, GO_PAGE) ; ON PAGEDOWN ::VScroll( GO_DOWN, GO_PAGE) ...

... en pantalla, para el resto no hace nada, ni siquiera quita el zoom. He colocado el rpreview en fuente en el programa, y he colocado msginfo en Paintmeta, NextPage, y Bottompage de esta manera METHOD PaintMeta() CLASS TPreview local oCoors1, oCoors2 local aFiles := ::oDevice:aMeta // DEVICE ...

... y NextPage(). En ambas funciones ::oDevice:aMeta debería traer un valor de 4 ( en mi listado ) sin embargo cuando ya ha pasado de la función PaintMeta() (en esta función el valor es correcto, 4) ese valor pasa a ser cero, lo que impide hacer un NextPage y un BottomPage, y en esta ultima función, ...

Antonio, gracias por tu ayuda. No funcionó. En realidad observando bien, se pinta tres veces, con lShow o sin lShow en el método PaintMeta(): 1a. vez: En NO ZOOM con el tamaño de las letras correcto 2a. vez: En NO ZOOM con el tamaño de las letras reducido 3a. vez: En ZOOM tal como se necesita ...

Carlos, Una solución sería modificar el método PaintMeta( lShow ) de la Clase TPreview, y añadirle ese parámetro lShow, para que al pasarle .F. no se llamase a: ::oMeta1:Refresh() No lo he probado, pero podría servir. Asi evitaríamos el primer pintado. ...

Hola Antonio: Al hacer: function RPreview( oDevice ) local oPreview := TPreview():New( oDevice ) oPreview:PaintMeta() oPreview:Zoom(.T.) oPreview:Activate() return nil funciona bien pero genera doble pintada, lo que produce un efecto desagradable especialmente si la maquina ...

... ,; ::nMargBottom ,; ::hSolidPen:hPen ) ::oWnd:ReleaseDC() return nil and I add ::Smargin() on the PaintMeta method Some can help me please ?