| |
| |
|
E.T. | Wurde vorhin plan puis angesprochen, cela sous Win 7 qui Eingabefelder (Edit's) une "dummen" effet avons:
Wird avec qui souris par-dessus hinweg gefahren, changement cet son air. ca comme meinem Anwender gar pas.
Tricolore plan aussi sous XP probiert, passiert cela gleiche.
Liegt cela eh bien à X2 ou bien à irgendeiner Win-Einstellung 
NACHTRAG: Scheind seulement chez vider Edit's trop passer... |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 06.04.2013 ▲ |
|
| |
|
|
Julian
Schmidt | | je denke es hängt à keinen de Beiden. Poste la fois den entsprechenden Voir le texte source-Ausschnitt. |
|
| |
| |
| |
|
|
E.T. | Tricolore trouvé:
Liegt am Einblenden mittels AnimateWindow
KompilierenMarqueSéparation {$IQ}
'{$CLQ} 'wenn fertig, Exe erzeugen
CLS
Var D& = @Control("Dialog","",$44000000,5,5,@Width(%HWnd,0)-10,@Height(%HWnd,0)-10,%HWnd,1,%HInstance,$10000)
Create("Groupbox",D&,"Testbox ",10,10,300,300)
WhileLoop 0,10
Create("Edit",D&,"",30,30+&loop*25,200,20)
EndWhile
'ShowWindow(D&,1)'So sieht's gut aus
Einblenden(D&,300,~AW_Ver_NEGATIVE)'So nicht !!!
Waitinput
End
Proc Einblenden
Parameters wnd&,Time&,Richtung&
~AnimateWindow(wnd&,Time&,~AW_SLIDE | Richtung&)
ENDPROC
|
|
| |
| XProfan X2Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 06.04.2013 ▲ |
|
| |
|
|
 | exposition aussi la fois si Thema entfernen hilft: [...]  |
|
| |
| |
| |
|
|
E.T. | merci, funzt:
KompilierenMarqueSéparation {$IQ}
'{$CLQ} 'wenn fertig, Exe erzeugen
Def Setwindowtheme(3) !"uxtheme.dll", "SetWindowTheme"
Declare Ed&[]
CLS
Var D& = @Control("Dialog","",$44000000,5,5,@Width(%HWnd,0)-10,@Height(%HWnd,0)-10,%HWnd,1,%HInstance,$10000)
Create("Groupbox",D&,"Testbox ",10,10,300,300)
WhileLoop 0,10
Ed&[&loop] = Create("Edit",D&,"",30,30+&loop*25,200,20)
Disablexptheme(Ed&[&loop])
EndWhile
'ShowWindow(D&,1)'So sieht's gut aus
Einblenden(D&,300,~AW_Ver_NEGATIVE)'So nicht !!!
Waitinput
End
Proc Disablexptheme
Parameters Hwnd&
Declare Word#
Dim Word#, 2
Setwindowtheme(Hwnd&, Word#, Word#)
Dispose Word#
EndProc
Proc Einblenden
Parameters wnd&,Time&,Richtung&
~AnimateWindow(wnd&,Time&,~AW_SLIDE | Richtung&)
ENDPROC
Muss je arrêt seulement pour chaque Éditer faire... |
|
| |
| XProfan X2Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 06.04.2013 ▲ |
|
| |
|
|
E.T. | ... ist oui un Sch**** !!
mais si on cela Theme komplett abschaltet, sieht es oui aus comment sous 3.11 
quoique... Nostalgie  |
|
| |
| XProfan X2Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 07.04.2013 ▲ |
|
| |
|
|
Richi | | Diesen effet habe je aussi, si je qui Schriftart ändere. après volonté alle Buttons,Editfelder usw soudain 'Fett' beim überfahren avec qui souris |
|
| |
| |
| |
|
|
| je schätze son beide meint mais autre chose.
Dein "Problem" scheint mir plutôt, dass Du qui Schriftart pas per SetFont mais
z.B. per setDialogFont mets. Besser SetFont nutzen. |
|
| |
| |
| |
|
(854)
Deutsch
English
Français
Español
Italia