Nuevo Skin para Diálogos en FWH 10.5

[Antonio Linares]

FWH 10.5 proporciona una nueva Clase TSkin para crear diálogos con "Skin":

Code: Select all  Expand view

/*

   Demo de uso da class TSkin
   Por : Lailton Fernando Mariano
   DATA: 14/05/2010

*/

#include "Fivewin.ch"

Function main()

 local oDlg
 local oSayA, cSayA:="Usuario:"
 local oSayB, cSayB:="Senha:"
 local oGetA, cGetA:=Space(50)
 local oLogo, cLogo:="..\bitmaps\redstarsoft.bmp"
 local oGroup
 local oBtnA, oBtnb
 local oGetB, cGetB:=Space(50)

 Define Dialog oDlg TITLE "Class TSKIN" PIXEL Resource "SAMPLE1" STYLE WS_POPUP
   
   REDEFINE BITMAP oLogo FILE cLogo ID 4008 OF oDlg ADJUST
   REDEFINE SAY oSayA VAR cSayA ID 4004 OF oDlg
   REDEFINE SAY oSayB VAR cSayB ID 4005 OF oDlg  
   REDEFINE GET oGetA VAR cGetA ID 4002 OF oDlg
   REDEFINE GET oGetB VAR cGetB ID 4003 OF oDlg
   REDEFINE GROUP oGroup ID 4001 OF oDlg  
   REDEFINE BUTTON oBtnA ID 4006 OF oDlg Action Msginfo("OK")
   REDEFINE BUTTON oBtnB ID 4007 OF oDlg Action Msginfo("Cancelar")    

   oDlg:bStart:= {|| SKIN( oDlg, "blue_skin" ) }
   
   Activate Dialog oDlg CENTERED ;
      ON INIT oDlg:Shadow()
   
return nil
 

Muchas gracias a Lailton por esta excelente contribución!

[Antonio Linares]

[mgsoft]

Muy chulo Antonio.

Lo suyo es que se aplique a todos los diálogos sin necesidad de llamar a Skin, al igual que sucede con los botones

[Antonio Linares]

En cuanto se empiece a usar supongo que habrá opiniones y peticiones para todos los gustos, asi que iremos modificándolo

[fgondi]

Buena mejora.

¿Se podría hacer algo parecido para ventanas MDICHILD?

[AIDA]

Antonio esta genial siempre sales con algo bonito

Saluditos