FiveTech Support Forums

/*
    Exemplo de uso TSkin
    Por: Lailton Fernando Mariano
 */

 #include "Fivewin.ch"
 #include "Slider.ch"
 
 Function main()
 
   local oDlg, oSkin
   local nHue  := 0, oSHue
   local nTrans:= 255, oTrans
   local oGeta, oGetb
   local nGeta := space(50), nGetb := Space( 50 )
   local oSaya, cSaya:="Cadastro de Produtos"
   local oSayb, cSayb:="Transparencia da tela"
   local oBtna, oBtnb
   
   DEFINE dialog oDlg PIXEL STYLE WS_POPUP RESOURCE "SAMPLE2" TITLE "Class TSkin - By Redstarsoft ^^"

   REDEFINE TRACKBAR oSHue  POS nHue   MIN -100 MAX 100 OF oDlg FREQUENCY 1 ID 1001 ON CHANGE( changeColor( oSkin , oSHUE:GetPos()) )
   REDEFINE TRACKBAR oTrans POS nTrans MIN 0 MAX 255    OF oDlg FREQUENCY 1 ID 4006 ON CHANGE( oSkin:Transparent( oTrans:GetPos() ) )

   REDEFINE SAY oSaya VAR cSaya ID 4001 of oDlg TRANSPARENT
   REDEFINE SAY oSayb VAR cSayb ID 4007 of oDlg TRANSPARENT
   REDEFINE GET oGeta VAR nGeta ID 4002 of odlg
   REDEFINE GET oGetb VAR nGetb ID 4003 of odlg   
   REDEFINE BUTTON oBtna ID 4004 of oDlg Action Msginfo("OK","Informação !")
   REDEFINE BUTTON oBtnb ID 4005 of oDlg Action Msginfo("Cancelar","Informação !")

   oDlg:bStart := {|| oSkin := Skin( oDlg, "Black_skin" ) }

   ACTIVATE dialog oDlg CENTERED ;
      ON INIT oDlg:Shadow()

   oSkin:end() // Finaliza Skin
   
Return nil

/*
   A função abaixo faz com que altere a cor do skin, ajustando o HUE e Saturation das
   Imagem do skin. ( Logico que nem tudo fica bom, mais é essa a finalidade dela. )
*/
Function changeColor( o, nH )
   local i
   for   i = 1 to len(o:this)
               ApplySetFilter( o:this[i], DuplicateBitmap( o:this[i]:hBitmap ),,0,0,nH) 
   next  i      
   o:update()
return nil