VirtualStringTree Komponente

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

[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

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

Zitat von 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.

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 Text[Node] (was übrigens die Eigenschaft ist um den angezeigten Text der Node auszulesen [aber nur ttNormal und nicht 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 OnGetText Event passiert.

Also entweder du baust dir eine Datenstruktur aus TObject (bzw. Nachfahre davon) und TObjectList<T> was die bessere Lösung ist, oder du musst per vst.GetFirst , vst.GetNext und vst.GetNodeData arbeiten und dir den entsprechenden Text aus den der Node zugewiesenen Objects/Records auslesen.