XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Richedit-Editor programmieren (RTF-Text)
declare zeile$,datei$

PROC SAVEEDIT

    RTF(SaveRTF,hedit&,datei$)

ENDPROC

Proc RichEditboxEx

    -------------
    parameters titel$
    declare hDialog&, hEdit&, hOk&, hEsc&, Ende%
    hDialog& = create(Dialog, %hWnd, titel$, %MaxX/2 - 320, %MaxY/2 - 240, 640, 480)
    hEdit& = create(RichEdit, hDialog&, , 0, 0, 636, 420)
    SendMessage(hedit&,$0443,0,rgb(0,0,0))
    hOk&  = create(Button, hDialog&, &Ok, 5, Height(hDialog&) - 26, 68, 24)
    Create(ToolTip,%HWnd,hOK&,Der Text wird gespeichert.)
    hEsc&  = create(Button, hDialog&, &Abbruch, 564, Height(hDialog&) - 26, 68, 24)
    Create(ToolTip,%HWnd,hEsc&,Der Editor wird beendet.)
    Ende% = 0
    datei$ = RICHEDIT.RTF
    RTF(LoadRTF,hEDit&,datei$)

    WhileNot Ende%

        WaitInput

        If (%Key = 2) or GetFocus(hEsc&)

            Ende% = 1

        ElseIf GetFocus(hOk&)

            SAVEEDIT
            Ende% = 2

        EndIf

    EndWhile

    destroyWindow(hDialog&)
    return Ende% - 1

endproc

###################################################################
cls
Richeditboxex EditBox