Farbiges ProgressBarGadget

[Sicro]

Die Hintergrundfarbe lässt sich ebenfalls ändern:

Code: Alles auswählen

#PBM_SETBKCOLOR = $2001
ProgressBarGadget(0,10,30,250,30,0,100)
SendMessage_(GadgetID(0),#PBM_SETBKCOLOR,0,#Black)

Mit den PB-Funktionen geht das auch, wie ich gerade festgestellt habe:

Code: Alles auswählen

ProgressBarGadget(0,10,30,250,30,0,100)
SetGadgetColor(0,#PB_Gadget_BackColor,#Black)
SetGadgetColor(0,#PB_Gadget_FrontColor,#White)

Mfg DerProgger

[Fluid Byte]

Mit den PB-Funktionen geht das auch, wie ich gerade festgestellt habe:

Genau das ist der Witz. Er hat ja PB v3.30. Und am Rande, diese Methode funktioniert weder für XP noch Vista Skins.

[ts-soft]

>> diese Methode funktioniert weder für XP noch Vista Skins
Deswegen wollten wir lieber Skinunabhängig malen

[Thalius]

Deswegen wollten wir lieber Skinunabhängig malen

Aber haben das die alten Indianer nicht schon vor zeiten getan ... ?

[Sicro]

Ja, das ist mir bewusst, dass ihr deshalb die Mal-Methode gewählt habt. Dies ist für den Anfang bestimmt auch der einfachste und verständlichste Weg.

Unter Windows XP mit aktiviertem XPSkin könnte man ja das Gadget mit der WinAPI-Funktion "SetWindowTheme" in den klassischen Skin zurückschalten. Dann funktioniert das Einfärben wieder.

Beispiel:

Code: Alles auswählen

Procedure DisableSkin(GadgetID.l)
  Protected ID = OpenLibrary(#PB_Any,"UxTheme.dll")
  If ID
    CallFunction(ID,"SetWindowTheme",GadgetID(GadgetID),@"",@"")
    CloseLibrary(ID)
  EndIf
EndProcedure

#PBM_SETBARCOLOR = $409
ProgressBarGadget(0,10,30,250,30,0,100)
DisableSkin(0)
SendMessage_(GadgetID(0),#PBM_SETBARCOLOR,0,#Red)

Funktioniert das eigentlich auch unter Vista noch?

Mfg DerProgger

[AND51]

DerProgger, netter Code! Gefällt mir! Sag mal bitte, was ist diese "UxTheme.dll"? Ist die auf jedem Rechner vorhanden, sodass der Code dort eingesetzt werden kann, etc.?
Und unter welchen WIndowsversionen funktioniert das?

[ts-soft]

DerProgger, netter Code! Gefällt mir! Sag mal bitte, was ist diese "UxTheme.dll"? Ist die auf jedem Rechner vorhanden, sodass der Code dort eingesetzt werden kann, etc.?
Und unter welchen WIndowsversionen funktioniert das?

Code: Alles auswählen

ID = OpenLibrary(#PB_Any,"UxTheme.dll")

Haste jetzt eine ID, ist sie vorhanden
Ansonsten ab WXP

[AND51]

Ja ne is klar.

> Ansonsten ab WXP
Achso, also ab WinXP ist diese DLL (standardmäßig) vorhanden und kann das WindowsTheme für einzelne Gadgets außerkraft setzen... OK, danke!

[al90]

Sowas ähnliches hatten wir vor kurzem schonmal.

Guckste mal hier:

http://www.purebasic.fr/german/viewtopi ... e&start=10

[edel]

[...]
Funktioniert das eigentlich auch unter Vista noch?

Ja, aber das sollte nur mit Sinn eingesetzt werden (schwere
Darstellungsfelher usw.), man hat schliesslich nicht umsonst
ein Theme aktiv. Wer sein Programm nicht weiter gibt , dem
kann das aber auch egal sein