- 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
Many thanks to Lailton for this great contribution!