Text-, Option-, Checkboxgadget u. co Hintergrund transparent

[glubschi90]

Hi Leute!

Ich hab ein Problem...

Und zwar hab ich mit der SkinWin Userlib von Danilo ein Fenster Hintergrundbild gemacht und brauch natürlich noch Textgadgets usw... Nur ist deren Hintergrund eben grau und das sieht nicht schön aus.

Mit diesem Windowcallback funktioniert's nicht.

Code: Alles auswählen

Procedure WinProc(hWnd,Msg,wParam,lParam) 
 ; If Msg = #WM_CTLCOLORSTATIC
    SetBkMode_(wParam,#TRANSPARENT) 
   ; ProcedureReturn TextGadgetBackground
  ;Else 
    ProcedureReturn #PB_ProcessPureBasicEvents 
  ;EndIf 
EndProcedure 

Könnt ihr mir da helfen?

Vielen Dank im Voraus!
glubschi

[manfred]

So funtz's:

Code: Alles auswählen

Global Background,Background1
Background  =  CreateSolidBrush_(RGB(255,255,255)) 
Background1 =  CreateSolidBrush_(RGB(78,201,248))
Procedure WinProc(hWnd,msg,wParam,lParam) 
  If msg = #WM_CTLCOLORSTATIC 
    Select lParam 
      Case GadgetID(0)
        SetBkMode_(wParam,#TRANSPARENT)
        SetTextColor_(wParam, RGB(0,0,255))
        ProcedureReturn Background 
      EndIf   
    Case GadgetID(1)  
      SetBkMode_(wParam,#TRANSPARENT)
      SetTextColor_(wParam, RGB(255,0,0))
      ProcedureReturn Background1
  EndSelect     
Else  
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndIf 
EndProcedure

[glubschi90]

Hoppla!!!
Entschuuuuldigung!
Ich hab genaz vergessen, hier reinzuschauen...!

Also: Danke für die Hilfe, aber leider funzts niht... der Hintergrund ist bei mir weiß...

[Agent]

Sehr interessantes Thema, hat das schon jemand gelöst??