| |
|
|
Uwe ''Pascal'' Niemeier | Hi Roland!
Mir ist avant kurzem aufgefallen, cela Profans Créer("RichEdit"...) un Contrôle qui "alten" super RICHEDIT anlegt anstatt cela neuere Richedit20A trop verwenden: KompilierenMarqueSéparationwindow 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
| 05.04.2010 ▲ | |
|
|
|
|
Uwe ''Pascal'' Niemeier | * zur Erinnerung *
Ist cet Feature zur Kompatiblität wirklich encore nötig?
SeeYou Pascal |
|
|
| |
|
|
|
RGH | allô Pascal, dans qui prochain (probablement heutigen) Subscriptionsversion peux statt des lettres initiales Textes (den eh' à peine quelqu'un brauchtr et verwendet) un Modus angegeben volonté: Modus 0 = vieille Version ("RICHEDIT" ) Modus 1 = Neue Version ("RICHEDIT20A" ) Wird comment bisher un initialer Text angegeben, wird automatisch Modus 0 gewählt.
s'il te plaît la fois testen!
(Früher J'ai eu es la fois so installé, dass RICHEDIT20A verwendet wurde si le zugehörige RICHED20.DLL trouvé wurde, ansonstenm cela RIOCHEDIT aus qui RICHED32.DLL. Aus einem malheureusement vergessenen Grund J'ai eu den Codeteil pour cela neuere RichEdit depuis einigen Versionen auskommentiert.
Salut Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 29.09.2010 ▲ |
|
|
|
|
Uwe ''Pascal'' Niemeier | Hi Roland!
qui Vollständigkeit halber devrait du aussi den Typ RichEdit50W (RichEdit 4.1) zulassen: KompilierenMarqueSéparationwindow 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
e e
Wozu on cela brauchen peux bzw. wohin qui Vorteile liegen sais je aussi encore pas, mais il peut oui nie savons...
BTW: si qui jeweilige Version pas disponible ist sollte peut-être une entsprechende avertissement avoir lieu.
SeeYou Pascal |
|
|
| |
|
|
|
RGH | Ok, avec Modus 2 bekommt on ab dem prochain Release-Kandidaten, si vorhanden, cela RichEdit50W, ansonsten allez qui Fallback sur RichEdit20A zum alten RichEdit. une avertissement voudrais je eigentlich pas ausgeben, là je z.B. aussi im final Programmcode qui Warnungen eingeschaltet lasse et ensuite qui User älterer Windowsversionen "grundlose" Warnungen erhält. Es steht oui dem Programmierer libre, per ClassOf() trop überprüfen, quelle Version eh bien vorhanden ist.
Salut Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 30.10.2010 ▲ |
|
|
|