SET MENU BAR

Home

4D v20 R7

SET MENU BAR


SET MENU BAR ( Menüleiste {; Prozessnr}{; *} )

Parameter	Typ	Beschreibung
Menüleiste	Lange Ganzzahl, String, MenüRef	Nummer, Name oder Menüreferenz der zu zeigenden Menüleiste
Prozessnr	Lange Ganzzahl	Referenznummer des Prozesses
*	Operator	Status der Menüleiste sichern

Beschreibung

Der Befehl SET MENU BAR ersetzt die aktuelle Menüleiste durch Menüleiste nur für den aktuellen Prozess. In Menüleiste übergeben Sie Nummer oder Name der neuen Menüleiste. Sie können auch eine Menüreferenz vom Typ String mit 16 Zeichen übergeben. Arbeiten Sie mit Referenzen, können Sie Menüs als Menüleisten und umgekehrt verwenden. Weitere Informationen dazu finden Sie im Abschnitt Menüs verwalten.

Hinweis: Der Name einer Menüleiste muss einmalig sein und kann bis zu 31 Zeichen lang sein.

Existiert Menüleiste nicht, wird der Befehl SET MENU BAR nicht ausgeführt.

Hinweis: Übergeben Sie im Parameter Menüleiste den Parametertyp MenüRef, ist der Parameter Prozessnr nicht erforderlich und wird ignoriert.

Der optionale Parameter Prozessnr ändert die Menüleiste des angegebenen Prozesses in Menüleiste.
Der optionale Parameter * behält den Zustand der Menüleiste bei. Wird er nicht angegeben, aktualisiert SET MENU BAR die aufgerufene Menüleiste.
Angenommen, nach Benutzung des Befehls SET MENU BAR(1) werden mehrere Menüzeilen mit DISABLE MENU ITEM deaktiviert. Bei erneuter Ausführung von SET MENU BAR(1), egal ob im selben oder einem anderen Prozess, kehren alle Menübefehle zum ursprünglichen Status aktiviert zurück.
Wird dagegen SET MENU BAR(1;*) ausgeführt, behält die Menüleiste den geänderten Status bei, die Menübefehle bleiben deaktiviert.

Hinweis: Übergeben Sie im Parameter Menüleiste den Parametertyp MenüRef, ist der Parameter * nicht erforderlich und wird ignoriert.

Öffnet ein Benutzer die Anwendungsumgebung, wird die erste Menüleiste angezeigt (Menüleiste #1). Sie können diese Menüleiste ändern, wenn Sie beim Öffnen einer Datenbank in der oder in der Startup Methode für den Benutzer eine spezifische Menüleiste angeben.

 SET MENU BAR(3)

 ALL RECORDS([Customers])

 MODIFY SELECTION([Customers])

 SET MENU BAR(2;*)

Beispiel 4

Dieses Beispiel erstellt per Programmierung eine Menüleiste mit den Menüs File und Edit:

  `Methode zum Erstellen des Menüs File

 C_TEXT(16;FileMenu) ` FileMenu enthält die Referenz auf Menü File

 FileMenu:=Create menu

 INSERT MENU ITEM(FileMenu;-1;"My Database "+Get indexed string(131;29))

 SET MENU ITEM MARK(FileMenu;1;Char(18))

 INSERT MENU ITEM(FileMenu;-1;"(-")

 INSERT MENU ITEM(FileMenu;-1;"Quit the Test Application mode/Y")

 SET MENU ITEM PROPERTY(FileMenu;3;Associated standard action;ak return to design mode)

 INSERT MENU ITEM(FileMenu;-1;"(-")

 INSERT MENU ITEM(FileMenu;-1;"Preferences")

 SET MENU ITEM PROPERTY(FileMenu;5;Associated standard action;ak database settings) `Einstellungen

 INSERT MENU ITEM(FileMenu;-1;"(-")

 INSERT MENU ITEM(FileMenu;-1;Get indexed string(131;30))

 SET MENU ITEM PROPERTY(FileMenu;7;Associated standard action;ak quit) `Beenden

 SET MENU ITEM SHORTCUT(FileMenu;7;Character code("Q"))

 

  `Methode zum Erstellen des Untermenüs Find and Replace

 C_TEXT(16;FindAndReplaceMenu) `FindAndReplaceMenu enthält Referenz auf Menü Find and Replace

 FindAndReplaceMenu:=Create menu

 APPEND MENU ITEM(FindAndReplaceMenu;"Find;Find Next;Find Previous;(-;Replace;Replace Next;Replace Previous")

 SET MENU ITEM SHORTCUT(FindAndReplaceMenu;1;Character code("F"))

 SET MENU ITEM SHORTCUT(FindAndReplaceMenu;5;Character code("R"))

 SET MENU ITEM METHOD(FindAndReplaceMenu;1;"MyFindMethod")

 

  `Methode zum Erstellen des Menüs Edit

 C_TEXT(16;EditMenu) `EditMenu enthält Referenz auf Menü Edit

 EditMenu:=Create menu

 APPEND MENU ITEM(EditMenu;"Cut;Copy;Paste")

 SET MENU ITEM SHORTCUT(EditMenu;1;Character code("X"))

 SET MENU ITEM PROPERTY(EditMenu;1;Associated standard action;ak cut)

 SET MENU ITEM SHORTCUT(EditMenu;2;Character code("C"))

 SET MENU ITEM PROPERTY(EditMenu;2;Associated standard action;ak copy)

 SET MENU ITEM SHORTCUT(EditMenu;3;Character code("V"))

 SET MENU ITEM PROPERTY(EditMenu;3;Associated standard action;ak paste)

 INSERT MENU ITEM(EditMenu;-1;"(-")

 INSERT MENU ITEM(EditMenu;-1;"Find and Replace";FindAndReplaceMenu) ` Zeile mit Untermenü

 

 main_Bar:=Create menu ` Erstelle Menüleiste mit anderen Menüs

 INSERT MENU ITEM(main_Bar;-1;Get indexed string(79;1);FileMenu)

 APPEND MENU ITEM(main_Bar;"Edit";EditMenu)

 

 SET MENU BAR(main_Bar)

Siehe auch

Menüs verwalten

SET MENU BAR

Beschreibung

Beispiel 1

Beispiel 2

Beispiel 3

Beispiel 4