Seite 1 von 1

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

Verfasst: 15.05.2005 21:04
von 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

Verfasst: 15.05.2005 22:00
von 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
:wink:

Verfasst: 30.06.2005 22:19
von glubschi90
Hoppla!!!
Entschuuuuldigung!
Ich hab genaz vergessen, hier reinzuschauen...! :oops:

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

Verfasst: 06.07.2005 10:54
von Agent
Sehr interessantes Thema, hat das schon jemand gelöst??