New Skins for Dialogs in FWH 10.5

New Skins for Dialogs in FWH 10.5

Postby Antonio Linares » Wed May 26, 2010 10:05 am

FWH 10.5 provides a new Class TSkin to create skinned dialogs:

Image

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! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42082
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New Skins for Dialogs in FWH 10.5

Postby Antonio Linares » Wed May 26, 2010 10:11 am

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42082
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New Skins for Dialogs in FWH 10.5

Postby James Bott » Wed May 26, 2010 2:11 pm

Nice! This is going to be a popular feature.

James
User avatar
James Bott
 
Posts: 4840
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], Marc Venken, nageswaragunupudi and 63 guests