| |
| |
|
Frank
Abbing | ex XP. Klappt too with some others Control-Types.
CompileMarkSeparationDeclare 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 | The uxtheme.dll there first ex XP. the should Tools intercepting, z.B. with:
If Val($winver)>5
Else
EndIf |
|
| |
| |
| |
|
|
Jac
de
Lad | | what has the for a sense? |
|
| |
| 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 | 06/01/08 ▲ |
|
| |
|
|
Frank
Abbing | Jac
what has the for a sense?
You can you z.B. on simple point one XP-Style-welt draw let.
conventional Controls can you yet plainer characters, z.B. with DrawFrameControl(%hdc2, rect#, DFC_BUTTON, DFCS_BUTTONPUSH | DFCS_FLAT ) |
|
| |
| |
| |
|
(947)
Deutsch
English
Français
Español
Italia