|
* |
|
|
|
.Define the Dialog, Result Variable and Initialization Data |
|
. |
|
|
|
D |
DIALOG |
|
|
RESULT |
FORM |
9 |
|
DDATA |
INIT |
"TYPE=MODELESS,TITLE='Sample Dialog',": |
|
|
|
"BUTTON=11:11:25:32:'STOP',": |
|
|
|
"TEXT=2:2:5:15:'Enter Name:',": |
|
|
|
"EDIT=2:2:16:50,": |
|
|
|
"CHECKBOX=4:4:5:15:'Checkbox 1',": |
|
|
|
"CHECKBOX=5:5:5:15:'Checkbox 2',": |
|
|
|
"CHECKBOX=6:6:5:15:'Checkbox 3',": |
|
|
|
"RADIO=8:8:5:15:'Radio 1',": |
|
|
|
"RADIO=9:9:5:15:'Radio 2',": |
|
|
|
"CHECKGRP=4:8:20:30:'Check Group':": |
|
|
|
"'Check A;Check B;Check C',": |
|
|
|
"RADIOGRP=4:8:35:45:'Radio Group':": |
|
|
|
"'Radio A;Radio B;Radio C',": |
|
|
|
"DATALIST=5:7:50:60,": |
|
|
|
"POPUPMENU=9:12:50:60:';Entry 1;Entry 2'" |
|
* |
|
|
|
.Create the Dialog |
|
. |
|
|
|
|
CREATE |
D,DDATA |
|
* |
|
|
|
.Add Three Items to the Datalist |
|
. |
|
|
|
|
INSERTITEM D,11,0,"Item 1" |
|
|
INSERTITEM D,11,99,"Item 2" |
|
|
INSERTITEM D,11,99,"Item 3" |
|
* |
|
|
|
.Activate the Dialog |
|
. |
|
|
|
|
ACTIVATE D,DROUTINE,RESULT |
|
* |
|
|
|
.Wait for an Event to Occur |
|
. |
|
|
|
|
LOOP |
|
|
|
EVENTWAIT |
|
|
|
REPEAT |
|
|
* |
|
|
|
.User Selected an Object |
|
. |
|
|
|
DROUTINE |
|
|
|
|
STOP |
IF (RESULT = 1) |
|
|
DISPLAY |
*P1:25,"Object Selected: ": |
|
|
|
RESULT,*W3,*P1:25,*EL; |
|
|
RETURN |
|
