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