Komponente TStringTree (=TVirtualStringTree komfortabel)

[Lemmy1]

Hi,

ich wollte gerne einmal eine Komponente vorstellen, die in den letzten Monaten als "Abfallprodukt" entstanden ist. Ziel des Ganzen war, die Komponente TVirtualStringTree komfortabler zu machen.

TVirtualStringTree ist eine Tree-List-Komponente, die extrem leistungsfähig und schnell ist. Nachteil allerdings ist (meiner Meinung nach), dass die virtuelle Programmierung leider total ätzend ist, da man immer so viel housekeeping selbst machen muss. Da man aber in den seltensten Fällen einen Tree mit Millionen Einträgen hat, wäre doch meistens eine OOP Komponente schöner. Daher habe ich diese Adapterkomponente geschrieben, die nach aussen eine schönes Objektmodell bietet und nach innen die Virtual Tree View benutzt.

Ich führ im Folgenden ein paar Beispiele vor, wie sie benutzt wird. Ich möchte aber anmerken, dass die Komponente NICHT fertig ist sondern genau die Funktionen spendiert bekommen hat, die ich gebraucht hab. Weitere Funktionenalitäten hinzu zu fügen ist allerdings meist trivial, da man nur die entsprechenden Funktionen des inneren Trees publizieren muss.

Anlegen von Spalten (habe noch keinen Designer geschrieben, aber das manuelle Anlegen hat eh den Vorteil, dass man später Objektinstanzen weiter verwenden kann):

Delphi-Quellcode:

FTreeColumns.ID := StringTree.Columns.Add('ID', 80);
FTreeColumns.Name := StringTree.Columns.Add('Name', 120);
FTreeColumns.Rand := StringTree.Columns.Add('Random', 100);

(FTreeColumns bezeichnet hier eine Membervariable des Form, die alle Spalten in einem Record hält)

Anlegen von Wurzelknoten:

Delphi-Quellcode:

var Node: TStringTreeNode;
...
Node := StringTree.Nodes.Add;
Node[FTreeColumns.ID] := IntToStr(I);
Node[FTreeColumns.Name] := 'Knoten mit Nummer ' + IntToStr(I);
Node[FTreeColumns.Rand] := IntToStr(Random(I));

Anlegen von Unterknoten:

Delphi-Quellcode:

var SubNode: TStringTreeNode;
...
SubNode := Node.Nodes.Add;
SubNode[FTreeColumns.ID] := IntToStr(J);

Ermitteln der markierten Knoten der ersten Ebene:

Delphi-Quellcode:

var Node1: TStringTreeNode;
...
Selected := '';
for Node1 in StringTree.Nodes do
begin
  if Node1.Selected then
  begin
    Selected := Selected + Node1[FTreeColumns.ID] + ', ';
  end;
end;

Ich wollte das hier einmal posten, da ich gerne wissen würde, ob es einen Bedarf an einer solchen Open-Source Komponente gibt (oder bin ich der einzige, der den Virtual Tree unkomfortabel findet ) Wenn der Bedarf da ist, dann könnte man ein SourceForge-Projekt dazu einrichten und das dann gemeinsam weiterentwickeln.

Angehängt habe ich den Quellcode der Komponente (einfach in einem Package registrieren) sowie ein Demoprojekt, das einige der Features zeigt.

Achja: Das ganze ist für Delphi 2006 native entwickelt und hat ausser dem Virtual Tree keine weiteren Abhängigkeiten. Ich verwende ausschließlich Unicodestrings, von daher sollte Delphi 2008 einen kleinen Performancesprung bringen (wenn es denn einmal kommt).

Freue mich auf Feedback.

[uligerhardt]

Zitat von Lemmy1:

Ich wollte das hier einmal posten, da ich gerne wissen würde, ob es einen Bedarf an einer solchen Open-Source Komponente gibt (oder bin ich der einzige, der den Virtual Tree unkomfortabel findet )

Den Wunsch nach einer einfacher zu bedienenden VT-Variante hatte ich auch schon gelegentlich. Ich war bloß immer zu faul, endlich mal etwas Generisches zu stricken.

[Nuclear-Ping]

Keine Ahnung, arbeite schon seit Jahren mit dem VST und fand da noch nie was umständliches oder schweres dran, wenn man das Konzept verinnerlicht hat. Kann dem daher auf den ersten Blick erstmal nichts abgewinnen. Mal so von der Contra-Seite ...

[uligerhardt]

Zitat von Nuclear-Ping:

Keine Ahnung, arbeite schon seit Jahren mit dem VST und fand da noch nie was umständliches oder schweres dran, wenn man das Konzept verinnerlicht hat. Kann dem daher auf den ersten Blick erstmal nichts abgewinnen. Mal so von der Contra-Seite ...

Manchmal hat man (habe ich ) halt Fälle, wo man den VST z.B. wegen seiner Konfigurierbarkeit braucht, aber trotzdem völlig "unvirtuell" 17 Knoten mit je 3 Strings anzeigen will. Da dann immer mit TNodeData, OnGetText und OnInitNode rumzuhantieren ist schon mit Kanonen auf Spatzen geschossen.

[generic]

Ich denke das Stammtischvideo zeigt sehr gut, dass der VST nicht kompliziert ist.
Vor allem wenn man dann nur noch mit Objekten arbeitet.
Diese liegen in den Anwendungen eh vor.

[Lemmy1]

Zitat von generic:

Ich denke das Stammtischvideo zeigt sehr gut, dass der VST nicht kompliziert ist.

Finde halt, dass da nicht gerade der sauberste Code bei rauskommt. Aber ist wohl Geschmackssache

[toms]

Die Idee der Vereinfachung finde ich gut
Nur schade, dass die Komponente unter älteren Delphi Versionen nicht installierbar ist.
Könntest du sie nicht mit $IFDEF zu älteren Versionen kompatibel machen?

[Lemmy1]

Hrm ich hab noch Delphi 2005 (würg) und Delphi 6 rumliegen....aber irgendwie fehlt mir dazu ehrlich gesagt etwas die Motivation

Aber vielleicht komm ich ja mal dazu

[toms]

Zitat von Lemmy1:

Aber vielleicht komm ich ja mal dazu

Wäre super!