VirtualStringTree Komponente

[Zodi]

Hi Delphianer

Ich habe eine VirtualStringTree mit 2 Columns die ich befülle.

Delphi-Quellcode:

procedure TForm1.VSTGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
begin
  NodeDataSize := SizeOf(TTreeData);
end;

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
  Data: PTreeData;
begin
  Data := VST.GetNodeData(Node);
  case Column of
    0: CellText := Data^.Column0;
    1: CellText := Data^.Column1;
    2: CellText := Data^.Column2;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Data: PTreeData;
  XNode: PVirtualNode;
  Rand: Integer;
begin

  XNode := VST.AddChild(nil);

  if VST.AbsoluteIndex(XNode) > -1 then begin
    Data := VST.GetNodeData(Xnode);
    Data^.Column0 := 'Vorname';
    Data^.Column1 := 'Nachname';
    Data^.Column2 := 'Strasse';
  end;

end;

Nun möchte ich im Column 0 mit den Vornamen noch ein Symbol aus ner ImageList setzen.
In der Normalen ListView konnte man das ja mit z.b ImageIOndex = 1 machen.
Wie muss man das genau bei der VirtualStringTree machen machen.

[Aviator]

Schau dir mal die Property

Delphi-Quellcode:

Images

und das Event

Delphi-Quellcode:

OnGetImageIndex

bzw.

Delphi-Quellcode:

OnGetImageIndexEx

an.

Alternativ kannst du auch in einem der Paint Events das Image selbst zeichnen. Dann musst du aber alles selbst machen (oder entsprechende Werte wie TextMargin setzen oder so), da der Tree bei den Events OnGetImageIndex(ex) die Breite des Images mit einrechnet und den Text entsprechend verschiebt.

[Zodi]

Ha jetzt in der Procedure GetImageIndexEx den ImageIndex eingetragen und das funktioniert und die icons werden angezeigt.

Delphi-Quellcode:

procedure TForm1.VSTGetImageIndexEx(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: TImageIndex);
begin
  ImageIndex := 1;
end;

Allerdings bekomme ich nach paar Sekunden folgende Fehlermeldung.

Anhang 48116

[Glados]

Versuch ImageIndex := X mal hier reinzupacken

Delphi-Quellcode:

if Column = 0 then
 if Kind in [ikNormal, ikSelected] then
  begin
  end;

[Aviator]

Zitat:

Zitat von Glados (Beitrag 1385841)

Versuch ImageIndex := X mal hier reinzupacken

Delphi-Quellcode:

if Column = 0 then
 if Kind in [ikNormal, ikSelected] then
  begin
  end;

Der Lösungsvorschlag ist zwar korrekt, aber du solltest dann schon schreiben weshalb er es so machen soll und was die Abfrage bewirkt. Ansonsten frägt er beim nächsten Mal wieder nach weil er die Zeilen nicht versteht :roll:

[Glados]

Zitat:

Der Lösungsvorschlag ist zwar korrekt, aber du solltest dann schon schreiben weshalb er es so machen soll und was die Abfrage bewirkt.

Muss ich passen. Ich verwende es nur und habe keinerlei Ahnung was es macht. Ich weiß nur: es funktioniert.

[Aviator]

Zitat:

Zitat von Glados (Beitrag 1385844)

Muss ich passen. Ich verwende es nur und habe keinerlei Ahnung was es macht. Ich weiß nur: es funktioniert.

Wenn ich der Aussage jetzt trauen kann, dann erklär ich das mal mit meinen Worten soweit ich es kann :gruebel: :glaskugel:


Es gibt insgesamt 4 Stati:

• Delphi-Quellcode:

  ikNormal

  Ist der normale Zustand der Node. Also weder selektiert, noch sonst etwas
• Delphi-Quellcode:

  ikSelected

  Wird dann benutzt, wenn die Node selektiert ist um darauf evtl. speziell zu reagieren. Bspw. um ein anderes Icon darzustellen wenn der Hintergrund der Node gerade die Farbe der Markierung annimt (die man übrigens mit der Property Colors ändern kann)
• Delphi-Quellcode:

  ikState

  Wird nicht wirklich oft genutzt und bezieht sich soweit ich weiß auf den Status der Node um da nocheinmal speziell auf eine andere ImageList (StateImages) zuzugreifen und den Status der Node entsprechend anzuzeigen
• Delphi-Quellcode:

  ikOverlay

  Wenn ich das jetzt richtig im Kopf habe wird das genutzt, um ein Overlay Icon über das bereits gezeichnete Image zu legen und so nochmal ein spezielleres Icon zu erhalten welches aus zwei Icons zusammengesetzt wird. Ähnlich wie bei Outlook wenn eine neue Mail ankommt und im Taskleisten Icon dann das Briefumschlagsymbol zu sehen ist

Die letzten beiden sind ohne Gewähr. Ich nutze die selbst eigentlich nie. Auch im SourceCode des Trees sind die ImageKinds nicht erklärt. Obwohl der SourceCode beim VST eigentlich die beste Hilfe ist. Overlay und State werden auch nur sehr selten im Tree selbst verwendet. ikState 9x und ikOverlay 2x. In der Regel kommt man aber mit ikNormal und ikSelected aus. Alles andere sollte man dann sowieso besser selbst malen.

