Treeview in Firemonkey XE2

[Peter666]

Hi,

derzeit muss ich notgedrungen Firemonkey für ein Projekt nutzen und ich könnte mir die Haare einzeln ausreißen. Mir ist im speziellen Fall des Treeviews die unterirdische Performance beim Aufklappen des Baumes aufgefallen. Sobald man mehrere TreeviewItem's mit Unterobjekten hat passiert das.
Sieht man mal davon ab das knapp 1800 Einträge in einer Treeview eigentlich nicht das System auch nur im Ansatz belasten sollten, so dauert das Öffnen einer Node knapp 30 Sekunden und der Ramverbrauch stieg auf knapp 1gb an. Mein Baum hat 4 Unterzweige mit jeweils ein paar Dutzend Items, das konnte selbst ein oller Celeron unter 98 innerhalb von wenigen Nanosekunden.
In XE4 ist das Problem nicht mehr vorhanden, dazu komme ich aber noch später in dem Post

Da ja der Quellcode in der Professional Version von Delphi mitgeliefert ist, habe ich mir also die FMX.Treeview.pas in mein Projektpfad kopiert und den Verweis auf die Include Datei mit den Compileroptionen ausgeklammert, weil die wird da eh nicht drin benutzt. Der Grund für die unterirdische Performance: procedure TTreeViewItem.SetIsExpanded(const Value: Boolean);

Delphi-Quellcode:

procedure TTreeViewItem.SetIsExpanded(const Value: Boolean);
var
  i: Integer;
  Item: TTreeViewItem;
begin
  if FIsExpanded <> Value then
  begin
    FIsExpanded := Value;

    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;

    if (FButton <> nil) and not(csLoading in ComponentState) then
    begin
      FButton.Visible := Count > 0;
      if FButton.Visible then
        FButton.StartTriggerAnimation(Self, 'IsExpanded');
    end;

     if (TreeView <> nil) then
      TreeView.Realign;
  end;
end;

Sieht man mal davon ab, dass es ein Unding ist bei einem Treeview automatisch alle Untersektionen aufzuklappen, so ist das nicht der Grund für die quälend langsame Verarbeitung.
Beim weiteren Debuggen ist mir eine Zeile aufgefallen die der Übeltäter ist. Ich denke mal diejenigen die das Post hier lesen, sehen das auch sofort...
Richtig TreeView.Realign wird automatisch bei jedem Unterelement ausgeführt und das komplette Treeview veranlasst sich selbst neu auszurichten und neu zu zeichnen.
Welcher Depp macht so etwas? Ich nutze XE4 nicht wirklich, da ich auch nicht den Quellcode von dort habe rate ich mal das das in der Form auch so hinterlegt ist und man das Autoexpand schlichtweg deaktiviert hat.

Der Grund für mein Post ist jedoch ein anderer. Ich fürchte das mir sowas bei Listboxen mit Sicherheit auch noch entgegenschlägt und ebenso bei anderen Komponenten. Wie aktualisiere ich am besten die Originalquellen so dass man nicht ständig den halben Firemonkeycode von Projekt zu Projekt mitziehen muss?

Peter

[Peter666]

Hmm, OnClick und OnDblClick wird bei einigen Objekten auch nicht getriggert.
Beim Treeview fehlt zum Beispiel bei procedure TCustomTreeView.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); ein:

if Assigned(Item.OnClick) then
Item.OnClick(Item);

Peter
PS: Ich will jetzt gar nicht die VM anschmeißen um das mit XE4 zu testen, entweder leier ich meinem Chef eine aktuellere Version raus, oder ich gehe zum "Hate Driven Development" über. Das ganze hatte ich glaube ich damals schon durch, aber irgendwie verdrängt

[CHackbart]

Hallo,

ja das habe ich in der Form auch schon gemerkt. Ändere einfach die Zeile mit dem Treeview.Realign in

Delphi-Quellcode:

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

um.

[greenmile]

Bitte in QC eintragen, vielleicht haben wir Glück und A) der Sommer 2013 kommt doch noch und B) es kommt ein Bugfix.