PureBoard

Code: Alles auswählen

#window = 0
#panel  = 0

Procedure pbox(r,g,b) 
 If StartDrawing(WindowOutput()) 
  Box(108, 11, 84, 17 ,RGB(r,g,b))    
  StopDrawing() 
 EndIf 
EndProcedure

If OpenWindow(#window,0,0,200,190,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"TEST") And CreateGadgetList(WindowID(0)) 
  PanelGadget    (#panel,8,8,184,170) 
   AddGadgetItem (#panel,-1,"Panel 1")
   AddGadgetItem (#panel,-1,"Panel 2")
  CloseGadgetList() 
  pbox(0,255,0)
 Repeat 
  Select WindowEvent() 
   Case 0
    Delay(1) 
   Case #PB_Event_RePaint
    If GetGadgetState(#panel) 
     pbox(255,0,0)
    Else
     pbox(0,255,0)
    EndIf  
  EndSelect    
 Until WaitWindowEvent()=#PB_Event_CloseWindow 
EndIf