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 Images und das Event OnGetImageIndex bzw. 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.

[Glados]

Versuch ImageIndex := X mal hier reinzupacken

Delphi-Quellcode:

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

[Aviator]

Zitat von Glados:

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

[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 von Glados:

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


Es gibt insgesamt 4 Stati:

• ikNormal Ist der normale Zustand der Node. Also weder selektiert, noch sonst etwas
• 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)
• 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
• 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

[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?