Sortierung

[schitho]

Hi,

verwende ShellListView mit vsReport. Dadurch werden neben dem Dateinamen auch noch Größe, Typ, etc,) angezeigt.

Wenn man auf den Header klickt passiert gar nix.

Im Explorer von Windows, wird bei einem Klick auf den Header die jeweilige Spalte sortiert. Dies würde ich gerne auch mit ShellListView erreichen. 8)

Es gibt zwar die Eigenschaft Sorted, doch dadurch kann ich nur bestimmen, ob nach der ersten Spalte sortiert werden soll.

Wie kann ich nun erreichen, dass durch einen Klick am Header die jeweilige Spalte auf- bzw. absteigend sortiert wird.

Gruß

Thomas

[Hansa]

Hast Du mal doppelt gekickt auf den Header ?

[schitho]

Zitat von Hansa:

Hast Du mal doppelt gekickt auf den Header ?

Hab's gerade ausprobiert. Ändert aber nix daran.

Thomas

[Hansa]

Tja,

dann mußt Du, so wie immer schon näher erläutern, was Du vorhast.

Gruß
Hansa

[Christian Seehase]

Moin Thomas,

ich vermute mal, dass der ShellListView vom CustomListView abgeleitet ist, und über eine Methode CustomSort verfügt.
Sollte das der Fall sein, dann könntest Du es hierüber einbauen.
(zumindest in D5 ist das Beispiel in der Hilfe einigermassen brauchbar)

[schitho]

Zitat:

dann mußt Du, so wie immer schon näher erläutern, was Du vorhast.

Ich dachte, dass hätte ich eh schon gemacht.

Na gut. Versuch ich es eben nochmals:

Also ich verwende in meinem Programm ShellListview, um alle Dateien eines Verzeichnisses anzuzeigen. Dabei wird neben dem Dateinamen (1.Spalte), die Dateigröße (2.Spalte), der Dateityp (3.Spalte) und das Datum der letzten Änderung (4.Spalte) angezeigt. Also genaus, wie im Windows Exlorer in der Ansicht Details.

Nun gibt es ganz oben so einen grauen Balken (den Header), in dem sich auch die Spaltenbeschriftung befindet (Dateiname, Größe, Typ und Geändert am).

Wenn man nun auf Header von Dateiname klickt, soll die Liste nach den Dateinamen (alphabetisch) sortiert werden. War sie vorher aufsteigen sortiert, dann soll sie nach einem Klick absteigend sortiert werden und umgekehrt.

Wenn man nun auf Header von Größe klickt, soll sich Liste nach der Dateigröße der einzelnen Dateien sortiert werden. War sie vorher aufsteigen sortiert, dann soll sie nach einem Klick absteigend sortiert werden und umgekehrt.

etc.

Jetzt alles klar??

Und, wie lös ich dieses Problem. Momentan tut sich beim klicken nämlich gar nix

Gruß
Thomas

[Hansa]

Hi,

So ungefähr meinte ich das ja. Da fällt mir noch ein : Ist das nicht TreeView ??

Gruß
Hansa

[schitho]

Zitat:

ich vermute mal, dass der ShellListView vom CustomListView abgeleitet ist, und über eine Methode CustomSort verfügt.

So düfte es sein. Hab den Code eingebaut. Allerdings funktioniert es nicht. Was ist falsch daran???

Code:

function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
  Result := -CompareText(Item1.Caption,Item2.Caption);
end;


procedure TFormShredExplor.ShellListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  ShellListView1.CustomSort(@CustomSortProc, 0);
  ShellListView1.Refresh;
end;

Gruß
Thomas

[Luckie]

Und jetzt die eine Millionen Euro Frage: Was geht nicht?

[harrybo]

Hi schitho,

TShellListView kannst Du ersetzen durch die kostenlose Komponente "Virtual TreeView", zu finden auf der Site von Mike Lischke unter http://www.delphi-gems.com/VirtualTreeview/VT.php. Zugegeben, die Installation ist trotz ausreichender Dokumentation etwas umständlich, dafür wirst Du belohnt mit einer Komponente, deren Properties-Liste etwa dreimal so lang ist. Sortieren kann die Komponente ohne zusätzliche Programmierung, außerdem gibt es hier neben vsReport auch die Miniaturansicht und einiges mehr. Angenehmer Nebeneffekt: die Komponente hat eine deutlich höhere Performance als TShellListView.
gruß, harrybo