|
* |
|
|
|
.Define the Object and Variables |
|
. |
|
|
|
QUIT |
BUTTON |
|
|
ST |
STATTEXT |
(4) |
|
EDN |
EDITNUMBER |
(4) |
|
RESULT |
FORM |
9 |
|
* |
|
|
|
.Ready the screen |
|
. |
|
|
|
|
DISPLAY |
*ES,*P30:1,"EDITNUMBER OBJECT TEST"; |
|
* |
|
|
|
.Create the Quit Button |
|
. |
|
|
|
|
CREATE |
QUIT=23:24:37:44,"Quit" |
|
* |
|
|
|
.Create the Field Labels |
|
. |
|
|
|
|
CREATE |
ST(1)=3:4:1:30,"Minimum 10/Maximum 20:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(2)=6:7:1:30,"Align Right:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(3)=9:10:1:30,"Two Decimal Digits:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(4)=12:13:1:30,"Change by 5:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
* |
|
|
|
.Create the Various EditNumber Objects |
|
. |
|
|
|
|
CREATE |
EDN(1)=3:4:32:52,UPDOWNMIN=10,UPDOWNMAX=20: |
|
|
|
UPDOWNALIGN=1,BORDER=1 |
|
|
CREATE |
EDN(2)=6:7:32:52,UPDOWNMIN=0,UPDOWNMAX=20: |
|
|
|
UPDOWNALIGN=3,ALIGNMENT=3,BORDER=1 |
|
|
CREATE |
EDN(3)=9:10:32:52,UPDOWNMIN=0,UPDOWNMAX=20: |
|
|
|
UPDOWNALIGN=3,ALIGNMENT=3,BORDER=1,DECIMALDIGITS=2 |
|
|
CREATE |
EDN(4)=12:13:32:52,UPDOWNMIN=0,UPDOWNMAX=20: |
|
|
|
UPDOWNALIGN=3,ALIGNMENT=3,BORDER=1,UPDOWNCHANGE=5 |
|
* |
|
|
|
.Activate All the Objects |
|
. |
|
|
|
|
ACTIVATE |
ST |
|
|
ACTIVATE |
EDN |
|
|
ACTIVATE |
QUIT,QUITR,RESULT |
|
* |
|
|
|
.Wait for an Event to Occur |
|
. |
|
|
|
|
LOOP |
|
|
|
EVENTWAIT |
|
|
|
REPEAT |
|
|
* |
|
|
|
.Quit Button Clicked |
|
. |
|
|
|
QUITR |
|
|
|
|
STOP |
|
