Minha tela de login deste natal...
Tá fazendo sucesso.... rs

Moderador: Moderadores
WITH OBJECT oControl := wvgtstIcon():New()
:SetColorBG( SetColor() )
:cImage := "icojpatecnologia"
:Create( , , { -nRow, -24 }, { -5.5, -84 } )
ENDWITH
WITH OBJECT oControl := wvgTstIcon():New()
:SetColorBG( SetColor() ) // "W/B" )
DO CASE
CASE Month( Date() ) == 12 .AND. Day( Date() ) < 26
:cImage := "icoSanta"
OTHERWISE
:cImage := "icoUserId"
ENDCASE
:Create( , , { -( Row() + 1 ), -33 }, { -6, -13 } )
ENDWITH
Usuários vendo este fórum: Bing [Bot] e 4 visitantes