| |
| |
|
Frank
Abbing | Ab XP. Klappt auch mit einigen anderen Control-Typen.
KompilierenMarkierenSeparierenDeclare 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 | Die uxtheme.dll gibt es erst ab XP. Das sollten Tools abfangen, z.B. mit:
If Val($winver)>5
Else
EndIf |
|
| |
| |
| |
|
|
Jac
de
Lad | | Was hat das per einen 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
Was hat das per einen Sinn?
Du kannst dir z.B. auf simple Weise ein XP-Style-Rahmen zeichnen lassen.
Herkömmliche Controls kannst du noch einfacher zeichen, z.B. mit DrawFrameControl(%hdc2, rect#, DFC_BUTTON, DFCS_BUTTONPUSH | DFCS_FLAT ) |
|
| |
| |
| |
|
(901)
Deutsch
English
Français
Español
Italia