PureBoard

Code: Alles auswählen

Global HintergrundFarbe  
HintergrundFarbe=CreateSolidBrush_(RGB(255,255,255))   ; weiß 

; 
Procedure COL_STRINGGADGET(WindowID,Message,wParam,lParam) 
rc.RECT
Result=#PB_ProcessPureBasicEvents
 

Select Message 
   
  Case #WM_CTLCOLORSTATIC 

 
    Select lParam 
       
      Case GadgetID(3)                      ; das ist die GadgetID für das TextGadget(3,...) 
        SetBkMode_(wParam,#TRANSPARENT)
         
        SetTextColor_(wParam,RGB(255,0,0))   ; Schriftfarbe (rot) 
        
        x= GadgetX(3)
       y=GadgetY(3)
       x2 = GadgetWidth(3)+GadgetX(3)
       y2 = GadgetHeight(3)+GadgetY(3)
       rc\left = x+2
       rc\top = y+8
       rc\right = x2-2
       rc\bottom = y2-2
        Result=HintergrundFarbe             ; Hintergrundfarbe (weiß)
        FrameRect_(wParam,rc,CreateSolidBrush_(RGB(0,0,255)))
        
         
    EndSelect 
 
EndSelect 
ProcedureReturn Result 
EndProcedure

OpenWindow(0,0,0,1024,768,#PB_Window_SystemMenu ,"Farbe ins Frame3DGadget")
SetWindowCallback(@COL_STRINGGADGET())
CreateGadgetList(WindowID(0))

Frame3DGadget(3, 0, 0, 1010, 750, "Frame3DGadget")





Repeat

Event = WaitWindowEvent()
Select Event





Case #PB_Event_CloseWindow
quit = 1
EndSelect
Until quit = 1
DeleteObject_(HintergrundFarbe1) 
DeleteObject_(HintergrundFarbe2)
End