PureBoard

Code: Alles auswählen

; English forum: http://purebasic.myforums.net/viewtopic.php?t=8181&highlight=
; Author: Berikco
; Date: 04. November 2003

OpenWindow(0,100,150,400,400,#PB_Window_SystemMenu,"TEST") 
Global Yellow, Green, blauw 
Yellow = CreateSolidBrush_($66E8FB) 
Green = CreateSolidBrush_($7BDF84) 
blauw=CreateSolidBrush_($E5B91A) 
CreateGadgetList(WindowID()) 

TextGadget(1,10,10,100,15,"Hoegaarden",#PB_Text_Center) 
TextGadget(2,120,10,100,15,"Jupiler",#PB_Text_Center) 
StringGadget(3, 10, 40, 200, 40, "Goedendag allemaal,       voor mij een pintje" , #PB_String_MultiLine) 
CheckBoxGadget(4, 10, 90,100, 20, "Beer Here") 
ButtonGadget(5,10,120,100,20,"test")


Procedure myCallback(WindowID, Message, wParam, lParam) 
    Result = #PB_ProcessPureBasicEvents 
    
    Select Message 
        Case #WM_CTLCOLORSTATIC 
            Select lParam 
                Case GadgetID(1) 
                    SetBkMode_(wParam,#TRANSPARENT) 
                    SetTextColor_(wParam, $FFFFFF) 
                    Result = Yellow 
                Case GadgetID(4) 
                    SetBkMode_(wParam,#TRANSPARENT) 
                    SetTextColor_(wParam, $FFFFFF) 
                    Result = blauw 
            EndSelect 
        Case #WM_CTLCOLOREDIT 
            Select lParam 
                Case GadgetID(3) 
                    SetBkMode_(wParam,#TRANSPARENT) 
                    SetTextColor_(wParam, $FFFFFF) 
                    Result = Green 
            EndSelect 
       
            
         
    EndSelect 
    ProcedureReturn Result
EndProcedure 
SetWindowCallback(@myCallback()) 

Repeat 
    
Until WaitWindowEvent() = #PB_EventCloseWindow
; ExecutableFormat=Windows
; EnableXP
; EOF

Code: Alles auswählen

; English forum: http://purebasic.myforums.net/viewtopic.php?t=8181&highlight=
; Author: Berikco
; Date: 04. November 2003

OpenWindow(0,100,150,400,400,#PB_Window_SystemMenu,"TEST")
Global Yellow, Green, blauw
Yellow = CreateSolidBrush_($66E8FB)
Green = CreateSolidBrush_($7BDF84)
blauw=CreateSolidBrush_($E5B91A)
CreateGadgetList(WindowID())

TextGadget(1,10,10,100,15,"Hoegaarden",#PB_Text_Center)
TextGadget(2,120,10,100,15,"Jupiler",#PB_Text_Center)
StringGadget(3, 10, 40, 200, 40, "Goedendag allemaal,       voor mij een pintje" , #PB_String_MultiLine)
CheckBoxGadget(4, 10, 90,100, 20, "Beer Here")
ButtonGadget(5,10,120,100,20,"test")


Procedure myCallback(WindowID, Message, wParam, lParam)
  Result = #PB_ProcessPureBasicEvents
  
  Select Message
    Case #WM_CTLCOLORSTATIC
      Select lParam
        Case GadgetID(1)
          SetBkMode_(wParam,#TRANSPARENT)
          SetTextColor_(wParam, $FFFFFF)
          Result = Yellow
        Case GadgetID(4)
          SetBkMode_(wParam,#TRANSPARENT)
          SetTextColor_(wParam, $FFFFFF)
          Result = blauw
      EndSelect
    Case #WM_CTLCOLOREDIT
      Select lParam
        Case GadgetID(3)
          SetBkMode_(wParam,#TRANSPARENT)
          SetTextColor_(wParam, $FFFFFF)
          Result = Green
      EndSelect
; #########################
    Case #WM_COMMAND
      Select lParam
        Case GadgetID(5)
          Debug "test"
      EndSelect
  EndSelect
; #########################
  ProcedureReturn Result
EndProcedure
SetWindowCallback(@myCallback())

Repeat
  
Until WaitWindowEvent() = #PB_EventCloseWindow