topic-16616

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Nuevo SkinButtons() en FWH 9.09
Posted: Tue Sep 08, 2009 10:05 AM

Nueva función SkinButtons() para cambiar la apariencia de todos los botones estandard de Windows de tu aplicación, con una simple llamada a una función:

Tambien podeis establecer los colores que querais para los estados normal, foco y pulsado, e incluso cambiarlos durante la ejecución del programa:

Code (fw): Select all Collapse

   SetSkinButtonsColors( 1, { { 0.33, nRGB( 167,  73, 169 ), nRGB( 253, 157, 165 ) }, ;
                              { 0.33, nRGB( 253, 157, 165 ), nRGB( 167,  73, 169 ) } },;
                         nRGB( 153, 43, 153 ), nRGB( 213, 102, 213 ) )     
   
   SkinButtons()

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Tue Sep 08, 2009 10:50 PM

regards, saludos

Antonio Linares
www.fivetechsoft.com

Ruben Fernandez

Posts: 366

Joined: Wed Aug 30, 2006 05:25 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Wed Sep 09, 2009 01:35 PM

Antonio: Espectacular!!!!

Tambien podran tener bitmaps ?

Gracias y cordiales saludos

Ruben Fernandez

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Wed Sep 09, 2009 03:04 PM

Ruben,

Estamos trabajando en ello, implementándolo :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Fri Sep 11, 2009 05:01 PM

Soporte de Skins para la Clase TButtonBmp tambien

regards, saludos

Antonio Linares
www.fivetechsoft.com

Blessed

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Fri Sep 11, 2009 08:38 PM

Si los hotKeys, estaran funcionanles para BTNBMP Y BUTTONBMP, para la FWH 9.09 favor publiquenlo, para hacer lo posible para actualizarme;

Saludos desde Honduras

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Sat Sep 12, 2009 06:28 AM

Oscar,

Los usas desde una caja de diálogo ó desde una ventana ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Ruben Fernandez

Posts: 366

Joined: Wed Aug 30, 2006 05:25 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Sat Sep 12, 2009 08:13 AM

Antonio:

Me interesa a mi tambien. Yo los uso en dialogos desde recursos.

Disculpen la intromision.

Saludos y Gracias

Ruben Fernandez

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Sun Sep 13, 2009 12:40 PM

Funcionan en ambos, desde la 9.08, aunque aun existe la limitación de que un BtnBmp tiene que tener el foco para que funcionen,

Estamos trabajando para terminar de implementarlo :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Sun Sep 13, 2009 12:48 PM

Este cambio es necesario en la Clase TControl:

Code (fw): Select all Collapse

METHOD SysKeyDown( nKey, nFlags ) CLASS TControl

   local n, cPrompt, nAt, oControl

   if ValType( ::bSysKeyDown ) == "B"
      Eval( ::bSysKeyDown, nKey, nFlags, Self )
   endif   

   for n = 1 to Len( ::oWnd:aControls )
      oControl = ::oWnd:aControls[ n ]
      if oControl:Classname() == "TBTNBMP" .and. !oControl:lBarBtn
         cPrompt = ::oWnd:aControls[ n ]:cCaption
         nAt = At( "&", cPrompt )
         if nAt != 0
            if Upper( SubStr( cPrompt, nAt + 1, 1 ) ) == Upper( Chr( nKey ) )
               SetFocus( ::oWnd:aControls[ n ]:hWnd )
               ::oWnd:aControls[ n ]:Click()
               return 0 // msg processed
            endif
         endif
      endif
   next

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Blessed

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Mon Sep 14, 2009 10:33 PM

Gracias por tu tiempo, Antonio.

aunque aun existe la limitación de que un BtnBmp tiene que tener el foco para que funcionen

Estare al pendiente de cuando este listo.
El cambio en la Clase TControl, es para la FWH 9.08, ya que yo tengo en uso la FWH 9.06

Saludos

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Tue Sep 15, 2009 06:36 AM

Si, debería servir en la 9.06 tambien :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

miragerr

Posts: 140

Joined: Tue Oct 11, 2005 02:36 AM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Thu Oct 15, 2009 06:35 AM

Ola amigos

Antonio reconstrui toda a FIVEHX.LIB e não me funciona a SkinButtons, em que LIB esta a Skinbuttons, pois se uso a FIVEHX.LIB original funciona perfeito

Pode ajudarme

Fico no aguardo

Jackson Douglas C. Brito

Boa Vista - RR - Brasil

FWH 12.09 Last Build

xHarbour Free

UESTUDIO

SQLRDD

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Nuevo SkinButtons() en FWH 9.09
Posted: Tue Nov 03, 2009 04:23 AM

Que bonito se ve

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

FiveTech Support Forums

Continue the discussion