Type tmenu_item
	Field name$
	Field item_text$
	Field submenu$ ; name of the submenu item
	Field group_id%
End Type

Global active_item$ = \"\" ; item which is highlighted
Global active_group%


AppTitle(\"Menu Application\")
Graphics(800,600,32,2)
SetBuffer(BackBuffer())

add_menu_item(\"menu01\",\"DATEI..\",\"menu11\",1)
add_menu_item(\"menu02\",\"BEARBEITEN..\",\"menu07\",1)
add_menu_item(\"menu03\",\"EXTRAS..\",\"menu16\",1)

add_menu_item(\"menu11\",\"NEU\",\"\",4)
add_menu_item(\"menu12\",\"ÖFFNEN\",\"\",4)
add_menu_item(\"menu13\",\"SENDEN..\",\"menu04\",4)
add_menu_item(\"menu14\",\"ZURÜCK\",\"menu01\",4)

add_menu_item(\"menu04\",\"E-MAIL-EMPFÄNGER\",\"\",2)
add_menu_item(\"menu05\",\"FAXEMPFÄNGER\",\"\",2)
add_menu_item(\"menu06\",\"ZURÜCK\",\"menu13\",2)

add_menu_item(\"menu07\",\"EINFÜGEN\",\"\",5)
add_menu_item(\"menu08\",\"SUCHEN\",\"\",5)
add_menu_item(\"menu09\",\"ERSETZEN\",\"\",5)
add_menu_item(\"menu15\",\"ZURÜCK\",\"menu02\",5)

add_menu_item(\"menu16\",\"SPRACHE\",\"\",6)
add_menu_item(\"menu17\",\"MAKRO\",\"\",6)
add_menu_item(\"menu18\",\"ANPASSEN\",\"\",6)
add_menu_item(\"menu19\",\"OPTIONEN..\",\"menu21\",6)
add_menu_item(\"menu20\",\"ZURÜCK\",\"menu03\",6)

add_menu_item(\"menu21\",\"ANSICHT\",\"\",7)
add_menu_item(\"menu22\",\"ALLGEMEIN\",\"\",7)
add_menu_item(\"menu23\",\"DRUCKEN\",\"\",7)
add_menu_item(\"menu24\",\"ZURÜCK\",\"menu19\",7)

active_group% = 1
active_item$ = \"menu01\"

While Not quit
	Cls()

	If KeyHit(1) Then quit = True
	If KeyHit(208) Then activate_next_item()
	If KeyHit(200) Then activate_prev_item()
	If KeyHit(156) Or KeyHit(28) Then do_menu_action()

	render_menus()

	Flip()
Wend

;< Beispiel für eine Menü Struktur für Übungsaufgabe 2 im Blitzforum By Suco-X  > 
;< Dieser Code darf frei verwendet werden >
;< Mfg Suco >



Graphics 1024,768,16,2
SetBuffer BackBuffer()

SetFont(LoadFont(\"Arial\",15,True))


;#######################################################################################


;Menue Type
;txt = Titel des Menü eintrages
;width,height = Größe des eintrages. Wird Auto. berechnet.
;num = Ansprechnummer
;menue_baum = Das Menue von dem der Eintrag ein Ast ist. ->
;damit lassen sich die Einträge untereinander verbinden. ->
;Default wert ist dabei Null. Also alle Einträge die zuerst ->
;erscheinen sollen müssen bei CreateMenue ein Null für menue_baum kriegen. 
;Ich denke aber die CreateMenue Funktion erklärt sich von selbst.

Type t_menue
	Field txt$
	Field width,height
	Field num
	Field menue_baum.t_menue
End Type




;3 Variablen die im Globalen Umgang mit dem Menü benötigt werden
;Menue_Baum     = Speichert den Aktuellen menue_baum zwischen. 
;selected_menue = Speichert das gerade Selectierte Menü zwischen
;back_menue     = Der \"zurück\" button
;Weiter Infos unten in den Functionen

Global menue_baum.t_menue     = Null
Global selected_menue.t_menue = Null
Global back_menue.t_menue     = Null



;#######################################################################################







;Hier wird gezeigt wie man mit mehreren Einträgen und 
;Subeinträgen und deren Subeinträgen umgeht.

;Das Hauptmenü
menu1.t_menue = SU_CreateMenue(\"Datei\",1,Null)
	;Erste Submenüs vom Hauptmenü(menu1)
	
	SU_CreateMenue(\"Speichern\",2,menu1)
	SU_CreateMenue(\"Laden\",3,menu1)
	
	;Da auf Quit noch weiter Submenüs folgen, brauchen wir wieder das Object was
	;CreateMenue zurück liefert
	ast1.t_menue = SU_CreateMenue(\"Quit\",4,menu1)
		
		;Und noch einer
		ast2.t_menue = SU_CreateMenue(\"Wirklich?\",5,ast1)
			
			;Und das ende vom Lied. 
			SU_CreateMenue(\"Jep\",6,ast2)

;Das ganze sieht also so aus : 

;Datei-
;     Speichern
;     Laden
;     Quit-        
;          Wirklich?-
;                    Jep- Ende


;Um das ganze Beispiel zu füllen.Das Beispiel oben reicht als Erklärrung denke ich
menu2.t_menue = SU_CreateMenue(\"Bearbeiten\",10,Null)
	SU_CreateMenue(\"Ausschneiden\",11,menu2)
	SU_CreateMenue(\"Einfügen\",12,menu2)


	
;.......	
menu3.t_menue = SU_CreateMenue(\"About\",20,Null)
	SU_CreateMenue(\"Suco\",21,menu3)
	SU_CreateMenue(\"xyz\",22,menu3)


;Wichtig : Muss aufgerufen werden, sonst Error
SU_ReleaseMenue()




;Einige Variablen die ich für dieses Beispiel brauche

Global is_hit   = 0
Global last_hit = 0
Global quit     = 0







Repeat
ClsColor 100,100,100
Cls

;Su_UpdateMenue gibt gleichzeitig auch immer die Ansprech Nummer
;des menüs zurück das gedrückt wurde
is_hit = Su_UpdateMenue(50,50)


;Sollte UpdateMenue an is_hit einen Wert größer als 0 zurückgeliefert haben
If is_hit
	;Speichern wird die Nummer zwischen
	last_hit = is_hit
EndIf

;Wenn is_hit=6(Der \"jep\" Eintrag bei \"Quit\",siehe oben), ist quit 1
;Und die Schleife wird verlassen
quit = (Is_hit=6)



;Gibt den zuletzt gedrückten Eintrag aus
Text 0,0,\"Zuletzt gedrückter Eintrag: \"+last_hit

Flip
Until quit Or KeyHit(1)








;**************************************************************************************



;Erstellt ein Menü und gibt das Object zurück. 
;txt        = Titel das Eintrages
;num        = Ansprechnummer
;menue_baum = Menü Baum

Function SU_CreateMenue.t_menue(txt$,num,menue_baum.t_menue)

Local menue.t_menue = Null


;Ein Menue Object erstellen und mit den Functions Parametern füllen
menue = New t_menue
menue\txt = txt
menue\num = num
menue\menue_baum = menue_baum

;Hier werden die ausmase ermittelt der einträge durch Weite und Höhe des Eintrag titels ermittelt. 
;Vllt nicht die beste Lösung. Aber der Zweck heiligt die Mittel
menue\width = StringWidth(menue\txt)+30
menue\height = StringHeight(menue\txt)+10


;Das Menue Object wird zurück gegeben
Return menue
End Function





;Zeichnet ein Menü Eintrag
;menue = Menü Object
;x = x Position
;y = y Position

Function SU_DrawMenue(menue.t_menue,x,y)

;Hintergrund Farbe und Rect
Color 200,200,200
Rect x,y,menue\width,menue\height


;Der Rahmen. 
;Übereinstimmt das Menue Object mit dem Globalen selected_menue Object, so ist die
;Rahmenfarbe Grün. Andernfalls Matt/schwarz
;\"menue=selected_menue\"  gibt 1 zurück bei Erfolg, andernfalls eine 0
;50+(1*200) wären 250, also grün. 
;50+(0*200) wären 50, also insgesamt Matt

Color 50,50+((menue=selected_menue)*200),50
Rect x,y,menue\width,menue\height,0


;Der Menue Text in Nachtschwarz
Color 0,0,0



;Sollte ein Ast exestieren, so kommen noch 3 \".\" hinten dran.
;Andernfalls nur der Menue Titel
If SU_AstExist(menue)
	Text x+(menue\width/2),y+(menue\height/2),menue\txt+\"...\",1,1
Else
	Text x+(menue\width/2),y+(menue\height/2),menue\txt,1,1
EndIf


Return True
End Function




;Updated das ganze. Herzstück des Codes. Alles mit schwachen nerven am besten 
;überspringen  
;Ich versuche es aber trotzdem so klärend wie möglich für Anfänger zu kommentieren

Function SU_UpdateMenue(x,y)

;Locale Variablen die nur in dieser Funktion genutzt werden.

Local menue.t_menue = Null
Local menue_x = x
Local menue_y = y

Local next_menue.t_menue = Null
Local temp_num = 0 


;Alle Menue Type Einträge werden Durchgegangen

For menue = Each t_menue
	
	;Sollte der menue_baum des Menue Eintrages mit der Global Variable menue_baum
	;übereinstimmen, so wird das ganze gezeichnet. 
	If menue\menue_baum = menue_baum
		
		;Die Function Siehe oben
		SU_DrawMenue(menue,menue_x,menue_y)
		
		;Damit auch alles untereinander gelistet wird, wird 
		;menue_y mit der höhe des alten Menue Eintrages Addiert
		;Damit wird erreicht das von oben nach unten aufgelistet wird.
		;Von dem Functionsparameter y aus.
		;X hingegen bleibt Original bestehen
		
		menue_y = menue_y+menue\height
	EndIf
Next 



;Wird die Pfeil nach oben Taste gedrückt....
If KeyHit(208)
	
	;Wird der nächste Menue Eintrag gesucht. 
	;SearchAfter Function siehe unten.
	;Es wird ein Eintrag gesucht der tiefer liegt als der alte.
	
	next_menue = SU_SearchAfter(selected_menue)
	
	;Sollte ein weiterer Eintrag gefunden worden sein,
	;ist unser selected_menue Object = next_menue		
	If next_menue<>Null
		selected_menue = next_menue
	EndIf
;Wird die Pfeil nach unten Taste gedrückt....
ElseIf KeyHit(200)
	
	;Gleiches wie oben, nur wird ein Eintrag gesucht der Höher als 
	;der alte ist;
	
	next_menue = SU_SearchBefore(selected_menue)
		
	If next_menue<>Null
		selected_menue = next_menue
	EndIf
	
EndIf


;Wird die Enter/Return Taste gedrückt..
If KeyHit(28)
	
	;Wenn der zurück Button Selectiert ist
	If selected_menue = back_menue
		;Wird der Menue baum umgeschaltet und mit SU_ReleaseMenue neu Sortiert
		menue_baum = back_menue\menue_baum\menue_baum
		SU_ReleaseMenue()
	Else
		;andernfalls wird zu der nächsten Eintragsreihe gewechselt
		;Falls ein Ast Exestiert(Siehe AstExist Function)
		;Danach wieder alles neu sortiert mit ReleaseMenue()
		temp_num = selected_menue\num
		
		If SU_AstExist(selected_menue)
			menue_baum = selected_menue
			SU_ReleaseMenue()
		EndIf
	EndIf
EndIf


Return temp_num
End Function




;Function zum suchen von Type einträgen vor einem anderen Eintrag
Function SU_SearchBefore.t_menue(menue.t_menue)

Local this.t_menue = Null
Local new_menue.t_menue = menue

;Solange wiederholen bis this ein Object gespeichert hat. 
;Falls es keinen Erfolg hat wird die Schleife beendet wenn 
;es keine Type Einträge mehr gibt
Repeat

new_menue = Before new_menue

If new_menue<>Null
	If new_menue\menue_baum = menue_baum
		this = new_menue
		;Gibt das richtig Object zurück bei Erfolg
		Return this
	EndIf
EndIf

Until new_menue = First t_menue Or new_menue=Null


;Sollte kein Object gefunden wordne sein, so wird Null zurück gegeben
Return Null
End Function




;Das gleiche wie oben. Nur wird hinter dem gewünschten Eintrag gesucht.
Function SU_SearchAfter.t_menue(menue.t_menue)
Local this.t_menue = Null
Local new_menue.t_menue = menue

Repeat

new_menue = After new_menue

If new_menue<>Null
	If new_menue\menue_baum = menue_baum
		this = new_menue
		Return this
	EndIf
EndIf

Until new_menue = Last t_menue Or new_menue=Null


Return Null
End Function



;Prüft ob ein Sub Einträge Existieren 
Function SU_AstExist(ast.t_menue)
Local menue.t_menue

For menue = Each t_menue
	If menue\menue_baum = ast
		Return True
	EndIf
Next 

Return False
End Function



;Wichtige Daten werden gesetzt und ein Eintrag gesucht der
;am Anfang selectiert sein soll

Function SU_ReleaseMenue()

If back_menue<>Null
	Delete back_menue
EndIf

If menue_baum<>Null
	back_menue = SU_CreateMenue(\"Zurück\",0,menue_baum)
EndIf

SU_Search()

Return True
End Function



;Sucht den ersten richtigen Eintrag der passt
;und setzt ihn als selected.
Function SU_Search()
Local menue.t_menue

For menue = Each t_menue
	If menue\menue_baum = menue_baum
		selected_menue = menue
		Return True
	EndIf	
Next 

Return False
End Function



;**************************************************************************************