MainMenu: How to use the "Quit <App>" item that has been added in trunk?

[daniel_sap]

Thank you, Rich

[madref]

Can anyone post a working example with the code from Rich2014?

[madref]

I am trying to do this...but with no succes...

Code: Pascal  [Select][+][-]

1. type
2.   TForm_Lint = class(TForm)
3.     ....
4.     PUM_Exit: TMenuItem;
5.     ....
6.   end;
7.  
8. uses {$IFDEF DARWIN}CocoaConfig, {$ENDIF}
9.  
10. ....
11. ....
12.  
13. procedure TForm_Lint.FormCreate(Sender: TObject);
14. begin
15.   {$IFDEF DARWIN}
16.     CocoaConfigMenu.appMenu.aboutItem := PUM_Exit;
17.     CocoaConfigMenu.appMenu.preferencesItem:= PUM_Exit;
18.     CocoaConfigMenu.appMenu.dontAutoCreateItems := True;
19.   {$ENDIF}
20. end;     // FormCreate
21.  

[madref]

I found out that you must have an active main menu in your app. (Should have read Hansaplast post better because he already did the same )

Because I don't use a main menu but a ribbon is there another way to do this?

[madref]

Been tinkering a lot....
Found the following things out:
* I dropped a dummy TMainMenu with no menu on my main form
* Created a pop-up menu with the items I need (About & Preference).
* Instead of referring to the mailmen I refered to the pop-up menu.


Now I have the following (See attachment).


but I still don't have the [Quit]

Code: Pascal  [Select][+][-]

1. procedure TForm_Lint.FormCreate(Sender: TObject);
2. begin
3.   {$IFDEF DARWIN}
4.     CocoaConfigMenu.appMenu.aboutItem := PUM_Info;
5.     CocoaConfigMenu.appMenu.preferencesItem := PUM_Exit;
6.     CocoaConfigMenu.appMenu.dontAutoCreateItems := True;
7.   {$ENDIF}
8. end;     // FormCreate
9.  

P.S. it now says [About test] -=> how to change this? (Does anyone know how to?

[rich2014]

hi, Madref

since you need to automatically generate the Quit menu item, you don't need to set dontAutoCreateItems.

CocoaConfigMenu.appMenu.dontAutoCreateItems := True;

[madref]

But if I set it to false I get all the other options too...
I only want to have [About] [Settings] and [Quit]


And do you know how to change the [About test] to let's say [About Referee DB]

[rich2014]

CocoaConfigMenu.appMenu.customMenus for full control.

CocoaConfigMenu.appMenu.customMenus:= TMenuItem_costomMenus;

[madref]

I finally found a solution to this problem with the help from Rich2014 and some tinkering.
I created a pop-up menu with a sub menu in it with the right references to the correct procedures.

Code: Pascal  [Select][+][-]

1.     PUM_Main_Sub: TMenuItem;
2.     PUM_Main_Settings: TMenuItem;
3.     PUM_Main_Info: TMenuItem;
4.     PUM_Main_Exit: TMenuItem;
5.     PUM_Main: TPopupMenu;

Then the following code to create it all

Code: Pascal  [Select][+][-]

1. procedure TForm_Lint.FormCreate(Sender: TObject);
2. begin
3.   {$IFDEF DARWIN}
4.     CocoaConfigMenu.appMenu.customMenus := PUM_Main_Sub;
5.     CocoaConfigMenu.appMenu.dontAutoCreateItems := True;
6.   {$ENDIF}
7. end;     // FormCreate

By setting the dontAutoCreateItems to True you get only the menu you created.


for the result see the attachment

[madref]

I still do have a question about this:


How can I change the bitmap once the menu has been created.
If you look closely the [Info]-bitmap is black and I am using a blue set of color.
So how can I change this during runtime because the user might change the color-scheme to red or another different color

[Hansaplast]

I know, it's an old and seemingly ongoing topic that I ran into again today.


Question for the devs (rich2014?):
Is there a way these steps can be included in the Menu Editor in the Lazarus IDE?

[rich2014]

it is specific to Cocoa, so i think it's unlikely.

also, this menu should only have a few items, so implementing it via code configuration wouldn't be difficult.

[Hansaplast]

I was already afraid of that - then again, one could see this as a part of TMainMenu? Maybe? 😉


Had to use this last week and did find it rather cumbersome to gather all the pieces (in the forum here) together and write code around TMainMenu limitations. The Wiki page (link) looks outdated.
I wouldn't mind doing an effort to write something for the Wiki page, but I may need some guidance as I'm not quite sure what the "proper" way is on how to use the new method.
To keep designtime "easy" I abuse a TPopupMenu to design the menu pieces.