[Zodi]

Hat super funktioniert danke :-D

[Zodi]

Wie benutzt man denn diese 2 Befehle wenn man ne VirtualStringTree benutzt.

Beispiel ist für ne normale ListView Komponente.

Delphi-Quellcode:

ListItem := form1.ListView1.FindCaption(0, EntryString, False, True, False);
for I := form1.ListView1.Items.Count - 1 downto 0 do

weil FindCaption und Items fehlen bei der VirtualStringTree.

[TiGü]

Hast du keine parallel geführte Liste mit deinen TTreeData-Objekten?

[TiGü]

Warum steht da Form1?
Versuchst du wieder aus einen Thread heraus auf die visuellen Komponenten zuzugreifen? Bitte lass das!
http://www.delphipraxis.net/194241-l...rtualmode.html

[Aviator]

Zitat:

Zitat von Zodi (Beitrag 1385858)

Wie benutzt man denn diese 2 Befehle wenn man ne VirtualStringTree benutzt.

Beispiel ist für ne normale ListView Komponente.

Delphi-Quellcode:

ListItem := form1.ListView1.FindCaption(0, EntryString, False, True, False);
for I := form1.ListView1.Items.Count - 1 downto 0 do

weil FindCaption und Items fehlen bei der VirtualStringTree.

FindCaption und Items gibt es deshalb nicht, weil die Komponenten die Daten eben nur virtuell vorhält und diese an die Node angeflanscht sind. Theoretisch könnte in deinem

Delphi-Quellcode:

Text[Node]

(was übrigens die Eigenschaft ist um den angezeigten Text der Node auszulesen [aber nur

Delphi-Quellcode:

ttNormal

und nicht

Delphi-Quellcode:

ttStatic

wenn ich mich richtig erinnere]) etwas ganz anderes stehen als du eigentlich in deinem DataObject drin hast. Der Node könnte theoretisch auch ein ganz anderer Text zugewiesen werden da das im

Delphi-Quellcode:

OnGetText

Event passiert.

Also entweder du baust dir eine Datenstruktur aus

Delphi-Quellcode:

TObject

(bzw. Nachfahre davon) und

Delphi-Quellcode:

TObjectList<T>

was die bessere Lösung ist, oder du musst per

Delphi-Quellcode:

vst.GetFirst

,

Delphi-Quellcode:

vst.GetNext

und

Delphi-Quellcode:

vst.GetNodeData

arbeiten und dir den entsprechenden Text aus den der Node zugewiesenen Objects/Records auslesen.

[Zodi]

Eigentlich will ich nur meine normale Rutine so umändern das si stat die normale ListView eben die VirtualStringTree befüllt.

Delphi-Quellcode:

procedure AddList;
var
  Data: PTreeData;
  XNode: PVirtualNode;
  Rand: Integer;

  ListItem: TListItem;
  p: Integer;
  Strings, StringList: TStringList;
  CurrentString: string;
  EntryString: string;
begin

    Strings := TStringList.Create;
    StringList := TStringList.Create;
    Strings.Clear;
    Stringlist.Clear ;
    Strings.BeginUpdate;
    StringList.BeginUpdate;

    Strings.Text := Data2;

    form1.ListView1.Items.BeginUpdate;
    i := 0;
  try
    for I := 0 to Strings.Count - 1 do
    begin
      CurrentString := Strings.Strings[I];
      EntryString := Split(CurrentString, '|', 1);
      ListItem := form1.ListView1.FindCaption(0, EntryString, False, True, False);
      if ListItem = nil then
      begin
        ListItem := form1.ListView1.Items.Add;
        ListItem.Caption := EntryString;
        ListItem.SubItems.Add(Split(CurrentString, '|', 2));
        ListItem.SubItems.Add(Split(CurrentString, '|', 3));
        ListItem.SubItems.Add(Split(CurrentString, '|', 4));
        ListItem.SubItems.Add(Split(CurrentString, '|', 5));
        ListItem.SubItems.Add(Split(CurrentString, '|', 6));
      end else begin
        ListItem.StateIndex := 0;
        EntryString := Split(CurrentString, '|', 2);
        if ListItem.SubItems[0] <> EntryString then
          ListItem.SubItems[0] := EntryString;

        EntryString := Split(CurrentString, '|', 4);
        if ListItem.SubItems[2] <> EntryString then
          ListItem.SubItems[2] := EntryString;
      end;

      StringList.Add(ListItem.Caption);
    end;
      application.ProcessMessages;
    for I := form1.ListView1.Items.Count - 1 downto 0 do
    begin
      ListItem := form1.ListView1.Items[I];
      if ListItem.StateIndex = 2 then
      begin
        ListItem.Delete;
        Continue;
      end;

      p := StringList.IndexOf(ListItem.Caption);
      if p = -1 then
        ListItem.StateIndex := 2;
    end;

  finally
    form1.ListView1.Items.EndUpdate;
    form1.ListView1.Refresh;
    StringList.EndUpdate;
    Strings.EndUpdate;
    StringList.Free;
    Strings.Free;
  end;

  end;

