Form laden: Localizeloading in InitHeritedcomponent

[Uwe Raabe]

Zitat von Harry Stahl:

Wieso nur?

Offenbar eine eher suboptimale Umsetzung des Windows-Menüs unter FMX. TPlatformWin.UpdateMenuItem interessiert sich nur mäßig für das aktuelle AItem (sucht immer das RootMenu) und gar nicht für AChange, den Grund des Update. Vielmehr löst jeder Aufruf dieser Routine einen Neuaufbau des gesamten Menüs aus. Da beim Setzen der ImageList aber jeder Menüpunkt durchlaufen wird, erfolgt für jeden Menüpunkt auch ein kompletter Neuaufbau.

Du kannst das einfach sehen, wenn du in deinem Beispiel einen Button mit folgendem Event zufügst:

Delphi-Quellcode:

  Menu1.Images := nil;
  Menu1.Images := imMain;

Ein Workaround ist ein bisschen tricky und auch unsauber. Deklariere vor deinem Form die folgende Interposer Class:

Delphi-Quellcode:

type
  TMenuItem = class(FMX.Menus.TMenuItem)
    procedure DoBitmapChanged; override;
  end;

type
  TForm16 = class(TForm)
    Menu1: TMainMenu;
...
procedure TMenuItem.DoBitmapChanged;
begin
  SetDesigning(True, False);
  inherited;
  SetDesigning(False, False);
end;

Das verhindert den jeweiligen Neuaufbau des Windows-Menüs. Daher musst du das selbst noch im FormCreate nachholen:

Delphi-Quellcode:

procedure TForm16.FormCreate(Sender: TObject);
begin
  Menu1.RecreateOSMenu;
end;

Kann gut sein, daß das für andere Plattformen nicht nötig ist oder dort sogar Probleme auslöst. Dann musst du den entsprechenden Code in passende IFDEFs packen.

[Harry Stahl]

Super Uwe, ich bin beeindruckt.

Ich quälte mich gerade auch durch die FMX.Menus.pas, um weiteres Licht ins Dunkel zu bringen.
Aber mit Deinem Work-Around kann ich leben, der funktioniert hier super. Musste in anderen Units, welche das Hauptformular includierten noch einige

tm: TMenuItem;

durch

tm: FMX.Menus.TMenuItem;

ersetzen, aber das war's dann auch schon.

Vielen Dank, das erleichtert mir auch das weitere Testen, auf einem anderen (langsameren) Rechner hat sich die Startzeit des Programms schon auf 20 Sekunden aufaddiert, jetzt geht's dort wieder in insgesamt 4 Sek (incl. laden einer Maildatei mit 50.000 Maileinträgen).

Übrigens: Bei TMenubar tritt das Problem nicht auf. TMainMenu hat aber wohl auch noch andere Probleme, z.B. dass das OnClickEvent eines Hauptmenüeintrages der Menüzeile nicht ausgeführt wird.