[*]Profan

window 400,400
var a&=create("RichEdit",%hwnd,"",10,30,200,50)
settext a&,classof(a&)
sendmessage(a&,1087,0,1)--EM_HIDESELECTION => none
sendmessage(a&,177,0,-1)--EM_SETSEL => alles markieren
var b&=control("RichEdit20A","",getstyle(a&),10,120,200,50,%hwnd,1,0)
settext b&,classof(b&)
sendmessage(b&,1087,0,1)--EM_HIDESELECTION => none
sendmessage(b&,177,0,-1)--EM_SETSEL => alles markieren

while 1

    waitinput
    beep

endwhile

window 500,300
var Edit1&=create("RichEdit",%hwnd,1,10,10,200,200)'--RichEdit20A
settext Edit1&,classof(Edit1&)
var dll&=usedll("Msftedit.dll")
var Edit2&=control("RichEdit50W","",getstyle(Edit1&,0),220,10,200,200,%hwnd,1234,0,getstyle(Edit1&,1))
settext Edit2&,classof(Edit2&)

while 1

    waitinput

endwhile