TListView sortieren - mit GroupView - unter XP

[CCRDude]

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

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.