XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
RTF: Demo zum Laden und Speichern von RTF-Dateien
Declare RE&, Font&, Ende%, Button1%, Button2%, File$
SetTrueColor 1
WindowStyle $03F
WindowTitle RTF-Demo
Window 207,114 - 498,408
Cls RGB(192,192,192)
Font& = Create(Font,MS Sans Serif,13,0,0,0,0)
SetDialogFont Font&
Let RE&=Create(RichEdit,%hwnd,,30,51,432,202)
Let Button1%=CreateButton(%hwnd,Laden,58,295,75,25)
Let Button2%=CreateButton(%hwnd,Speichern,224,295,75,25)
ende% = 0

WhileNot ende%

    WaitInput

    If %key = 2

        ende%=1

    ElseIf GetFocus (button1%)

        file$ = LoadFile$(Als RTF öffnen,*.RTF)

        If file$ <>

            RTF(LoadRTF,re&,file$)

        EndIf

    ElseIf GetFocus(button2%)

        file$ = SaveFile$(Als RTF speichern,*.RTF)

        If file$ <>

            RTF(SaveRTF,re&,file$)

        EndIf

    EndIf

EndWhile

DeleteObject Font&
Fin