FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour bugs FW14.06
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
bugs FW14.06
Posted: Sun Jun 29, 2014 12:23 PM
Antonio,

He detectado varios problemas.

El primero, es que el tema del rpreview y los metafiles se siguen ahorita visualizando mal y muy feitos.

Mira por ejemplo samples\invoice.prg:




Y en la nueva clase AutoGet no pone el bot贸n de ACTION, lo ignora:

oGet:bAction := { || Alert("hola") }


Sigo investigando :-) :-)
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 02:25 PM

Elvira,

En la versi贸n 14.04 se ve igual, acabo de probarlo.

Asi que posiblemente ese bug se haya introducido antes de la versi贸n 14.04

regards, saludos

Antonio Linares
www.fivetechsoft.com
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 02:33 PM

Antonio,

Muy agradecida, es que se ve muy feito y eso no se puede mostrar al cliente.

mgsoft
Posts: 422
Joined: Mon Aug 17, 2009 12:18 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 03:55 PM
Elvira,

Hay un bug en el m茅todo CreateButton() de la clase tGet.prg

Busca este c贸digo:

if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET"


Sin embargo, deber铆a ser en realidad Upper( ::Super:ClassName() ), porque si hacemos una clase derivada de TGET como es el caso de AutoGet entonces no funci贸na el bot贸n.

Prueba y me dices.
Saludos,



Eduardo
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 04:55 PM
elvira wrote:

El primero, es que el tema del rpreview y los metafiles se siguen ahorita visualizando mal y muy feitos.

Mira por ejemplo samples\invoice.prg:

Yo ten ia el mismo problema con algunas impresoras , porque no se devolv铆an correctamente las resoluciones de la impresora ...
mi soluci贸n hace ya unas versiones :
Code (fw): Select all Collapse
METHOD PaintMeta() CLASS TPreview
local   aSizes:=::oDevice:GetPhySize()
local   nAspect:= aSizes[1]/aSizes[2]
    
  ......  // unas lineas mas abajo comentar 
  
    //  nAspect        := ::nHorzSize() / ::nVertSize()
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 06:35 PM

Manuel,

Muchas gracias, voy a mirarlo.

A ver si Antonio por favor lo mira bien y saca una build corregida con todos los errores.

Muy agradecida :D

elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 07:51 PM
Hola Manuel,

Me temo que sigue vi茅ndose mal y feito:


Estos problemas empezaron en los cambios que empez贸 a ejecutar el Maestro el a帽o pasado en tprinter.prg y tmetafile.prg.
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 07:54 PM
Captura completa:

elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 07:56 PM
Maestro!!!,

En la 13.09 se ve bien:

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 08:14 PM

Elvira
En la 13.11 tambi茅n
Pero cuando entras has de dar click para que aparezcan las im谩genes laterales y las proporciones correctas, no?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: bugs FW14.06
Posted: Sun Jun 29, 2014 08:59 PM

Crist贸bal,

As铆 es, tengo que dar ese click para que las proporciones se vean bien, al principio se ve mal.

Muchas gracias.

mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: bugs FW14.06
Posted: Mon Jun 30, 2014 09:09 AM
Puedes poner aqui el c贸digo de tu prueba de impresi贸n a ver si reproduzco el error ? .
Si usas la ventana de preview completa en vez mdi te hace lo mismo ? .
Estoy interesado en el tema, a ver si estabilizamos el c贸digo .
Paraq empezar yo he puesto una DATA en rpreview.prg :

Code (fw): Select all Collapse
DATA 聽 lListViewHide INIT .t. 

METHOD BuildListView() CLASS TPreview

聽 聽.....
聽 IF ::lListviewHide
聽 聽 聽 ::oLvw:Hide()
聽 聽endif
return nil

METHOD Zoom( lMenu ) CLASS TPreview

聽 聽DEFAULT lMenu := .F.

聽 聽::lZoom := ! ::lZoom
聽 聽IF !::lListViewHide
聽 聽 聽 if IsWindowVisible( ::oLvw:hWnd )
聽 聽 聽 聽 聽::oLvw:Hide()
聽 聽 聽 else
聽 聽 聽 聽 聽::oLvw:Show()
聽 聽 聽 endif
聽 聽endif
聽 聽.....

METHOD ResizeListView() CLASS TPreview

IF !::lListviewHide

聽 聽::oLvw:nHeight = ::oWnd:GetCliRect():nHeight - 2 - ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 If( ::oWnd:oBar != nil, ::oWnd:oBar:nHeight() - 2,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ::oWnd:oTop:nHeight() ) - ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 If( ::oWnd:oMsgBar != nil, ::oWnd:oMsgBar:nHeight(),;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ::oWnd:oBottom:nHeight() )

