XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
RichEdit zum Ende scrollen
WINDOWSTYLE 31+512
WINDOWTITLE RichEdit zum Ende scrollen
WINDOW 0,0-640,440
Usermessages $10
Settruecolor 1
Declare RichEdit&,DLL_HDL&,Text$,Style$,Test%
DLL_HDL&=@UseDLL($SYSPATH+RICHED20.DLL)
LET RichEdit&=@Control(RichEdit20A,,$40000000 | $10000000 | 4 | $1000 | $800000 | $200000 | $100000,20,20,300,300,%HWND,2112,%HINSTANCE)
@SENDMESSAGE(RichEdit&,$0400+53,0,$7FFFFFF0) Mehr Text bitte!
@SENDMESSAGE(RichEdit&,$443,0,@RGB(255,255,200)) Farbe setzen, sdieht schön aus!
@SendMessage(RichEdit&,207,1,0) ReadOnly
Settimer 500

whilenot %UMESSAGE=$10

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

wend

Killtimer
@DESTROYWINDOW(RichEdit&)
FREEDLL DLL_HDL&