Hallo,

Ich suche zu einer Kuriosität, evtl. auch einem VCL-Bug, einen Workaround.

Die Situation: TListView mit ViewStyle=vsReport, GroupView=true, und dem Wunsch, zu sortieren. Ist nun eigentlich nicht anspruchsvoll, nur daß der folgende Code nur unter Windows 7, nicht aber unter Windows XP, sortiert. Schalte ich dagegen GroupVIew aus, wird auch unter XP sortiert!

Das ganze mit Delphi XE. Unter Delphi 2006 habe ich noch meinen eigenen Code gehabt, um GroupViews überhaupt hinzubekommen - da funktionierte es, meine ich mich zu erinnern, noch, weswegen ich halt die VCL statt eine Unzulänglichkeit von XP in Verdacht habe (XP sortiert im Explorer mit GroupView schließlich auch).

In's QC habe ich es bereits gestellt, aber falls jemand hier einen Workaround kennt, wäre ich dafür sehr dankbar

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   ComCtrls,
   StdCtrls;

type
   TForm1 = class(TForm)
      ListView1: TListView;
      procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
      procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
      procedure FormCreate(Sender: TObject);
   private
      FSortColumn1: Integer;
   public
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   ListView1.ViewStyle := vsReport;
   ListView1.SortType := stData;
   ListView1.GroupView := true;
   ListView1.Groups.Add.Header := 'Group1';
   ListView1.Columns.Add.Caption := 'Col1';
   ListView1.Columns.Add.Caption := 'Col2';
   with ListView1.Items.Add do begin
      Caption := '1';
      SubItems.Add('9');
      GroupID := 0;
   end;
   with ListView1.Items.Add do begin
      Caption := '2';
      SubItems.Add('8');
      GroupID := 0;
   end;
   with ListView1.Items.Add do begin
      Caption := '3';
      SubItems.Add('7');
      GroupID := 0;
   end;
end;

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
   FSortColumn1 := Column.Index;
   ListView1.AlphaSort;
end;

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
begin
   case FSortColumn1 of
      0: Compare := AnsiCompareText(Item1.Caption, Item2.Caption);
      1: Compare := AnsiCompareText(Item1.SubItems[0], Item2.SubItems[0]);
   end;
end;

end.

Ich meine mich erinnern zu können, dass ich irgendwas mal gelesen habe, dass TListview das GroupView erst ab Windows Vista kann. Denn ich hatte mal unter einem Programm für Windows XP sogar eine eigene Procedure, die mir die ListView mit Gruppen erst angezeigt hat. So zu Zeiten von Delphi 2006 & 2007.

Aber GroupView an sich funktioniert ja, nur das Sortieren nicht

Und wie ich schon schrieb - mit Delphi 2006, das noch keine GroupView konnte, wo ich dann mit direktem Aufruf der API-Funktionen bzw. zwei class helpern diese nachgerüstet hatte, lief es ja.

In der Doku zu TListView steht tatsächlich (zumindest dachte ich das, hier finde ich es gerade nicht), daß, wenn die Items in unterschiedlichen Workareas liegen, das sortieren unter XP nicht funktioniert. Aber Workareas unterscheiden sich doch von Groupviews (und es geht ja um das Sortieren innerhalb der Gruppen, nicht listenübergreifend)?