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.

Error.PNG

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