[Aviator]

Sorry hat etwas länger gedauert. Ich hoffe du bist noch am Versuchen.

Ein VirtualTreeView arbeitet etwas anders als ein ListView. Dem ListView kannst du die Elemente mit Items.Add hinzufügen. Dem VST gibst du an der Stelle (optimalerweise) den RootNodeCount bzw. ChildNodeCount. Es geht zwar auch mit vst.AddChild(), aber das ist eigentlich nicht der korrekte Weg.

Zum Vorhalten von Daten schreibe ich mir z.B. eine Klasse in der dann die Werte gespeichert werden (es geht aber auch mit einem Record). Leider habe ich bei dir jetzt keine besonder gut bezeichneten Eigenschaften gefunden. Lediglich Column0, Column1, Column2, ... (wahrscheinlich bis 5).


Ich habe da jetzt im Editor mal etwas zusammengeschrieben um die einen kleinen Anhaltspunkt zum Erstellen eines VST zu geben. Das ist natürlich jetzt nicht vollständig, aber ich hoffe es hilf dir im Ansatz schon mal weiter. Du kannst ja mal versuchen mit dem Beispiel etwas aufzubauen und dich bei Problemen dann nochmal melden.

Aber auf jeden Fall solltest du dran bleiben. Wenn du den VST einmal richtig zum Laufen gebracht hast, dann willst du mit keiner anderen Komponente mehr arbeiten die eine Listenansicht bieten soll. :thumb:


Anbei mal das Beispiel:

Delphi-Quellcode:

interface

type
  TMyData = class
  private
    FColumn0: string;
    FColumn1: string;
    FColumn2: string;
    FColumn3: string;
    FColumn4: string;
    FColumn5: string;
  public
    property Column0: string read FColumn0 write FColumn0;
    property Column1: string read FColumn1 write FColumn1;
    property Column2: string read FColumn2 write FColumn2;
    property Column3: string read FColumn3 write FColumn3;
    property Column4: string read FColumn4 write FColumn4;
    property Column5: string read FColumn5 write FColumn5;
  end;
  PMyData = ^TMyData;

  TMyDataList = TObjectList<TMyData>;  // Hier wird System.Generics.Collections in den Uses benötigt


var
  MyDataList: TMyDataList;  // Liste um alle Elemente vorzuhalten und zu speichern (Sollte natürlich im Private Abschnitt der Form Klasse definiert sein)

implementation

procedure TForm1.CreateData;
var
  Data: TMyData;
  s: TStringDynArray;
  i: Integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    FillWithData(sl);  // Deine StringListe mit Daten füllen. In deinem Beispiel wird ein Text zugewiesen. Das musst du dann eben übernehmen
    for i := 0 to sl.Count - 1 do begin
      Data := TMyData.Create;
      s := Split(sl[i], '|');
      Data.Column0 := s[0];
      Data.Column1 := s[1];
      Data.Column2 := s[2];
      Data.Column3 := s[3];
      Data.Column4 := s[4];
      Data.Column5 := s[5];
      MyDataList.Add(Data);  // Daten in die Liste aufnehemen
    end;

    vst.RootNodeCount := MyDataList.Count;  // RootNodeCount des Trees setzen
  finally
    sl.Free;
  end;
end;


// Achtung: Procedure Header aus dem Kopf geschrieben. Es kann sein, dass hier etwas fehlt
procedure TForm1.vstInitNode(Sender: TBaseVirtualTree; Node: PVirtualNode; var InitialStates: TVTInitialStates);
var
  NodeData: PMyData;
begin
  NodeData := Sender.GetNodeData(Node);
  // Hier wird das Element/Objekt aus der Liste mir der Node verknüpft
  // Man könnte der Node auch nur den Index des Elements zuweisen der sogar immer nur die Daten
  // an dem speziellen Index der Node aus der Liste laden. Dann muss man nur aufpassen, wenn man
  // die Liste mal sortieren will
  NodeData^ := MyDataList[Node^.Index];  
end;

procedure TForm1.vstGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var CellText: string);
var
  NodeData: PMyData;
begin
  NodeData := Sender.GetNodeData(Node);

  case Column of
    0: CellText := NodeData^.Column0;
    1: CellText := NodeData^.Column1;
    2: CellText := NodeData^.Column2;
    3: CellText := NodeData^.Column3;
    4: CellText := NodeData^.Column4;
    5: CellText := NodeData^.Column5;
  end;  
end;

[generic]

Das mit dem Objekten im VST geht etwas einfacher - funktioniert aber auch so wie du das machst.

Falls du Inspiration brauchst, hier der Beitrag vom 2. DP Stammtisch:
http://www.delphipraxis.net/712774-post4.html

[Aviator]

In deinem Beispiel benutzt du aber die AddChild() Methode die ich aber nicht verwenden will und die auch lt. Kommentar nicht verwendet werden sollte. Oder habe ich etwas übersehen?