Firemonkey Workarounds

[Peter666]

Ich packe das mal hier rein, da es passt:

- FMX.Treeview öffnet bei jedem TreeviewItem die Children und zeichnet jedes einzelne Element neu

In FMX.Treeview.pas unter procedure TTreeViewItem.SetIsExpanded(const Value: Boolean); folgendes ausklammern:

Delphi-Quellcode:

(* if FContent.ChildrenCount > 0 then
      for i := FContent.ChildrenCount - 1 downto 0 do
      begin
        Item := nil;
        if FContent.Children[i] is TTreeViewItem then
          Item := TTreeViewItem(FContent.Children[i]);

        if Item <> nil then
          Item.IsExpanded := True;
      end;*)

und das FUpdating hinzufügen bei:

Delphi-Quellcode:

   if (FUpdating = 0) and (TreeView <> nil) then
      TreeView.Realign;

- unter OSX liefert das OnClick Ereignis bei den Menüs nicht das TMenuitem zurück.

Unter FMX.Platform.MAC das DispatchMenu wie folgt ersetzen:

Delphi-Quellcode:

procedure TFMXOSMenuItem.DispatchMenuClick(Sender: Pointer);
begin
  try
    if Assigned(FMXMenuItem.OnClick) then
      FMXMenuItem.OnClick(FMXMenuItem); //++
  except
    Application.HandleException(Self);
  end;
end;