4D v14.3
SET MENU BAR
- 4D Programmiersprache
-
- Menüs
-
- Menüs verwalten
- APPEND MENU ITEM
- Count menu items
- Count menus
- Create menu
- DELETE MENU ITEM
- DISABLE MENU ITEM
- Dynamic pop up menu
- ENABLE MENU ITEM
- Get menu bar reference
- Get menu item
- GET MENU ITEM ICON
- Get menu item key
- Get menu item mark
- Get menu item method
- Get menu item modifiers
- Get menu item parameter
- GET MENU ITEM PROPERTY
- Get menu item style
- GET MENU ITEMS
- Get menu title
- Get selected menu item parameter
- INSERT MENU ITEM
- Menu selected
- RELEASE MENU
- SET MENU BAR
- SET MENU ITEM
- SET MENU ITEM ICON
- SET MENU ITEM MARK
- SET MENU ITEM METHOD
- SET MENU ITEM PARAMETER
- SET MENU ITEM PROPERTY
- SET MENU ITEM SHORTCUT
- SET MENU ITEM STYLE
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 | |||||
Der Befehl SET MENU BAR ersetzt die aktuelle Menüleiste durch die Menüleiste in 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 Datenbankmethode On Startup oder in der Startup Methode für den Benutzer eine spezifische Menüleiste angeben.
Folgendes Beispiel ändert die aktuelle Menüleiste in die Menüleiste mit Namen FormMenuBar1 und versetzt die Menübefehle in den ursprünglichen Status:
SET MENU BAR(3)Folgendes Beispiel ändert die aktuelle Menüleiste in die Menüleiste mit Namen FormMenuBar1 und sichert die Menübefehle im aktuellen Status, d.h. deaktivierte Menüs bleiben deaktiviert.
SET MENU BAR("FormMenuBar1";*)Folgendes Beispiel macht die aktuelle Menüleiste zu Menüleiste #3, während Datensätze geändert werden. Diese Menüleiste wird anschließend zu Menüleiste #2 mit dem ursprünglichen Status:
SET MENU BAR(3)
ALL RECORDS([Customers])
MODIFY SELECTION([Customers])
SET MENU BAR(2;*)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;Return to Design mode)
INSERT MENU ITEM(FileMenu;-1;"(-")
INSERT MENU ITEM(FileMenu;-1;Get indexed string(131;26))
SET MENU ITEM PROPERTY(FileMenu;6;Associated standard action;Database settings action) `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;Quit action) `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;Cut action)
SET MENU ITEM SHORTCUT(EditMenu;2;Character code("C"))
SET MENU ITEM PROPERTY(EditMenu;2;Associated standard action;Copy action)
SET MENU ITEM SHORTCUT(EditMenu;3;Character code("V"))
SET MENU ITEM PROPERTY(EditMenu;3;Associated standard action;Paste action)
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)
Produkt: 4D
Thema: Menüs
Nummer:
67
Geändert: 4D v11 SQL
4D Programmiersprache ( 4D v12.4)
4D Programmiersprache ( 4D v14 R3)
4D Programmiersprache ( 4D v14 R2)
4D Programmiersprache ( 4D v13.5)
4D Programmiersprache ( 4D v14.3)
4D Programmiersprache ( 4D v14 R4)
Gesplittet : SET MENU BAR ( 4D v11 SQL Release 6)
