anandknr
Member
Hi All,
Below pasted is a simple eg. of static radio set.
DEFINE VARIABLE hist-date AS DATE NO-UNDO FORMAT "99/99/9999" INITIAL 07/04/1776 VIEW-AS RADIO-SET RADIO-BUTTONS "Declaration of Independence", 07/04/1776, "Lee Surrenders to Grant", 04/07/1865, "Man Walks on Moon", 07/11/1969.
FORM hist-date WITH FRAME main-frame NO-LABELS TITLE "Dates in US History".
ON VALUE-CHANGED OF hist-date
DO:
ASSIGN hist-date.
DISPLAY "This event occurred on " + STRING(hist-date) FORMAT "x(60)" WITH FRAME main-frame.
END.
ENABLE hist-date WITH FRAME main-frame.
APPLY "VALUE-CHANGED" TO hist-date.
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW
How can i make a dynamic set of radio set as i have done with toggle box below?
def var i as int no-undo .
DEFINE VARIABLE wh AS HANDLE NO-UNDO .
DEFINE FRAME new-buttons WITH SIZE 76 BY 11 CENTERED ROW 2 TITLE "New Buttons" .
DEFINE BUTTON b_quit LABEL "Quit"
TRIGGERS :
ON CHOOSE
DO :
message "" view-as alert-box .
END .
END .
DEFINE FRAME butt-frame b_quit WITH ROW SCREEN-LINES - 2 .
IF VALID-HANDLE (wh) THEN DELETE WIDGET-POOL "new-buttons" .
do i = 1 to 10 :
IF wh = ? OR NOT VALID-HANDLE (wh) THEN CREATE WIDGET-POOL "new-buttons" PERSISTENT .
CREATE TOGGLE-BOX wh IN WIDGET-POOL "new-buttons" ASSIGN
FRAME = FRAME new-buttons: HANDLE
ROW = RANDOM ( 2 , 9 )
COLUMN = RANDOM ( 2 , 58 )
LABEL = "BUTTON " + STRING ( ETIME )
SENSITIVE = TRUE
VISIBLE = TRUE
TRIGGERS :
ON CHOOSE PERSISTENT RUN dispmsg.
END .
end .
ENABLE b_quit WITH FRAME butt-frame.
DO ON ENDKEY UNDO , LEAVE :
WAIT-FOR CHOOSE OF b_quit IN FRAME butt-frame.
END .
Hi
Below pasted is a simple eg. of static radio set.
DEFINE VARIABLE hist-date AS DATE NO-UNDO FORMAT "99/99/9999" INITIAL 07/04/1776 VIEW-AS RADIO-SET RADIO-BUTTONS "Declaration of Independence", 07/04/1776, "Lee Surrenders to Grant", 04/07/1865, "Man Walks on Moon", 07/11/1969.
FORM hist-date WITH FRAME main-frame NO-LABELS TITLE "Dates in US History".
ON VALUE-CHANGED OF hist-date
DO:
ASSIGN hist-date.
DISPLAY "This event occurred on " + STRING(hist-date) FORMAT "x(60)" WITH FRAME main-frame.
END.
ENABLE hist-date WITH FRAME main-frame.
APPLY "VALUE-CHANGED" TO hist-date.
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW
How can i make a dynamic set of radio set as i have done with toggle box below?
def var i as int no-undo .
DEFINE VARIABLE wh AS HANDLE NO-UNDO .
DEFINE FRAME new-buttons WITH SIZE 76 BY 11 CENTERED ROW 2 TITLE "New Buttons" .
DEFINE BUTTON b_quit LABEL "Quit"
TRIGGERS :
ON CHOOSE
DO :
message "" view-as alert-box .
END .
END .
DEFINE FRAME butt-frame b_quit WITH ROW SCREEN-LINES - 2 .
IF VALID-HANDLE (wh) THEN DELETE WIDGET-POOL "new-buttons" .
do i = 1 to 10 :
IF wh = ? OR NOT VALID-HANDLE (wh) THEN CREATE WIDGET-POOL "new-buttons" PERSISTENT .
CREATE TOGGLE-BOX wh IN WIDGET-POOL "new-buttons" ASSIGN
FRAME = FRAME new-buttons: HANDLE
ROW = RANDOM ( 2 , 9 )
COLUMN = RANDOM ( 2 , 58 )
LABEL = "BUTTON " + STRING ( ETIME )
SENSITIVE = TRUE
VISIBLE = TRUE
TRIGGERS :
ON CHOOSE PERSISTENT RUN dispmsg.
END .
end .
ENABLE b_quit WITH FRAME butt-frame.
DO ON ENDKEY UNDO , LEAVE :
WAIT-FOR CHOOSE OF b_quit IN FRAME butt-frame.
END .
Hi
