Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   VirtualStringTree Komponente (https://www.delphipraxis.net/194328-virtualstringtree-komponente.html)

Zodi 9. Nov 2017 22:21

VirtualStringTree Komponente
 
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 9. Nov 2017 22:44

AW: VirtualStringTree Komponente
 
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 9. Nov 2017 23:36

AW: VirtualStringTree Komponente
 
Liste der Anhänge anzeigen (Anzahl: 1)
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 9. Nov 2017 23:37

AW: VirtualStringTree Komponente
 
Versuch ImageIndex := X mal hier reinzupacken
Delphi-Quellcode:
if Column = 0 then
 if Kind in [ikNormal, ikSelected] then
  begin
  end;

Aviator 9. Nov 2017 23:57

AW: VirtualStringTree Komponente
 
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 10. Nov 2017 00:02

AW: VirtualStringTree Komponente
 
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 10. Nov 2017 00:37

AW: VirtualStringTree Komponente
 
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 10. Nov 2017 01:08

AW: VirtualStringTree Komponente
 
Hat super funktioniert danke :-D

Zodi 10. Nov 2017 10:02

AW: VirtualStringTree Komponente
 
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ü 10. Nov 2017 10:26

AW: VirtualStringTree Komponente
 
Hast du keine parallel geführte Liste mit deinen TTreeData-Objekten?


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:02 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz