ListView und ProgressBar

[mumu]

kennt jemand eine gute und kostenlose ListView-Komponente, die in jeder Zeile eine Art ProgressBar beinhaltet? Also sowas wie das öfter bei Downloadprogrammen zu sehen ist.

[Mirilin]

:hi:

Eine Suche Progressbar ListView bringt Dir ev keine Komponente, aber zeigt Dir, wie Du es selber machen kannst :)

mfg Tobias

[mumu]

mir wärs ehrlich gesagt lieber ne fertige komponente einzubinden. bin zu faul das selbst zu zeichnen! *g* jemand nen guten vorschlag?

[Alexander]

Schau mal hier

[Domo Sokrat]

Ich hätt' da auch noch was:

GridView von Berg Software :thumb: und hier die Featurelist

Die gibt's für D6 und D7 und darf für nicht kommerzielle Zwecke frei verwendet werden und beherrscht das mit der Fortwschitts- bzw. Prozent-Anzeige.

[mumu]

könnte mir jemand vielleicht erklären, wie ich eine progressbar in die "Virtual Treeview"-Komponente reinbring.

irgendwie haut das nicht hin?!

[mumu]

also irgendwie schaff ichs nichtmal ne Node mit einem bestimmten Text hinzuzufügen.

ich habe mein record:

Delphi-Quellcode:

type
  PTreeData = ^TTreeData;
  TTreeData = record
    Caption : string;
    SubItem1: string;
  end;

dann setze ich die NodeDataSize

Delphi-Quellcode:

VST.NodeDataSize := SizeOf(TTreeData);

und füge den node hinzu mit dem gewünschten text.

Delphi-Quellcode:

var
  TreeData: PTreeData;
  Node: PVirtualNode;

begin
  Node := VST.AddChild(nil);
  TreeData := VST.GetNodeData(Node);
  TreeData.Caption := 'Test';
  TreeData.SubItem1 := 'Test2';
end;

Das hinzufügen klappt. nur leider habe ich jetzt in meinen beiden Spalten den Text "Node" stehen, obwohl ich ja 'Test' und 'Test2' zugewiesen hab. Wenn ich jetzt im onclick folgendes einfüg

Delphi-Quellcode:

Node:=VST.FocusedNode;
Data:=VST.GetNodeData(Node);
Showmessage(Data.Caption);

dann zeigt er mir in der MessageBox 'Test' an.


Woran liegt das, dass 'Test' nicht in der Virtual String Tree angezeigt wird????

[Manne]

es gibt ne procedure OnGetText, die sieht dann z.B. so aus:

Delphi-Quellcode:

procedure TForm1.VirtualStringTree2GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var data : PIcoFileItem;
begin
 data := VirtualStringTree2.GetNodeData(Node);
 case Column of
  0: CellText := data.Caption;
  1: CellText := SubItem1;
 end;
end;

[mumu]

ahhhh danke!

war ja klar, dass man irgendwie noch die daten für die ausgabe aufbereiten muss.

thx