*

.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 Text Field

.

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