XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
MultiEdit zum Ende scrollen
WINDOWSTYLE 31+512
WINDOWTITLE Multiedit zum Ende scrollen
WINDOW 0,0-640,440
Usermessages $10
Settruecolor 1
Declare MultiEdit&,Text$,Test%
LET MultiEdit&=@CreateMultiEdit(%HWND,,20,20,300,300)
@SendMessage(MultiEdit&,207,1,0) ReadOnly
Settimer 500

whilenot %UMESSAGE=$10

    WAITINPUT
    inc Test%
    LET Text$=Zeile +@str$(Test%)+@CHR$(13)+@CHR$(10) @CHR$(13)+@CHR$(10)?Zeilenumbruch
    @SendMessage(MultiEdit&,$00B1,-1,-1) Cursor auf Ende setzensetzen oder markieren
    @SendMessage(MultiEdit&,$00C2,0,@ADDR(Text$)) Text einfügen/ersetzen

wend

Killtimer