XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menüleiste erstellen
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Menüleiste
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    10.01.2001
-----------------------------------------------
Erklärung:
----------
Wie wird ein Menü erstellt?
Wie frage ich die einzelnen Punkte ab?
---------------------------------------
Declare ende%				Variable vorbereiten
Window 10,10 - 500,300			wie immer Fenster erstellen
Windowtitle Menüs erstellen/auswerten	Fenstertitel
Hier wird die Menüleiste erstellt:
das & bedeutet: der nach dem & Zeichen kommende Buchstabe
wird unterstrichen und kann dann mit dem Buchstaben auf
der Tastatur das gleiche bewirken und z.B. Datei öffnen ausführen.
Popup &Datei				ganz links Obereintrag Datei
AppendMenu 1,&öffnen		Untereintrag (Datei) öffnen
SEPARATOR				Eine Trennlinie
AppendMenu 2,&schließen		Untereintrag (Datei) schließen
AppendMenu 3,&Programmende		Programmende (Datei) Programmende
Popup &Hilfe				nächster Eintrag Leiste: Hilfe
SubPopup &Infos			Untereintrag (Hilfe) Infos
AppendMenu 4,&Programm		Untereintrag zum Untereintrag Infos :-) Programm
AppendMenu 5,&Autor		Untereintrag zum Untereintrag Infos :-) Autor
EndSub

Whilenot ende%				solange Endevariable = 0

    waitinput				Wartet auf Maus oder Taste
    Hier nun die Auswertungen der Menüpunkte (ganz einfach)

    IF @Menuitem(254)			Ausnahme 254 ist das (c) Zeichen

        wird dies angeklickt kann man eine
        Infobox erstellen oder so was.
        Im Interpreter kommt aber immer noch
        zuerst der Hinweis zum Profaninterpreter
        cls				Bildschirm löschen
        PRINT Demo zum Menüprogramm	Ausgabe Text Bildschirm

    Elseif @Menuitem (1)			Datei öffnen gewählt

        cls
        Print Jetzt würde z.B. der Dateiwahldialog geöffnet

    Elseif @Menuitem (2)			Datei schließen gewählt

        cls
        Print Hier könnte man die aktuelle Datei wieder schließen

    Elseif @Menuitem (3)			Programmende gewählt

        cls
        Print Nun würde das Programm beendet
        Print dann müsste im Quellcode stehen
        Print let ende%=1
        let ende%=1			wird das Hochkomma entfernt
        wirklich Programmende, da Schleifen
        bedingung gegeben ist ende%=1

    Elseif @Menuitem (4)			Hilfe/Infos/Programm gewählt

        cls
        Print Dieses Programm ist zur Demo Menü gedacht

    Elseif @Menuitem (5)			Hilfe/Infos/Autor gewählt

        cls
        Print (c) by Rolf Koch - Roko-Software 2001
        ENDIF					Ende der Abfrage
        Wend					Zurück zu Whilenot ende% (bis Programmende)