|
* |
|
|
|
.Define the Object and Variables |
|
. |
|
|
|
QUIT |
BUTTON |
|
|
WHITE |
COLOR |
|
|
ST |
STATTEXT |
(8) |
|
ET |
EDITTEXT |
(8) |
|
RESULT |
FORM |
9 |
|
* |
|
|
|
.Ready the screen |
|
. |
|
|
|
|
DISPLAY |
*ES,*P30:1,"EDITTEXT OBJECT TEST"; |
|
* |
|
|
|
.Create the Quit Button |
|
. |
|
|
|
|
CREATE |
QUIT=23:24:37:44,"Quit" |
|
* |
|
|
|
.Create the Field Labels |
|
. |
|
|
|
|
CREATE |
ST(1)=3:4:5:20,"Standard:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(2)=5:6:5:20,"Integer:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(3)=7:8:5:20,"Decimal:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(4)=9:10:5:20,"Lowercase:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(5)=11:12:5:20,"Uppercase:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(6)=13:14:5:20,"Read Only:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(7)=15:16:5:20,"Static:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
|
CREATE |
ST(8)=17:18:5:20,"Wordwrap:": |
|
|
|
"SYSTEM(10,BOLD)",ALIGNMENT=3 |
|
* |
|
|
|
.Create the Background Color |
|
. |
|
|
|
|
CREATE |
WHITE=*WHITE |
|
* |
|
|
|
.Create the Various Edittext Objects |
|
. |
|
|
|
|
CREATE |
ET(1)=3:4:22:52,BORDER: |
|
|
|
BGCOLOR=WHITE,STYLE=3DON |
|
|
CREATE |
ET(2)=5:6:22:52,BORDER: |
|
|
|
BGCOLOR=WHITE,EDITTYPE=2,STYLE=3DON |
|
|
CREATE |
ET(3)=7:8:22:52,BORDER: |
|
|
|
BGCOLOR=WHITE,EDITTYPE=3,STYLE=3DON |
|
|
CREATE |
ET(4)=9:10:22:52,BORDER: |
|
|
|
BGCOLOR=WHITE,EDITTYPE=4,STYLE=3DON |
|
|
CREATE |
ET(5)=11:12:22:52,BORDER: |
|
|
|
BGCOLOR=WHITE,EDITTYPE=5,STYLE=3DON |
|
|
CREATE |
ET(6)=13:14:22:52,BORDER: |
|
|
|
BGCOLOR=WHITE,READONLY,STYLE=3DON |
|
|
CREATE |
ET(7)=15:16:22:52,BORDER: |
|
|
|
BGCOLOR=WHITE,STATIC,STYLE=3DON |
|
|
CREATE |
ET(8)=17:18:22:52,BORDER: |
|
|
|
BGCOLOR=WHITE,WORDWRAP,STYLE=3DON |
|
* |
|
|
|
.Activate All the Objects |
|
. |
|
|
|
|
ACTIVATE |
ST |
|
|
ACTIVATE |
ET |
|
|
ACTIVATE |
QUIT,QUITR,RESULT |
|
* |
|
|
|
.Set the Focus to the First Field and Initialize the Read Only |
|
. and Static Edittext Objects |
|
. |
|
|
|
|
SETFOCUS |
ET(1) |
|
|
SETITEM |
ET(6),0,"Read Only Data" |
|
|
SETITEM |
ET(7),0,"Static Data" |
|
* |
|
|
|
.Wait for an Event to Occur |
|
. |
|
|
|
|
LOOP |
|
|
|
EVENTWAIT |
|
|
|
REPEAT |
|
|
* |
|
|
|
.Quit Button Clicked |
|
. |
|
|
|
QUITR |
|
|
|
|
STOP |
|
|
* |
|
|
|
.Define the Object and Variables |
|
. |
|
|
|
RET |
RICHEDITTEXT |
|
|
BUTTONS |
BUTTON |
(7) |
|
RESULT |
FORM 9 |
|
|
NAME |
DIM |
100 |
|
PATH |
DIM |
100 |
|
FILENAME |
DIM |
200 |
|
* |
|
|
|
.Ready the screen |
|
. |
|
|
|
|
DISPLAY |
*ES,*P25:1,"Rich Text Format Editor"; |
|
* |
|
|
|
.Create the Quit Button |
|
. |
|
|
|
|
CREATE |
BUTTONS(1)=23:24:3:13,"Load" |
|
|
CREATE |
BUTTONS(2)=23:24:14:23,"Save" |
|
|
CREATE |
BUTTONS(3)=23:24:24:33,"Normal" |
|
|
CREATE |
BUTTONS(4)=23:24:34:43,"Bold" |
|
|
CREATE |
BUTTONS(5)=23:24:44:53,"Italic" |
|
|
CREATE |
BUTTONS(6)=23:24:54:63,"Underline" |
|
|
CREATE |
BUTTONS(7)=23:24:64:73,"Quit" |
|
* |
|
|
|
.Create the Various Edittext Objects |
|
. |
|
|
|
|
CREATE |
RET=3:20:3:73,BDRSTYLE=2: |
|
|
|
AUTOWORDSEL=1,SCROLLBAR=1 |
|
* |
|
|
|
.Activate All the Objects |
|
. |
|
|
|
|
ACTIVATE |
RET |
|
|
ACTIVATE |
BUTTONS(1),LOAD,RESULT |
|
|
ACTIVATE |
BUTTONS(2),SAVE,RESULT |
|
|
ACTIVATE |
BUTTONS(3),NORMAL,RESULT |
|
|
ACTIVATE |
BUTTONS(4),BOLD,RESULT |
|
|
ACTIVATE |
BUTTONS(5),ITALICIZE,RESULT |
|
|
ACTIVATE |
BUTTONS(6),UNDERLINE,RESULT |
|
|
ACTIVATE |
BUTTONS(7),QUIT,RESULT |
|
* |
|
|
|
.Set the Focus to the Rich Edit Text |
|
. |
|
|
|
|
SETFOCUS |
RET |
|
* |
|
|
|
.Wait for an Event to Occur |
|
. |
|
|
|
|
LOOP |
|
|
|
EVENTWAIT |
|
|
|
REPEAT |
|
|
* |
|
|
|
.Select a file and load it |
|
. |
|
|
|
LOAD |
|
|
|
|
CLEAR |
NAME,PATH |
|
|
GETFNAME |
OPEN,"Open File...",NAME,PATH,"rtf" |
|
|
IF |
NOT OVER |
|
|
PACK |
FILENAME WITH PATH,NAME |
|
|
RET.LoadFile USING FILENAME,0x2 |
|
|
ENDIF |
|
|
|
RETURN |
|
|
* |
|
|
|
.Save the file |
|
. |
|
|
|
SAVE |
|
|
|
|
CLEAR |
NAME,PATH |
|
|
GETFNAME |
PREP,"Save File...",NAME,PATH,"rtf" |
|
|
IF |
NOT OVER |
|
|
PACK |
FILENAME WITH PATH,NAME |
|
|
RET.SaveFile USING FILENAME,0x2 |
|
|
ENDIF |
|
|
|
RETURN |
|
|
* |
|
|
|
.Bold the Selected Text |
|
. |
|
|
|
NORMAL |
|
|
|
|
SETPROP |
RET,SELFONTBOLD=0,SELFONTITALIC=0: |
|
|
|
SELFONTUNDER=0 |
|
|
SETFOCUS |
RET |
|
|
RETURN |
|
|
* |
|
|
|
.Bold the Selected Text |
|
. |
|
|
|
BOLD |
|
|
|
|
SETPROP |
RET,SELFONTBOLD=1 |
|
|
SETFOCUS |
RET |
|
|
RETURN |
|
|
* |
|
|
|
.Italicize the Selected Text |
|
. |
|
|
|
ITALICIZE |
|
|
|
|
SETPROP |
RET,SELFONTITALIC=1 |
|
|
SETFOCUS |
RET |
|
|
RETURN |
|
|
* |
|
|
|
.Underline the Selected Text |
|
. |
|
|
|
UNDERLINE |
|
|
|
|
SETPROP |
RET,SELFONTUNDER=1 |
|
|
SETFOCUS |
RET |
|
|
RETURN |
|
|
* |
|
|
|
.Exit the Program |
|
|
. |
|
|
|
QUIT |
|
|
|
|
STOP |
|
