XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Edit: Vorgabetext markieren
Achtung:
Bevor der entsprechende Text markiert werden kann, muß der Focus
auf das Eingabefeld gesetzt werden. Für sendmessage gilt:
Der zweite Parameter ist die Konstante $00B1.
Der dritte Parameter von sendmessage ist wparam,
der vierte Parameter ist lparam.
Ist nun wparam > -1 und lparam > wparam wird genau der gesamte
Text zwischen wparam und lparam markiert.
Im 1. Beispiel ist wparam = 2 und lparam = 3, das heißt, es wird genau
das Zeichen an der dritten Stelle markiert. Im weiteren gilt:
bei wparam = 0 und lparam = -1 wird der gesamte Text markiert.
bei wparam > 0 und lparam = -1 wird der gesamte Text
ab Position (wparam + 1) markiert.
Im zweiten Beispiel wird der gesamte Vorgabetext markiert.
Im dritten Beispiel wird der Text ab dem 7. Zeichen bis zum Textende markiert.
declare ende%,edit&
WindowTitle Weiter mit beliebiger Taste ...
cls rgb(0,0,0)
let edit&=createedit(%hwnd,12345 -  3 selektiert,20,20,200,20)
setfocus(edit&)
sendmessage(edit&,$00B1,2,3)
waitinput
SetText edit&,Hallöchen!
setfocus(edit&)
sendmessage(edit&,$00B1,0,-1)	 gesamten Vorgabetext markieren
waitinput
SetText edit&,Guten Tag!
setfocus(edit&)
sendmessage(edit&,$00B1,6,-1)	 Vorgabetext ab dem 7. Zeichen bis zum Textende markieren
waitinput

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Edit: Vorgabetext markieren
declare ende&,edit&
cls
edit& = Create(Edit,%hwnd,Hallöchen!,10,10,200,24)
SetFocus(edit&)
SendMessage(edit&,$00B1,0,-1)

whilenot ende&

    waitinput

endwhile

end