19 Mai 2018 19:08
FUNCTION TestarEnableDisable()
oIconPastaC := HIcon():AddFile("ICON_PASTAC.ICO", 24, 24)
oIconPastaD := HIcon():AddFile("ICON_PASTAD.ICO", 24, 24)
INIT DIALOG oDlg ;
TITLE "Testar Icone Cor / Cinza" ;
AT 0, 0 ;
SIZE 637,120 ;
ICON oIconPastaC ;
NOEXIT ;
STYLE WS_POPUP + WS_CAPTION + WS_SYSMENU + DS_CENTER
ThisForm := oDlg
@ 10,72 BUTTONEX oBtnPasta ;
CAPTION "" ;
SIZE 32,32 ;
ICON oIconPastaC:handle ;
STYLE BS_CENTER + WS_TABSTOP ;
ON CLICK {|| TestarPasta() }
ACTIVATE DIALOG oDlg
RETURN Nil
FUNCTION Enable( oBtn, bClick, oColor )
ThisForm:oBtn:bClick := bClick
ThisForm:oBtn:SetIcon( oColor:handle )
RETURN Nil
FUNCTION Disable( oBtn, oColor )
ThisForm:oBtn:bClick := Nil
ThisForm:oBtn:SetIcon( oColor:handle )
RETURN Nil
FUNCTION TestarPasta()
Disable( oBtnPasta, oIconPastaD )
Hwg_MsgInfo( "Botão do Icone ficou disable e trocou a cor para cinza, simulando o Disable()")
Enable( oBtnPasta, {|| TestarPasta() }, oIconPastaC )
Hwg_MsgInfo( "Botão do Icone ficou enable e trocou a cor para colorido, simulando o Enable()")
RETURN Nil
19 Mai 2018 20:16
THREAD STATIC ThisForm, oBtnPasta
FUNCTION TestarEnableDisable()
oIconPastaC := HIcon():AddFile("ICON_PASTAC.ICO", 24, 24)
oIconPastaD := HIcon():AddFile("ICON_PASTAD.ICO", 24, 24)
INIT DIALOG oDlg ;
TITLE "Testar Icone Cor / Cinza" ;
AT 0, 0 ;
SIZE 637,120 ;
ICON oIconPastaC ;
NOEXIT ;
STYLE WS_POPUP + WS_CAPTION + WS_SYSMENU + DS_CENTER
ThisForm := oDlg
@ 10,72 BUTTONEX oBtnPasta ;
CAPTION "" ;
SIZE 32,32 ;
ICON oIconPastaC:handle ;
STYLE BS_CENTER + WS_TABSTOP ;
ON CLICK {|| TestarPasta() }
ACTIVATE DIALOG oDlg
RETURN Nil
FUNCTION Enable( oBtn, bClick, oColor )
oBtn:bClick := bClick
oBtn:SetIcon( oColor:handle )
RETURN Nil
FUNCTION Disable( oBtn, oColor )
oBtn:bClick := Nil
oBtn:SetIcon( oColor:handle )
RETURN Nil
FUNCTION TestarPasta()
Disable( oBtnPasta, oIconPastaD )
Hwg_MsgInfo( "Botão do Icone ficou disable e trocou a cor para cinza, simulando o Disable()")
Enable( oBtnPasta, {|| TestarPasta() }, oIconPastaC )
Hwg_MsgInfo( "Botão do Icone ficou enable e trocou a cor para colorido, simulando o Enable()")
RETURN Nil
20 Mai 2018 08:37
20 Mai 2018 16:02
20 Mai 2018 18:58
DrawState( hDC, NULL, NULL, ( LPARAM ) hIcon, 0, x, y, cx, cy,
( style & WS_DISABLED ) !=
0 ? ( DST_ICON | DSS_DISABLED ) : ( DST_ICON | DSS_NORMAL ) );
20 Mai 2018 21:39