Ergebnis der Suchanfrage

• Forum: Cross-Platform-Entwicklung

  AW: MacOS Menüeinträge

   
    by CHackbart, 21. Aug 2019
  Zugegebenermaßen ist der Thread schon etwas älter, aber bei der neuen Version von Delphi ist mir etwas unangenehm aufgefallen.
  
  Geht man über den Menüpunkt Anwendung beenden, wird diese terminiert und nicht geschlossen. Dadurch wird u.a. alles was on OnDestroy steht nicht ausgeführt.
  
  Man muss also procedure TPlatformCocoa.Terminate;
  begin
  FRunning := False;
  FTerminating := True;
  ...
• Forum: Cross-Platform-Entwicklung

  AW: MacOS Menüeinträge

   
    by CHackbart, 13. Dez 2016
  Eine Kleinigkeit habe ich hier noch. Aus unerklärlichen Gründen geht unter Delphi Berlin der Spotlightmenu Eintrag nicht.
  Abhilfe schafft folgender Code in
  procedure TPlatformCocoa.CreateOSMenu(AForm: TCommonCustomForm; const AMenu: IItemsContainer);
  
  if J = VisibleItemCount - 1 then
  begin
  LNewMenu := NewNSMenu(SSpotlightFeature);
  ...
• Forum: Cross-Platform-Entwicklung

  AW: MacOS Menüeinträge

   
    by CHackbart, 23. Okt 2015
  Ich beantworte das mal, da ich ebenfalls auf das Problem gestoßen bin.
  
  Es scheint irgend ein Problem mit submenu zu geben. Sobald man ein Element im Untermenü holen will, gibt es eine Exception. Irgendwie finde ich den Plattform Code auch etwas undurchsichtig, aber wenn man "eh" schon selber Hand anlegen muss, kann man auch seinen eigenen Code einbinden:
  
  In constructor...
• Forum: Cross-Platform-Entwicklung

  AW: MacOS Menüeinträge

   
    by CHackbart, 3. Jun 2014
  Das ist so auch nicht ganz korrekt. Probiers mal so:
  
  
  var ServicesMenu: NSMenu;
  ...
  Services := AppItem.submenu.itemAtIndex(mnuServices.Index);
  ServicesMenu := TNSMenu.create;
  ServicesMenu := TNSMenu.Wrap(ServicesMenu.init);
  Services.setSubmenu(ServicesMenu);
  NSApp.setServicesMenu(ServicesMenu);