| |
|
|
Uwe ''Pascal'' Niemeier | Hi Roland!
Mir ist vor kurzem aufgefallen, das Profans Create("RichEdit"...) ein Control der "alten" Klasse RICHEDIT anlegt anstatt das neuere Richedit20A zu verwenden: KompilierenMarkierenSeparierenwindow 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 dieses Feature zur Kompatiblität wirklich noch nötig?
SeeYou Pascal |
|
|
| |
|
|
|
RGH | Hallo Pascal, in der nächsten (presumibilmente heutigen) Subscriptionsversion kann statt des initialen Textes (den eh' kaum jemand brauchtr und verwendet) ein Modus angegeben werden: Modus 0 = Alte Version ("RICHEDIT" ) Modus 1 = Neue Version ("RICHEDIT20A" ) Wird wie bisher ein initialer Text angegeben, wird automatisch Modus 0 gewählt.
Bitte mal testen!
(Früher hatte ich es mal so eingerichtet, dass RICHEDIT20A verwendet wurde wenn die zugehörige RICHED20.DLL gefunden wurde, ansonstenm das RIOCHEDIT aus der RICHED32.DLL. Aus einem leider vergessenen Grund hatte Io l' Codeteil per das neuere RichEdit seit einigen Versionen auskommentiert.
Saluto 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!
Der Vollständigkeit halber solltest du auch den Typ RichEdit50W (RichEdit 4.1) zulassen: KompilierenMarkierenSeparierenwindow 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 man das brauchen kann bzw. wo die Vorteile liegen weiß ich auch noch nicht, aber man kann ja nie wissen...
BTW: Falls die jeweilige Version nicht disponibile ist sollte vielleicht eine entsprechende Warnung erfolgen.
SeeYou Pascal |
|
|
| |
|
|
|
RGH | Ok, mit Modus 2 bekommt man ab dem nächsten Release-Kandidaten, wenn vorhanden, das RichEdit50W, ansonsten geht der Fallback circa RichEdit20A zum alten RichEdit. Eine Warnung möchte ich eigentlich nicht ausgeben, da ich z.B. auch im finale Programmcode die Warnungen eingeschaltet lasse und dann der User älterer Windowsversionen "grundlose" Warnungen erhält. Es steht ja dem Programmierer frei, per ClassOf() zu überprüfen, welche Version nun vorhanden ist.
Saluto 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 ▲ |
|
|
|