| |
| |
|
Julian
Schmidt | Hallo,
ich versuche gerade einer ProgressBar eine andere Farbe zuzuweisen.
Dazu gibt es die Messsage PBM_SETBARCOLOR. Laut MSDN[...]  sind die Parameter wie folgt:
Sendmessage(ProgressBar&,$0400+9,0,RGB(255,0,0))
Doch iwie will es damit nicht ganz funktionieren....
KompilierenMarkierenSeparierenWindowstyle 31
Windowtitle "Progressbar"
Window 0,0-640,110
var CLASSNAME$="msctls_progress32"
var ProgressBar&=External("USER32","CreateWindowExA",0,Addr(CLASSNAME$),0,$40000000+$10000000+$800000,10,10,width(%hwnd)-20,height(%hwnd)-20,%hwnd,0,%Hinstance,0)
Sendmessage(ProgressBar&,$0400+9,0,RGB(255,0,0))'PBM_SETBARCOLOR
While 1
Sleep 200
Sendmessage(ProgressBar&,$0400+2,SendMessage(ProgressBar&,$0400+8,0,0)+1,0)
Endwhile
LG
Julian57 |
|
| |
| |
| |
|
|
 | Dort steht aber auch:
MSDN
When visual styles are enabled, this message has no effect.
Irgendwo findest Du hier imho eine Funktion um einzelnen Controls den "visuellen Stil" abzugewöhnen. |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Julian
Schmidt | hmmm...ja damit geht es!
Kann man nachdem man den "visuellen Stil" des Controls entfernt hat, wieder den Standard-Visuellen Stil setzen? |
|
| |
| |
| |
|
|
| Ja über GetWindowTheme, OpenThemeData und SetWindowTheme -
oder einfach Control neu erzeugen. |
|
| |
| |
| |
|
|
Julian
Schmidt | hmmm ja, habs hinbekommen. Danke iF  |
|
| |
| |
| |
|
(526)
Deutsch
English
Français
Español
Italia