ProgressBarGadget

[Tommy]

Hi
Wenn XPSkin Unterstützung nicht aktiviert ist dann kann man mit SetGadgetColor die Vorder sowie Hintergrundfarbe ändern. Aber dann sehen die anderen Gadgets scheiße aus.
Kann ich das trotzdem mit Skin umfärben?

[RSBasic]

Es gibt zwei Möglichkeiten:
1. Entweder deaktivierst du nur das Design des ProgressBarGadgets und zwar:

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ProgressBarGadget(1, 10, 10, 480, 20, 0, 100, 0)
  SetWindowTheme_(GadgetID(1), @"", @"")
  
  SetGadgetColor(1, #PB_Gadget_FrontColor, RGB(0, 100, 255))
  SetGadgetColor(1, #PB_Gadget_BackColor, RGB(200, 200, 200))
  SetGadgetState(1, 75)
  
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

2. oder: http://purebasic.fr/german/viewtopic.ph ... 84#p295584

[Tommy]

Danke!