聽 聽IF ::oLvw:nLeft == 0
聽 聽 聽 if ::oMeta1:nLeft <= 聽::oLvw:nWidth
聽 聽 聽 聽 聽::olvw:hide()
聽 聽 聽 else
聽 聽 聽 聽 ::olvw:show()
聽 聽 聽 endif
聽 聽else

聽 聽 聽 ::oLvw:nLeft := 聽::oWnd:GetCliRect():nWidth - 聽::oLvw:nWidth

聽 聽 聽 if ::lTwoPages
聽 聽 聽 聽 聽 if ::oLvw:nLeft <= ::oMeta2:nRight
聽 聽 聽 聽 聽 聽 聽::oLvw:hide()
聽 聽 聽 聽 聽 else
聽 聽 聽 聽 聽 聽 聽::oLvw:show()
聽 聽 聽 聽 聽 endif
聽 聽 聽 else
聽 聽 聽 聽 聽if ::oLvw:nLeft <= ::oMeta1:nRight
聽 聽 聽 聽 聽 聽 ::oLvw:hide()
聽 聽 聽 聽 聽else
聽 聽 聽 聽 聽 聽 ::oLvw:show()
聽 聽 聽 聽 聽endif
聽 聽 聽 endif
聽 聽endif

聽 聽::oLvw:refresh()
endif

return nil
elvira
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: bugs FW14.06
Posted: Mon Jun 30, 2014 09:48 AM
Manuel,

Uso samples\invoce.prg:

Code (fw): Select all Collapse
 #include "Fivewin.ch"
 #include "Report.ch"
 #include "FileIo.ch"


 #define    VERSION        "Versi贸n 1.2 <14-01-2011> (Rev. 00.13)"
 #define    K_ENTER        13
 #define    COMPARTIDO     .T.
 #define    EXCLUSIVO      .F.

 #define    COLBLANCO   255,255,255

 #define        COL_BRTEX   255,255,255
 #define        COL_BRFON       0,75,105

 #define        ID_VTDBF    OemToAnsi(' Facturaci垄n PYME  ')+VERSION+CRLF+;
                            OemToAnsi(' (c) CEPEDA Servicios Inform聽ticos 2004')

 #define  NL  Chr( 10 ) + Chr( 13 )
 #define  SAF    100

 Static oBar
 Static oWnd
 Static oFont
 Static oIcon
 Static oBrush
 Static cNomEmp
 Static cPathEm
 Static lSelEmp
 Static cNifEmp

#include "rpreview.prg"


 Function Main()

 LOCAL aStruct
 LOCAL lCreado    := .F.
 LOCAL oSay
 LOCAL aFieldsNew := {}
 LOCAL lActivado  := .F.

 SET DATE ITALIAN
 SET DELETED ON
 SET CENTURY ON
 SET EPOCH TO 1960
 SET CONFIRM ON
 SET 3DLOOK ON

 DEFINE FONT oFont NAME "Arial" SIZE 0, -12
 ACTIVATE FONT oFont

 DEFINE ICON oIcon FILENAME "..\icons\fivetech.ICO"

 DEFINE BRUSH oBrush FILENAME "..\bitmaps\backgrnd\sky3.bmp"

 DEFINE WINDOW oWnd MDI FROM 04, 10 TO 30, 90;
        TITLE OemToAnsi( "Facturaci垄n PYME" ) ;
        MENU Menu() ;
        ICON oIcon ;
        BRUSH oBrush
        SET FONT OF oWnd TO oFont
        SET MESSAGE OF oWnd TO ;
        OemToAnsi('Facturaci垄n PYME           Usuario = '+WNetGetUser());
        TIME DATE KEYBOARD 2007

 DEFINE BUTTONBAR oBar _3D SIZE 45, 45 TOP OF oWnd 2007
 DEFINE BUTTON OF oBar FILENAME "..\bitmaps\cascade.bmp"  TOOLTIP ;
 'Facturaci贸n' ACTION PintUnaFac( oWnd ) MESSAGE 'Emisi贸n de facturas' GROUP
 DEFINE BUTTON OF oBar FILENAME "..\bitmaps\exit.bmp"      TOOLTIP 'Terminar';
 ACTION oWnd:End() MESSAGE 'Termina el programa' GROUP

 ACTIVATE WINDOW oWnd MAXIMIZED

 Return NIL
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 Static Function Menu()

 LOCAL oMenu

 MENU oMenu
   MENUITEM '&Selecci贸n' MESSAGE 'Selecci垄n de Empresa'
   MENU
     MENUITEM '&Terminar' ACTION oWnd:End() MESSAGE 'Termina el programa'
   ENDMENU
   MENUITEM '&Ventas'    MESSAGE 'Procesos generales de VENTAS'
   MENU
     MENUITEM '&Facturas' ACTION PintUnaFac( oWnd ) MESSAGE 'Emisi贸n de facturas'
   ENDMENU
 ENDMENU
 Return oMenu

* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 Static Function PintUnaFac( oWnd )

 LOCAL oDlg, oFont, aoBtn[ 2 ]

 DEFINE FONT oFont NAME "Arial" SIZE  0, -12

     DEFINE DIALOG oDlg TITLE "FWH Ver. 7.11 queda el preview detr谩s";
 FROM 0, 0 TO 380, 350 ; //Alto y Ancho
 PIXEL OF oWnd FONT oFont

 @ 164, 72 BUTTON aoBtn[ 1 ] PROMPT "&Imprimir" PIXEL SIZE 35,10 OF oDlg ;
           ACTION Imprimir( oDlg )

 @ 164,130 BUTTON aoBtn[ 2 ] PROMPT "Sa&lir" PIXEL SIZE 35,10 OF oDlg ;
           ACTION oDlg:End()

 ACTIVATE DIALOG oDlg CENTER

 Return NIL
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 Static Function Imprimir( oWnd )

 LOCAL oPrn, oFont1, oFont2, oFont3, oFont4, oFont5, oFont6, oFont7, oFont8, ;
       oFontLogo, oPen1, oPen2

 LOCAL aCoord1[ 2 ], aCoord2[ 2 ]
 LOCAL nFil, nCol, nTop, nBot
 LOCAL nAnch, nAlto
 LOCAL nPixHorz, nPixVert
 LOCAL nAncho_1, nAncho_2

 oWnd:End()

 PRINT oPrn NAME "Impresi贸n de facturas" PREVIEW

 IF Empty( oPrn:hDC )
   MsgStop( OemToAnsi( "隆 No hay IMPRESORA para imprimir !" ))
   Return NIL
 EndIF

 nPixVert := oPrn:nVertRes()
 nPixHorz := oPrn:nHorzRes()

 IF nPixHorz < 3000
   nAnch    := 8913290
   nAlto    := 12255652
   nAncho_1 := 4
   nAncho_2 := 7
 ELSE
   nAnch := 8913494
   nAlto := 12256000
   nAncho_1 := 6
   nAncho_2 := 11
 EndIf


 DEFINE FONT oFont1 NAME "Arial" SIZE 0, -6  OF oPrn
 DEFINE FONT oFont2 NAME "Arial" SIZE 0, -9  OF oPrn
 DEFINE FONT oFont3 NAME "Arial" SIZE 0, -12 BOLD OF oPrn
 DEFINE FONT oFont4 NAME "Arial" SIZE 0, -11 OF oPrn
 DEFINE FONT oFont5 NAME "Arial" SIZE 0, -16 OF oPrn
 DEFINE FONT oFont6 NAME "Arial" SIZE 0, -10 OF oPrn
 DEFINE FONT oFont7 NAME "Courier New" SIZE 0, -10 OF oPrn
 DEFINE FONT oFont8 NAME "Times New Roman" SIZE 0, -10 BOLD OF oPrn
 DEFINE FONT oFontLogo NAME "Arial" SIZE 0, -19 BOLD OF oPrn
 DEFINE PEN   oPen1 WIDTH nAncho_1
 DEFINE PEN   oPen2 WIDTH nAncho_2

   PAGE
   // Cabecera
       nFil := 1.6
       nCol := 2.2
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       oPrn:CmSay ( 3.1,  2.3, "PRUEBA DE IMPRESI脫N", oFontLogo )

       nFil :=  4.4
       nCol := 10.9
       nTop :=  7.7
       nBot := 20.15
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Box ( nFil, nCol, nTop, nBot, oPen2 )           //Caja Cliente
       oPrn:CmSay ( 4.0, 11.0, 'Direcci贸n Correspondencia del Cliente:', oFont2 )
       oPrn:CmSay ( 4.7, 11.1, "Juan P茅rez de las Heras", oFont4 )
       oPrn:CmSay ( 5.2, 11.1, "Compras", oFont4 )
       oPrn:CmSay ( 5.7, 11.1, "La Calle, 22", oFont4 )
       oPrn:CmSay ( 6.7, 11.1, "Madrid", oFont4 )

       nFil :=  8.15
       nCol :=  2.20
       nTop :=  8.75
       nBot := 20.15
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Box ( nFil, nCol, nTop, nBot, oPen2 )           //Caja n搂 fra. etc
       oPrn:CmSay ( 8.15,  2.30, 'C.I.F.:', oFont3 )
       oPrn:CmSay ( 8.15,  6.00, 'N潞 Factura :', oFont3 )
       oPrn:CmSay ( 8.15, 11.20, 'Fecha : ', oFont3 )
       oPrn:CmSay ( 8.15, 15.60, 'F. Pago :', oFont3 )

       nFil :=  8.90
       nCol :=  2.20
       nTop :=  9.50
       nBot := 20.15
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Box ( nFil, nCol, nTop, nBot, oPen2 )           //Caja observaciones
       oPrn:CmSay ( 9.10, 2.30, 'Observaciones:', oFont2 )
       nFil :=  9.65
       nCol :=  2.20
       nTop := 23.25
       nBot := 20.15
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Box ( nFil, nCol, nTop, nBot, oPen2 )           //Caja cuerpo factura
       nFil :=  9.65
       nCol :=  5.20
       nTop := 23.25
       nBot :=  5.20
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen2 )           //1娄 VERTICAL
       nFil :=  9.65
       nCol := 12.20
       nTop := 23.25
       nBot := 12.20
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen2 )           //2娄 VERTICAL
       nFil :=  9.65
       nCol := 13.80
       nTop := 23.25
       nBot := 13.80
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen2 )           //3娄 VERTICAL
       nFil :=  9.65
       nCol := 15.80
       nTop := 23.25
       nBot := 15.80
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen2 )           //4娄 VERTICAL
       nFil :=  9.65
       nCol := 17.10
       nTop := 23.25
       nBot := 17.10
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen2 )           //5娄 VERTICAL
       nFil := 10.20
       nCol :=  2.20
       nTop := 10.20
       nBot := 20.15
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen2 )  // Subrayado HORIZONTAL
       oPrn:CmSay( 9.65,  2.30, 'C贸digo'     , oFont3 )
       oPrn:CmSay( 9.65,  5.30, 'Descripci贸n', oFont3 )
       oPrn:CmSay( 9.65, 12.30, 'Unid.'      , oFont3 )
       oPrn:CmSay( 9.65, 14.00, 'Precio'     , oFont3 )
