#Define Quit Inkey=CHR(255,107)
Dim Shared As Integer mx,my,mb,anz_win

Type WizWindow
   As Integer id
   As String title
'   As Integer active    'brauchste nicht
   As Integer x
   As Integer y
   As Integer w
   As Integer h
End Type

Dim Shared As WizWindow win()
Dim Shared As UInteger winZ(50000)

Declare Sub InitGUI()
Declare Sub DrawGadgets()
Declare Sub DrawWindow(id As Integer)
declare Sub WinAdd()

Screenres 640,480,32
InitGUI()

dim shared anz_alloc as uinteger
Sub WinAdd()
	anz_win+=1
	if anz_win > anz_alloc then
		anz_alloc += 25
		redim Preserve win(anz_alloc) as WizWindow
		redim Preserve winZ(anz_alloc) as WizWindow
	end if
	With win(anz_win)
	.id=1
	.title="Testwindow-" & Str(anz_win)
'	.active=0               'brauchste nicht -> siehe: winActive
	.x=anz_win * 25
	.y=anz_win * 25
	.w=300
	.h=200
	End With
	winZ(anz_win) = anz_win
End Sub

Do
   Getmouse mx,my,,mb
   
   'Das macht man nicht im "Draw"!!!
   For i As Integer= anz_win to 1 step -1    'rückwerts durchlaufen
      'hier mit winZ prüfen
      If (mx>win(winZ(i)).x And mx<win(winZ(i)).w+win(winZ(i)).x) And (my>win(winZ(i)).y And my<win(winZ(i)).h+win(winZ(i)).y) And mb=1 Then
      	  'in der "mit focus" variante müssen wir den Z-Speicher umsortieren.
      	  'hierfür den eintrag aller folgenden fenster um 1 nach vorne verschieben, und am ende das aktuelle wieder eintragen
      	  Dim TWinID as UInteger = winZ(i)
      	  For X as uinteger = i to anz_win -1
      	  	 winZ(x) = winZ(x + 1)
      	  Next
      	  winZ(anz_win) = TWinID
         exit for 'fertig. rest muss man nicht durchlaufen
      End If
   Next
   
   Sleep 10,1
   Screenlock
      Cls
      Line (0,0)-(640,480),&h376ea5,BF
      DrawGadgets()
   Screenunlock
Loop Until Quit
End


Sub InitGUI()
	For X as Uinteger = 1 to 10
		WinAdd()
	next
End Sub


Sub DrawGadgets()
   For i As Integer=1 To anz_win
      If win(winZ(i)).id=1 Then DrawWindow(winZ(i))
   Next
End Sub

Sub DrawWindow(id As Integer)
   If id=winZ(anz_win) Then 'hier auf active prüfen (unterschied zu "ohne focus" ist, das das aktive fenster IMMER das letzte in der ZListe is, da es ganz oben ist)
      Line (win(id).x,win(id).y)-(win(id).w+win(id).x,win(id).h+win(id).y),&hFFFFFF,BF
      Line (win(id).x,win(id).y)-(win(id).w+win(id).x,win(id).h+win(id).y),&h000000,B
   Else
      Line (win(id).x,win(id).y)-(win(id).w+win(id).x,win(id).h+win(id).y),&hc0c0c0,BF
      Line (win(id).x,win(id).y)-(win(id).w+win(id).x,win(id).h+win(id).y),&h000000,B
   End If
   'is jetzt in der hauptschleife
End Sub