XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur 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
date:    10.01.2001
-----------------------------------------------
Erklärung:
----------
comment wird un menu erstellt?
comment frage je qui individuel Punkte ab?
---------------------------------------
Déclarer ende%				Variable vorbereiten
Fenêtre 10,10 - 500,300			comment toujours la fenêtre erstellen
Windowtitle Menüs erstellen/auswerten	Fenstertitel
ici wird qui Menüleiste erstellt:
cela & bedeutet: qui pour dem & marque kommende Buchstabe
wird unterstrichen et peux ensuite avec dem Buchstaben sur
qui clavier cela gleiche bewirken et z.B. Dossier öffnen . Run
Popup &Dossier				entier à gauche Obereintrag Dossier
AppendMenu 1,&öffnen		Untereintrag (Dossier) öffnen
SEPARATOR				une Trennlinie
AppendMenu 2,&schließen		Untereintrag (Dossier) schließen
AppendMenu 3,&Programmende		Programmende (Dossier) Programmende
Popup &Aider				prochaine Eintrag Leiste: Aider
SubPopup &Infos			Untereintrag (Aider) Infos
AppendMenu 4,&Programme		Untereintrag zum Untereintrag Infos :-) Programme
AppendMenu 5,&Autor		Untereintrag zum Untereintrag Infos :-) Autor
EndSub

Whilenot ende%				solange Endevariable = 0

    waitinput				Wartet sur souris ou bien bouton
    ici eh bien qui Auswertungen qui Menüpunkte (entier simple)

    IF @Menuitem(254)			Ausnahme 254 ist cela (c) marque

        wird ca angeklickt peux on une
        Infobox erstellen ou bien so quoi.
        Im Interpreter venez mais toujours encore
        d'abord qui Hinweis zum Profaninterpreter
        cls				Bildschirm effacer
        PRINT Demo zum Menüprogramm	Ausgabe Text Bildschirm

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

        cls
        Imprimer maintenant serait z.B. qui Dateiwahldialog ouvert

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

        cls
        Imprimer ici pourrait on qui aktuelle Dossier wieder schließen

    Elseif @Menuitem (3)			Programmende gewählt

        cls
        Imprimer eh bien serait cela Programme finissez
        Imprimer ensuite devrait im Quellcode stehen
        Imprimer let ende%=1
        let ende%=1			wird cela Hochkomma entfernt
        wirklich Programmende, là Schleifen
        bedingung gegeben ist ende%=1

    Elseif @Menuitem (4)			Aider/Infos/Programme gewählt

        cls
        Imprimer cet Programme ist zur Demo menu gedacht

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

        cls
        Imprimer (c) by Rolf Koch - Roko-Software 2001
        ENDIF					Ende qui Abfrage
        Wend					Zurück trop Whilenot ende% (jusqu'à Programmende)