//     oPrn:CmSay( 9.65, 16.20, 'Dto.'       , oFont3 )
       oPrn:CmSay( 9.65, 18.20, 'Importe'    , oFont3 )

       nFil := 23.40
       nCol :=  2.20
       nTop := 27.20
       nBot := 20.15
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Box ( nFil, nCol, nTop, nBot, oPen2 )           //Caja Final TOTALES

       oPrn:CmSay ( 23.50,   2.40, 'BASE', oFont7 )
       oPrn:CmSay ( 23.50,   5.20, '%IVA', oFont7 )
       oPrn:CmSay ( 23.50,   6.75, 'CUOTA', oFont7 )
       oPrn:CmSay ( 23.50,   9.60, '%RE', oFont7 )
       oPrn:CmSay ( 23.50,  11.20, 'CUOTA', oFont7 )
       oPrn:CmSay ( 23.50,  14.10, 'IMPORTE', oFont7 )

       nFil := 24.00
       nCol :=  2.20
       nTop := 24.00
       nBot := 16.70
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen1 )         //1娄 HORIZONT TOTALES

       nFil := 23.40
       nCol :=  4.95
       nTop := 26.20
       nBot :=  4.95
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen1 )         //1娄 VERTICAL TOTALES
       nFil := 23.40
       nCol :=  6.45
       nTop := 26.20
       nBot :=  6.45
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen1 )         //2娄 VERTICAL TOTALES
       nFil := 23.40
       nCol :=  9.35
       nTop := 26.20
       nBot :=  9.35
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen1 )         //3娄 VERTICAL TOTALES
       nFil := 23.40
       nCol := 10.95
       nTop := 26.20
       nBot := 10.95
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen1 )         //4娄 VERTICAL TOTALES
       nFil := 23.40
       nCol := 13.80
       nTop := 26.20
       nBot := 13.80
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen1 )         //5娄 VERTICAL TOTALES
       nFil := 23.40
       nCol := 16.65
       nTop := 26.20
       nBot := 16.65
       aCoord1 := oPrn:Cmtr2Pix( @nFil, @nCol )
       aCoord2 := oPrn:Cmtr2Pix( @nTop, @nBot )
       oPrn:Line ( nFil, nCol, nTop, nBot, oPen2 )         //6娄 VERTICAL TOTALES

       oPrn:CmSay ( 23.50, 16.95, 'SUMA BASES:', oFont6 )
       oPrn:CmSay ( 26.44,  2.40, 'TOTAL IVA:',     oFont6 )
       oPrn:CmSay ( 26.44,  7.70, 'TOTAL R.E.:',    oFont6 )
       oPrn:CmSay ( 26.44, 13.35, 'TOTAL FACTURA:', oFont4 )


   ENDPAGE

 ENDPRINT

 oFont1:End()
 oFont2:End()
 oFont3:End()
 oFont4:End()
 oFont5:End()
 oFont6:End()
 oFont7:End()
 oFont8:End()
 oFontLogo:End()
 oPen1:End()
 oPen2:End()

 Return NIL


