XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
RichEdit: Text nachträglich hinzufügen
Source wurde am 06.12.2006 in die Babyklappe auf XProfan.Com abgelegt:

Proc RTFAddLine

    fügt eine neue Zeile ans Ende des Textes ein
    Parameters hWnd&, Text$
    Text$ = Text$ + Chr$(10)
    Text$ =
    + Text$ + Chr$(10)
    SendMessage(hWnd&, 177, $FFFF, $FFFF)  EM_SETSEL
    SendMessage(hWnd&, 194, 0, Addr(Text$)) EM_REPLACESEL

EndProc

#####################################
declare MEdit&
cls
MEdit& = Create(RichEdit,%HWnd,,5,5,400,-300)
SetText MEdit&,Das ist ein Test!
RTFAddLine MEdit&,Diese Zeile wurde nachträglich hinzugefügt!
WaitInput
end