Function CreateAndUpdateButton:Int( ButtonNormal:TImage, ButtonMouseOn:TImage, Posx:Int, Posy:Int)
	Local SizeX:Int , SizeY:Int
	SizeX=ImageWidth(ButtonNormal)
	SizeY=ImageHeight(ButtonNormal)
		
     If MouseX() >= Posx And MouseX() <= (SizeX+PosX) And MouseyPos >= Posy And MouseyPos <= (SizeY + PosY)
          DrawImage ButtonMouseOn, Posx, Posy
          If MouseHit(1) 
                Return 1
          EndIf
	Else
     		DrawImage ButtonNormal, Posx, Posy	
	EndIf
     Return 0
End Function

SuperStrict

Type TButton

	'Buttonliste erstellen
	Global _butList:TList = CreateList()
	Field _butLink:TLink
	
	Method New()
		_butLink = _butList.AddLast(Self)
	End Method
	
	Method Remove()
		_butLink.Remove
	End Method
	
	'Button Eigenschaften
	Field _butX:Int, _butY:Int
	Field _butSizeX:Int, _butSizeY:Int
	Field _butName:String
	
	Field _butOnMouseOver:Int = False
	
	Field _butEvent:Int
	
	'Button erstellen
	Function Create:TButton(img:TImage, x:Int, y:Int, name:String, event:Int)
		Local but:TButton = New TButton
		but._butX = x
		but._butY = y
		but._butSizeX = ImageWidth(img)
		but._butSizeY = ImageHeight(img)
		but._butName = name
		but._butEvent = event
	End Function
	
	'Button Updaten
	Function updateButton:Int(mx:Int, my:Int, mh1:Int)
		
		For Local but:TButton = EachIn TButton._butList
			but._butOnMouseOver = False
			
			'Maus auf Überlappung prüfen
			If (mx > but._butX) And (mx < but._butX + but._butSizeX) Then
				If (my > but._butY) And (my < but._butY + but._butSizeY) Then
					but._butOnMouseOver = True
					Return but._butEvent
				EndIf
			EndIf
		Next
	End Function
	
	'Button zeichnen
	Function drawButton(img:TImage)
		For Local but:TButton = EachIn TButton._butList
			DrawImage img, but._butX, but._butY, but._butOnMouseOver 'Animiertes Bild hat 2 Frames(on/off)
		Next
	End Function
End Type