FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour BTNBMP disable se ve algo grotesco con W7
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
BTNBMP disable se ve algo grotesco con W7
Posted: Fri Nov 06, 2009 02:14 PM

Hola Antonio...
Estoy utilizando Windows 7 y al igual que wn Windows Vista los botones de la clase BTNBMP, cuando estan en modo disable() se ven algo grotescos... alguna manera de definirlos con mejos aspecto??
Salu2

http://www.servidor-imagenes.com/show-i ... 62d8faf037

Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: BTNBMP disable se ve algo grotesco con W7
Posted: Fri Nov 06, 2009 02:57 PM

Has probado usarlos transparente o si seria posible usarlo con 2 bitmaps, 1 cuando esta activo y otro disable..? nose, es una idea que se me viene a mente, lo que no se es si permite eso, al igual que en programacion web que se puede poner hasta 3 imagenes, 1 activo, 1 disable y 1 pulsada, asi se emula un efecto, esperemos que dice A.L. saludos... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: BTNBMP disable se ve algo grotesco con W7
Posted: Fri Nov 06, 2009 03:06 PM

Willi,

Que versión de Windows usabas anteriormente y como se veian en ella ?

Coincido contigo en que deberian verse en una escala de grises y no tan planos

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: BTNBMP disable se ve algo grotesco con W7
Posted: Fri Nov 06, 2009 03:29 PM
Willi, no es solo en W7 también en Vista y XP

Se tiene que tener 4 imagenes, o repetir alguna
Code (fw): Select all Collapse
 @15,15 BTNBMP oBtn RESOURCE "Bot_Enable","Bot_Presionado","Bot_Disable","Bot_MouseOver" OF oDlg SIZE 20,20 NOBORDER ACTION Funcion() When lPuede

Con PROMPT funciona perfecto

Saludos

Adhemar
Saludos,



Adhemar C.
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: BTNBMP disable se ve algo grotesco con W7
Posted: Fri Nov 06, 2009 03:50 PM

HOla Antonio,,,,
Antes usaba Windows XP, ahora tengo W7 en la portatil,,, probe en otra con XP y los botones se ven asi:

http://www.servidor-imagenes.com/show-i ... 531a0eb217
como observaran, se puede leer el texto y la imagen en si es mas definida

Salu2

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: BTNBMP disable se ve algo grotesco con W7
Posted: Fri Nov 06, 2009 04:00 PM

Hola Adhemar,
Tome tu sugerencia , puse 4 bitmaps (repeti una imagen) y el resultado con el boton disabled() es el siguiente:
(RESOURCE "CAMA0", "CAMA0", "CAMA0", "CAMA0" TOP NOBORDER)

http://www.servidor-imagenes.com/show-i ... 31b892bff2

lo que va en gris es solo el texto (PROMPT) la imagen sigue a color,,,

Salu2

Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: BTNBMP disable se ve algo grotesco con W7
Posted: Fri Nov 06, 2009 07:11 PM
Willi
El Fivewin hasta la version 9.04 tenia una falla en el Fivewin.ch, fue descubierta por Manuel Mercado, en las versiones superior ya está corregido por Antonio.

Tiene que estar asi:
Code (fw): Select all Collapse
#xcommand REDEFINE BTNBMP [<oBtn>] ;
             [ ID <nId> ] ;
             [ <bar: OF, BUTTONBAR > <oBar> ] ;
             [ <resource: NAME, RESNAME, RESOURCE> <cResName1> ;
                [,<cResName2>[,<cResName3>[,<cResName4>] ] ] ];   //Aqui tenía la falla
             [ <file: FILE, FILENAME, DISK> <cBmpFile1> ;
               [,<cBmpFile2>[,<cBmpFile3>[,<cBmpFile4>] ] ] ] ;
             [ <action:ACTION,EXEC,ON CLICK> <uAction,...> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <adjust: ADJUST > ] ;
             [ WHEN <uWhen> ] ;
             [ <lUpdate: UPDATE> ] ;
             [ TOOLTIP <cToolTip> ] ;
             [ PROMPT <cPrompt> ] ;
             [ FONT <oFont> ] ;
             [ <lNoBorder: NOBORDER> ] ;
             [ <layout: CENTER, TOP, LEFT, BOTTOM, RIGHT> ] ;
             [ <l2007: 2007> ] ; 
             [ <lTrans: TRANSPARENT> ] ;             
      => ;
         [ <oBtn> := ] TBtnBmp():ReDefine( <nId>, <cResName1>, <cResName2>,;
            <cBmpFile1>, <cBmpFile2>, <cMsg>, [{|Self|<uAction>}],;
            <oBar>, <.adjust.>, <{uWhen}>, <.lUpdate.>, <cToolTip>,;
            <cPrompt>, <oFont>, [<cResName3>], [<cBmpFile3>], [!<.lNoBorder.>],;
            [ Upper(<(layout)>) ], <.l2007.>,[<cResName4>], [<cBmpFile4>], <.lTrans.> )


Saludos

Adhemar
Saludos,



Adhemar C.

Continue the discussion