Muy agradecida;))
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: bugs FW14.06
Posted: Mon Jun 30, 2014 02:26 PM
mastintin wrote:Puedes poner aqui el c贸digo de tu prueba de impresi贸n a ver si reproduzco el error ? .
Si usas la ventana de preview completa en vez mdi te hace lo mismo ? .
Estoy interesado en el tema, a ver si estabilizamos el c贸digo .
Paraq empezar yo he puesto una DATA en rpreview.prg :

Code (fw): Select all Collapse
DATA 聽 lListViewHide INIT .t. 

METHOD BuildListView() CLASS TPreview

聽 聽.....
聽 IF ::lListviewHide
聽 聽 聽 ::oLvw:Hide()
聽 聽endif
return nil

METHOD Zoom( lMenu ) CLASS TPreview

聽 聽DEFAULT lMenu := .F.

聽 聽::lZoom := ! ::lZoom
聽 聽IF !::lListViewHide
聽 聽 聽 if IsWindowVisible( ::oLvw:hWnd )
聽 聽 聽 聽 聽::oLvw:Hide()
聽 聽 聽 else
聽 聽 聽 聽 聽::oLvw:Show()
聽 聽 聽 endif
聽 聽endif
聽 聽.....

METHOD ResizeListView() CLASS TPreview

IF !::lListviewHide

聽 聽::oLvw:nHeight = ::oWnd:GetCliRect():nHeight - 2 - ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 If( ::oWnd:oBar != nil, ::oWnd:oBar:nHeight() - 2,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ::oWnd:oTop:nHeight() ) - ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 If( ::oWnd:oMsgBar != nil, ::oWnd:oMsgBar:nHeight(),;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ::oWnd:oBottom:nHeight() )

聽 聽IF ::oLvw:nLeft == 0
聽 聽 聽 if ::oMeta1:nLeft <= 聽::oLvw:nWidth
聽 聽 聽 聽 聽::olvw:hide()
聽 聽 聽 else
聽 聽 聽 聽 ::olvw:show()
聽 聽 聽 endif
聽 聽else

聽 聽 聽 ::oLvw:nLeft := 聽::oWnd:GetCliRect():nWidth - 聽::oLvw:nWidth

聽 聽 聽 if ::lTwoPages
聽 聽 聽 聽 聽 if ::oLvw:nLeft <= ::oMeta2:nRight
聽 聽 聽 聽 聽 聽 聽::oLvw:hide()
聽 聽 聽 聽 聽 else
聽 聽 聽 聽 聽 聽 聽::oLvw:show()
聽 聽 聽 聽 聽 endif
聽 聽 聽 else
聽 聽 聽 聽 聽if ::oLvw:nLeft <= ::oMeta1:nRight
聽 聽 聽 聽 聽 聽 ::oLvw:hide()
聽 聽 聽 聽 聽else
聽 聽 聽 聽 聽 聽 ::oLvw:show()
聽 聽 聽 聽 聽endif
聽 聽 聽 endif
聽 聽endif

聽 聽::oLvw:refresh()
endif

return nil


Manuel, yo tambi茅n le estoy echando un vistazo
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: bugs FW14.06
Posted: Mon Jun 30, 2014 04:43 PM
con este rpreview a mi me funciona bien https://dl.dropboxusercontent.com/u/132931/rpreview.prg mirar a ver .
Observar el primer bot贸n ( una lupa) , permite ver o ocultar el listview y tambi茅n tiene una data para quitar el menu si se quiere . Es la soluci贸n ya propuesta en mi anterior mensaje .
Tiene un peque帽o bug que es que al cambiar el zoom ( con dobleclick ) tambi茅n esta cambiando la visibilidad del listview , pero eso ser谩 f谩cil de solucionar.
Static archive 路 New replies & topics via GitHub Discussions