| |
|
|
Julian Schmidt | Ciao, 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)
le
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 circa GetWindowTheme, OpenThemeData und SetWindowTheme -
oder einfach Control neu erzeugen. |
|
|
| |
|
|
|
Julian Schmidt | hmmm ja, habs hinbekommen. Danke iF |
|
|
| |
|
|