AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

VirtualStringTree Komponente

Ein Thema von Zodi · begonnen am 9. Nov 2017 · letzter Beitrag vom 11. Nov 2017
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von Zodi
Zodi

Registriert seit: 19. Jul 2017
Ort: Berlin
45 Beiträge
 
Delphi XE7 Ultimate
 
#1

VirtualStringTree Komponente

  Alt 9. Nov 2017, 22:21
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.
Pascal
  Mit Zitat antworten Zitat
Aviator

Registriert seit: 3. Jun 2010
1.610 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: VirtualStringTree Komponente

  Alt 9. Nov 2017, 22:44
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.
  Mit Zitat antworten Zitat
Benutzerbild von Zodi
Zodi

Registriert seit: 19. Jul 2017
Ort: Berlin
45 Beiträge
 
Delphi XE7 Ultimate
 
#3

AW: VirtualStringTree Komponente

  Alt 9. Nov 2017, 23:36
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
Pascal
  Mit Zitat antworten Zitat
Glados
(Gast)

n/a Beiträge
 
#4

AW: VirtualStringTree Komponente

  Alt 9. Nov 2017, 23:37
Versuch ImageIndex := X mal hier reinzupacken
Delphi-Quellcode:
if Column = 0 then
 if Kind in [ikNormal, ikSelected] then
  begin
  end;
  Mit Zitat antworten Zitat
Aviator

Registriert seit: 3. Jun 2010
1.610 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: VirtualStringTree Komponente

  Alt 9. Nov 2017, 23:57
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
  Mit Zitat antworten Zitat
Glados
(Gast)

n/a Beiträge
 
#6

AW: VirtualStringTree Komponente

  Alt 10. Nov 2017, 00:02
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.
  Mit Zitat antworten Zitat
Aviator

Registriert seit: 3. Jun 2010
1.610 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: VirtualStringTree Komponente

  Alt 10. Nov 2017, 00:37
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.
  Mit Zitat antworten Zitat
Benutzerbild von Zodi
Zodi

Registriert seit: 19. Jul 2017
Ort: Berlin
45 Beiträge
 
Delphi XE7 Ultimate
 
#8

AW: VirtualStringTree Komponente

  Alt 10. Nov 2017, 01:08
Hat super funktioniert danke
Pascal
  Mit Zitat antworten Zitat
Benutzerbild von Zodi
Zodi

Registriert seit: 19. Jul 2017
Ort: Berlin
45 Beiträge
 
Delphi XE7 Ultimate
 
#9

AW: VirtualStringTree Komponente

  Alt 10. Nov 2017, 10:02
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.
Pascal
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: VirtualStringTree Komponente

  Alt 10. Nov 2017, 10:26
Hast du keine parallel geführte Liste mit deinen TTreeData-Objekten?
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:41 Uhr.
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