Strict


Global Liste:TList = New TList


Local Window:TGadget = CreateWindow("Hallo",100,100,400,400)

Local Panel:TGadget = CreatePanel(0,0,ClientWidth(Window), ClientHeight(WIndow), window,PANEL_ACTIVE)
SetGadgetLayout Panel,1,1,1,1


For Local i:Int = 0 Until 100
   AddPanelItem(Panel, Liste)
Next


Repeat
   
   WaitEvent()
   
   
   Select EventID()
   
      Case EVENT_KEYDOWN
         If EventData() = KEY_ESCAPE
            End
         EndIf
         
   
      
      Case EVENT_WINDOWSIZE
         SetPositions(Panel, Liste)
      
      Case EVENT_WINDOWCLOSE
         End
      
   
      Case EVENT_MOUSEENTER
      
         For Local TempObject:TGadget = EachIn Liste
         
            If EventSource() = TempObject
               SetGadgetColor TempObject,255,0,0
            EndIf
            
         Next

      Case EVENT_MOUSELEAVE
      
         For Local TempObject:TGadget = EachIn Liste
         
            If EventSource() = TempObject
               SetGadgetColor TempObject,0,0,255
            EndIf
            
         Next

   End Select
   
Forever
End


Function AddPanelItem(Panel:TGadget, List:TList)
   Local TempObject:TGadget = CreatePanel(0,0,32, 32, Panel, PANEL_ACTIVE|PANEL_BORDER)
   SetGadgetLayout TempObject,1,0,1,0
   SetGadgetColor TempObject,0,0,255
   List.AddLast(TempObject)
End Function


Function SetPositions(Panel:TGadget, List:TList)
   Local X:Int = 2
   Local Y:Int = 2
   
   For Local TempObject:TGadget = EachIn List
      SetGadgetShape TempObject, x, y, 32, 32
      X:+34
      If x+32>ClientWidth(Panel)
         X = 2
         Y:+34
      EndIf      
   Next
End Function