PureBoard

Verfasst: **23.06.2007 18:35**

Servas,

Wie kann ich bei ner TrackBar eine Hintergrundfarbe setzen? SetGadgetColor() funtzt da nicht..

Verfasst: **23.06.2007 20:04**

Standardmäßig gar nicht (siehe PB Hilfe)
Selbst malen oder PureColor (Lib) oder ApiZeugs (SuFu, oder warten bis einer schreibt, der das kann

)

Verfasst: **24.06.2007 02:45**

SkinWin Lib aus der PBOSL instalieren.
Damit geht das.

Als Beispiel :

Code: Alles auswählen

Global  purple
purple=CreateSolidBrush_(RGB(200,0,0))

Enumeration
#Window_0 
EndEnumeration

Enumeration
#trackbar
EndEnumeration

Procedure Callback(WindowID,Message,wParam,lParam)
  Result = #PB_ProcessPureBasicEvents
  Select Message
  Case #WM_CTLCOLORSTATIC
    Select lParam
    Case GadgetID(#trackbar)
      SetBkMode_(wParam,#TRANSPARENT)
      Result = purple
    EndSelect
  EndSelect
  ProcedureReturn Result
EndProcedure

hWnd = OpenWindow(1,0,0,150,50,"Beispiel", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)

If hWnd
  SetForegroundWindow_(hWnd)
  SetWindowCallback(@Callback())
  
If CreateGadgetList(WindowID(1))
  TrackBarGadget(#trackbar,10,10,100,25,0,100)
  ResizeGadget(#trackbar,#PB_Ignore,#PB_Ignore,130,19)
    
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Gadget
        GadgetID = EventGadget() 
      EndIf
    Until Event = #PB_Event_CloseWindow
EndIf
EndIf
End

Verfasst: **24.06.2007 02:49**

Aso

Code: Alles auswählen

purple=CreateSolidBrush_(RGB(200,0,0))

steht in dem Fall für die Hintergrundfarbe.

Verfasst: **25.06.2007 18:34**

thx c4rizz .. ich verstehs ehrlich gesagt net wirklich aber ich denk mal das is sehr nützlich

PureBoard

hintergrundfarbe von TrackBar (weiss) setzen

hintergrundfarbe von TrackBar (weiss) setzen