PureBoard

Verfasst: **21.12.2008 21:11**

Mein Fenster hat ein Hintergrundimage und ich möchte, dass zwei Text-Gadgets und ein Trackbar-Gadget transparent sind. Diese Gadgets sollen das Hintergrundbild, das ich mit GradientFill() erzeugt habe (dafür gibt es einige Beispiele in den Foren), "durchscheinen" lassen. Mit den beiden TextGadgets geht es, aber nicht mit dem Trackbar-Gadget.

Hier ist die Callback-Prozedur:

Code: Alles auswählen

Procedure MyCallback(hWnd, Msg, wParam, lParam)
  
result = #PB_ProcessPureBasicEvents
  
If msg = #WM_CTLCOLORSTATIC
    Select GetDlgCtrlID_(lparam)
       Case #text1
          SetBkMode_(wParam,#TRANSPARENT)
          SetTextColor_(wParam,#Black)
          result = GetStockObject_(#NULL_BRUSH) ;das Gleiche wie #HOLLOW_BRUSH
       Case #text2
          SetBkMode_(wParam,#TRANSPARENT)
          SetTextColor_(wParam,#Black)
          result = GetStockObject_(#NULL_BRUSH)
       Case #trackbar
           ;das funktioniert leider nicht
           SetBkMode_(wParam,#TRANSPARENT)
           SetTextColor_(wParam,#Blue)
           result = GetStockObject_(#NULL_BRUSH)
     EndSelect

EndIf
  
ProcedureReturn result

EndProcedure

Weiß jemand Rat?

PureBoard

Transparentes Trackbar-Gadget

Transparentes Trackbar-Gadget