| |
| |
|
Georg
Hovenbitzer | allô zusammen,
nachfolgender Code wirft chez mir deux Fragen sur 
1. wieso bekomme Je l' Text im Contrôle quoi avec qui DLL erstellt wurde pas mittig, aussi pas avec geändertem Style ?
2. wieso zieht sich le rebord pas jusqu'à zum Spin par, so comment chez dem normal erstelltem Contrôle, mais hört pour dem Éditer sur ?
$I SKControl.inc
$H Windows.ph
$H Messages.ph
Def GetSysColor(1) !USER32.DLL,GetSysColor
Def CreateSpinED(12) !COMCTL32.Dll,CreateUpDownControl
Déclarer SKDLL&
Déclarer Font&, Test1&, Test2&, Test3&, Test4&
SKDLL& = @UseDLL(SKControl.dll)
Fenêtre Style 2 + 8 + 16 + 128 + 256 + 512
Fenêtre 0,0-800,600
Cls GetSysColor($0F)
SKCtrl_InitDll()
Font& = @Créer(Font,Arinal Narrow,14,0,1,0,0)
Test1& = SKCtrl_CreateColorEdit(%hWnd,,@RGB(0,0,0),@RGB(255,255,255),50,100,114,18,%hInstance)
Test2& = CreateSpinED($500000A6,0,0,0,0,%hWnd,80,%hInstance,Test1&,2020,1920,2007)
SetStyle Test1&,(@GetStyle(Test1&) + $1)
SetFont Test1&,Font&
Test3& = @Contrôle(EDIT,,$540100C1,50,125,114,18,%hWnd,1070,%hInstance,$200)
Test4& = CreateSpinED($500000A6,0,0,0,0,%hWnd,80,%hInstance,Test3&,2020,1920,2007)
SetFont Test3&,Font&
WhileNot %Key = 2
WaitInput
Endwhile
DeleteObject Font&
SKCtrl_DeInitDll()
Fin
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 16.04.2007 ▲ |
|
| |
|
|
Sebastian
König | allô Georg,
je fürchte, qui ColorEdits sommes par ihren internen Aufbau (normales Éditer sur unsichtbarem Elternfenster) pour den Einsatz zusammen avec UpDown-Controls pas wirklich approprié. aussi qui übliche Weg sur ~GetWindow(handle&,~GW_CHILD) funktioniert malheureusement pas... je versuche la fois herauszufinden, quoi oui c'est ca so un UpDown-Contrôle beim Erstellen avec dem angegebenen Éditer so alles anstellt et gucke, si es sich peut-être par une Changement qui la fenêtre-Procédure pour qui ColorEdits kompensieren peut. Versprechen peux je mais malheureusement rien...
MfG
Sebastian |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | allô Sebastian,
si du avec dem Zusammenspiel meinst, dass qui cadre aussi um den Spin allez, ist ca pas so important.
intéressant wäre, wieso qui ES_CENTER Style pas funktioniert, aussi pas sur dem Child Handle. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 16.04.2007 ▲ |
|
| |
|
|
 | | pas jedermanns Solution - mais dans Okrea z.B. habe je (aussi viele autre Controls) selbst erzeugt - es sieht quasi aus comme si... 2 PictureStatics près de dem Éditer. |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | allô si,
