| |
| |
|
Frank
Abbing | Ab XP. Klappt aussi avec einigen anderen Contrôle-Typen.
KompilierenMarqueSéparationDeclare rect#,x&,con&,a&,b&
Dim rect#,20
Randomize
Window 0,0-%maxx,%maxy
con&=Create(choicebox,%hwnd,,0,0,0,0) Klappt auch mit anderen Controls, z.B. Button, Hscroll usw.
x&=External(uxtheme.dll, GetWindowTheme, con&)
Whileloop 1000
a&=Rnd(%maxx-140)
b&=Rnd(%maxy-160)
Long rect#,0=a&,b&,a&+Rnd(120),b&+Rnd(120)
External(uxtheme.dll, DrawThemeBackground, x&, %hdc2, Rnd(16), Rnd(16), rect#, 0)
Wend
External(uxtheme.dll, CloseThemeData, x&)
Repaint
WaitInput
Dispose rect#
Fin
|
|
| |
| |
| |
|
|
Frank
Abbing | qui uxtheme.dll gibt es seulement ab XP. cela devrait Tools intercepter, z.B. avec:
Si Val($winver)>5
D'autre
EndIf |
|
| |
| |
| |
|
|
Jac
de
Lad | | quoi hat cela pour une Sinn? |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 01.06.2008 ▲ |
|
| |
|
|
Frank
Abbing | Jac
quoi hat cela pour une Sinn?
tu peux dir z.B. sur simple Weise un XP-Style-cadre zeichnen laisser.
Herkömmliche Controls peux du encore einfacher marque, z.B. avec DrawFrameControl(%hdc2, rect#, DFC_BUTTON, DFCS_BUTTONPUSH | DFCS_FLAT ) |
|
| |
| |
| |
|
(323)
Deutsch
English
Français
Español
Italia