Nuevo SkinButtons() en FWH 9.09

[Antonio Linares]

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: Select all  Expand view

   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()
 

[Antonio Linares]

[Ruben Fernandez]

Antonio: Espectacular!!!!

Tambien podran tener bitmaps ?

Gracias y cordiales saludos

Ruben Fernandez

[Antonio Linares]

Ruben,

Estamos trabajando en ello, implementándolo

[Antonio Linares]

Soporte de Skins para la Clase TButtonBmp tambien

[Blessed]

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

[Antonio Linares]

Oscar,

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

[Ruben Fernandez]

Antonio:

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

Disculpen la intromision.

Saludos y Gracias

Ruben Fernandez

[Antonio Linares]

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

[Antonio Linares]

Este cambio es necesario en la Clase TControl:

Code: Select all  Expand view

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
 

[Blessed]

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

[Antonio Linares]

Si, debería servir en la 9.06 tambien

[miragerr]

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

[AIDA]

Que bonito se ve