wvt_DrawButton() no XHarbour
Enviado: 07 Mai 2023 18:59
https://github.com/ronpinkas/xharbour/b ... emowvg.prg
Não sei se vale para o harbour, parece com recurso a mais.
Código: Selecionar todos
WvtSetObjects( { OBJ_TYPE_BUTTON, 1, nBtnRow, 6,nBtnRow+1, 9, ;
{|| Wvt_DrawButton( nBtnRow, 6,nBtnRow+1, 9, ,IMAGE_VOUCH,btnFDisp ) },;
{|| Wvt_DrawButton( nBtnRow, 6,nBtnRow+1, 9, ,IMAGE_VOUCH,btnFMOver ) },;
{|| Wvt_DrawButton( nBtnRow, 6,nBtnRow+1, 9, ,IMAGE_VOUCH,btnFBDown ) },;
{|| Wvt_DrawButton( nBtnRow, 6,nBtnRow+1, 9, ,IMAGE_VOUCH,btnFBUp ) ,;
eval( SetKey( K_F2 ) ) } ;
} )