| |
| |
|
Frank
Abbing | Ab XP. Klappt auch con algunos otro Control-Typen.
KompilierenMarcaSeparaciónDeclare 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#
End
|
|
| |
| |
| |
|
|
Frank
Abbing | El uxtheme.dll hay sólo de XP. Das debería Tools abfangen, z.B. con:
If Val($winver)>5
Más
EndIf |
|
| |
| |
| |
|
|
Jac
de
Lad | |
| |
| 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
Was ha el para una Sinn?
Usted puede dir z.B. en simple Weise una XP-Style-Rahmen dibujar dejar.
Herkömmliche Controls kannst du todavía einfacher zeichen, z.B. con DrawFrameControl(%hdc2, rect#, DFC_BUTTON, DFCS_BUTTONPUSH | DFCS_FLAT ) |
|
| |
| |
| |
|
(916)
Deutsch
English
Français
Español
Italia