XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Richedit auf readonly setzen und weiterscrollen
 $H Windows.ph
cls
Declare ende&,main&,log&,lines&
windowstyle 512
main&=Create(Window,%hwnd, RichEdit readonly, 200,200,400,320)
Let log& = Create(RichEdit,main&,,5,60,190,-150)
~SendMessage(log&,207,1,0) ReadOnly
~SendMessage(log&,$00C2,0,Das ist ein Beispieltext
) Text einfügen ->
= Zeilenumbruch
~SendMessage(log&,$00B6,0,1) Zeile Scrollen
~SendMessage(log&,$00B1,-1,-1) Cursor auf Ende setzen
~SendMessage(log&,$00C2,0,und noch ein Text
) Text einfügen
~SendMessage(log&,$00B6,0,1) Zeile Scrollen

whilenot ende&

    waitinput

endwhile