Uma idéia,
#INCLUDE "FIVEWIN.CH"
FUNCTION MAIN()
LOCAL ODLG
LOCAL OGET1, OGET2, OGET3, OGET4
LOCAL CVAR1, CVAR2, CVAR3, CVAR4
LOCAL LACTIVE := .F.
CVAR1 := 0
CVAR2 := 0
CVAR3 := 0
CVAR4 := 0
READINSERT( .F. )
DEFINE DIALOG ODLG TITLE "FROM CODE" PIXEL SIZE 300,300
@ 10,10 GET OGET1 VAR CVAR1 BITMAP "..\BITMAPS\ON.BMP" ;
ACTION( LIGA_INSERE_GET1() ) OF ODLG PIXEL SIZE 60,12
OGET1:CTOOLTIP := OEMTOANSI( "CLICK NA BITMAP: LIGA/DESLIGA O INSERT" )
OGET1:LBTNTRANSPARENT := .T. // TRANSPARENT BUTTON
@ 40,10 GET OGET2 VAR CVAR2 BITMAP "..\BITMAPS\ON.BMP" ACTION( MSGINFO( "WITHOUT TRANSPARENT" ) ) OF ODLG PIXEL SIZE 60,12
@ 70,10 GET OGET3 VAR CVAR3 BITMAP "..\BITMAPS\CHKYES.BMP" ACTION( MSGINFO( "WITH ADJUST-TRANSPARENT" ) ) OF ODLG PIXEL SIZE 120,12
OGET3:DISABLE()
OGET3:LBTNTRANSPARENT := .T. // TRANSPARENT BUTTON GET OGET3
OGET3:LADJUSTBTN := .T. // BUTTON GET ADJUST WITDH OGET3
OGET3:LDISCOLORS := .F. // DEACTIVE DISABLE COLOR
OGET3:NCLRTEXTDIS := CLR_WHITE // COLOR TEXT DISABLE STATUS
OGET3:NCLRPANEDIS := CLR_BLUE // COLOR PANE DISABLE STATUS
@ 100,10 GET OGET4 VAR CVAR4 BITMAP "..\BITMAPS\CHKYES.BMP" ;
ACTION( IF( LACTIVE,OGET3:DISABLE(),OGET3:ENABLE()), LACTIVE:= !LACTIVE, ODLG:UPDATE() ) OF ODLG PIXEL SIZE 120,12
OGET4:LADJUSTBTN := .T.
ACTIVATE DIALOG ODLG CENTERED ;
SET( _SET_INSERT, ! SET( _SET_INSERT ) )
RETURN NIL
FUNCTION LIGA_INSERE_GET1()
SET( _SET_INSERT, ! SET( _SET_INSERT ) )
RETURN( .T. )