um là durchzusteigen, bräuchte je la fois un Demo 
on pourrait es mais aussi so faire:
$H D:PrivatProfanXProfan10INCLUDEWindows.ph
$H D:PrivatProfanXProfan10INCLUDEMessages.ph
$H D:PrivatProfanXProfan10INCLUDEichedit.ph
Def GetSysColor(1) !USER32.DLL,GetSysColor
Def CreateSpinED(12) !COMCTL32.Dll,CreateUpDownControl
Déclarer RichDLL&
Déclarer Font&, Test1&, Test2&
RichDLL& = @UseDLL(RICHED32.DLL)
Fenêtre Style 2 + 8 + 16 + 128 + 256 + 512
Fenêtre 0,0-800,600
Cls GetSysColor(~COLOR_BTNFACE)
Font& = @Créer(Font,Arinal Narrow,14,0,1,0,0)
Test1& = @Contrôle(RichEdit,,$54010001,170,125,114,18,%hWnd,10,%hInstance,$0)
SetFont Test1&,Font&
Test2& = CreateSpinED($500000A6,0,0,0,0,%hWnd,20,%hInstance,Test1&,2020,1920,2007)
@SendMessage(Test1&,~em_SetBkGndColor,0,@RGB(213,214,145))
WhileNot %Key = 2
WaitInput
Endwhile
DeleteObject Font&
@DestroyWindow(Test1&)
FreeDLL RichDLL&
Fin
chez qui Solution comme Je ne, dass qui Text toujours am oberen rebord hängt et une cadre bekommt on aussi pas hin. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 17.04.2007 ▲ |
|
| |
|
|
Sebastian
König | allô Georg,
Georg Hovenbitzer
si du avec dem Zusammenspiel meinst, dass qui cadre aussi um den Spin allez, ist ca pas so important.
intéressant wäre, wieso qui ES_CENTER Style pas funktioniert, aussi pas sur dem Child Handle.
Ok, cela konnte je maintenant lösen comment es aussieht, doit qui Stile pour qui Textausrichtung toujours déjà beim Erstellen angegeben volonté et peut nachträglich pas plus geändert wären. comme Ausweg bleibt seulement, cela Éditer avec geändertem Stil récente trop erstelle. chez den ColorEdits ist cela zum Glück ne...aucune Problem - ici muss oui seulement cela interne normale Éditer récente erststellt volonté.
Im Anhang findest Vous neue Version qui DLL (1.22.04). avec cela réagir qui ColorEdits eh bien sur SKCtrl_SetAlignment, sodass Du avec
SKCtrl_SetAlignment(Test1&,2)
den zentrierten Text einstellen peux.
MfG
Sebastian |
|
| |
| |
| |
|
|
Frank
Abbing |
comment es aussieht, doit qui Stile pour qui Textausrichtung toujours déjà beim Erstellen angegeben volonté et peut nachträglich pas plus geändert wären.
chez vielen Controlstyles/Controls muss en supplément seulement qui Grösse des Controls kurzzeitig geändert volonté. Tricolore ici dans dem le cas mais pas getestet. |
|
| |
| |
| |
|
|
Sebastian
König |
chez vielen Controlstyles/Controls muss en supplément seulement qui Grösse des Controls kurzzeitig geändert volonté. Tricolore ici dans dem le cas mais pas getestet.
oui, cela était aussi mon erster idée . Hat mais malheureusement pas funktioniert.... |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | allô Sebastian,
es klappt très bien avec qui neuen DLL.
qui Solution avec qui DLL ist zur Zeit qui beste, là ici jusqu'à sur dem rebord alles klappt.
Seltsam ist seulement, dass aussi beim RichEdit cela Problem avec dem rebord gibt.
je bekomme simple pas heraus quel Style pour zuständig ist.  |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 18.04.2007 ▲ |
|
| |
|
|
Sebastian
König | allô Georg,
Georg Hovenbitzer
Seltsam ist seulement, dass aussi beim RichEdit cela Problem avec dem rebord gibt. je bekomme simple pas heraus quel Style pour zuständig ist.
une cadre bekommst Du, si Du à Contrôle() comme letzten paramètre ~WS_EX_CLIENTEDGE übergibst. Allerdings wird ensuite aus irgendwelchen Trouvé pas qui XP-Stil pour den cadre benutzt... Am besten bleibst Du alors chez qui DLL
MfG
Sebastian |
|
| |
| |
| |
|
(909)
Deutsch
English
Français
Español
Italia