A
Adriano Correa
Guest
Do you need a toggle, or you need something to click on and change a color? If option 2, try this: DEFINE VARIABLE fl-togo AS CHARACTER FORMAT "X(256)":U INITIAL "False" LABEL "My Togo" VIEW-AS FILL-IN SIZE 3 BY .71 BGCOLOR 12 FGCOLOR 12 NO-UNDO. DEFINE FRAME DEFAULT-FRAME fl-togo AT ROW 3 COL 20 COLON-ALIGNED WITH 1 DOWN SIDE-LABELS THREE-D AT COL 1 ROW 1 SIZE 80 BY 10. ON MOUSE-SELECT-CLICK OF fl-togo IN FRAME DEFAULT-FRAME DO: IF fl-togo = "True" THEN ASSIGN fl-togo = "False" fl-togo:BGCOLOR = 12 fl-togo:FGCOLOR = 12. ELSE ASSIGN fl-togo = "True" fl-togo:BGCOLOR = 10 fl-togo:FGCOLOR = 10. END. DISPLAY fl-togo WITH FRAME DEFAULT-FRAME. ENABLE fl-togo WITH FRAME DEFAULT-FRAME. ASSIGN fl-togo:READ-ONLY IN FRAME DEFAULT-FRAME = TRUE fl-togo:SCREEN-VALUE = "". WAIT-FOR CLOSE OF THIS-PROCEDURE.
Continue reading...
Continue reading...