ListView - Problem beim Spaltenfärben

[e-gon]

Guten Morgen!

Entweder nutze ich die falschen Suchbegriffe, dieses Phänomen tritt nur bei mir auf (mit D6 und D2009 unter Windows 7) oder es hat noch niemand entdeckt. Eine Antwort hätte ich aber dennoch gerne. Weiß wirklich niemand etwas dazu?

Damit das Nachvollziehen etwas einfacher geht, habe ich den Code erweitert. Diesen einfach in eine leere Unit kopieren, FormCreate und FormDestroy verbinden und nach der Ausführung auf die Spalten klicken.

Delphi-Quellcode:

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem;
      State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem;
      SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

var
  ListView1SortCol: Integer;
  ListView1: TListView;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var  ListItem: TListItem;
     ListColumn: TListColumn;
     x,y: Integer;
begin
  ListView1:= TListView.Create(Self);
  ListView1.Parent:= Form1;
  ListView1.Top:= 8;
  ListView1.Left:= 8;
  ListView1.Width:= 400;
  ListView1.OnColumnClick:= ListView1ColumnClick;
  ListView1.OnCustomDrawItem:= ListView1CustomDrawItem;
  ListView1.OnCustomDrawSubItem:= ListView1CustomDrawSubItem;

  ListView1.ViewStyle:= vsReport;
  for x:= 1 to 6 do begin
    ListColumn:= ListView1.Columns.Add;
    ListColumn.Caption:= IntToStr(x);
  end;

  for x:= 1 to 7 do begin
    ListItem:= ListView1.Items.Add;
    ListItem.Caption:= 'Zeile '+IntToStr(x);
    for y:= 1 to 6 do
      ListItem.SubItems.Add('Sub '+IntToStr(x)+'/'+IntToStr(y));
  end;
  ListView1SortCol:= -1;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ListView1.Free;
end;

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

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem;
  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if ListView1SortCol=0 then  ListView1.Canvas.Brush.Color:= $E4FFFF
  else  ListView1.Canvas.Brush.Color:= clWindow;   // <- hier tritt das Problem auf, obwohl Color den richtigen Wert enthält
//  else  ListView1.Canvas.Brush.Color:= clWhite;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem;
  SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if ListView1SortCol=SubItem then  ListView1.Canvas.Brush.Color:= $E4FFFF
  else  ListView1.Canvas.Brush.Color:= clWindow;   // <- hier tritt das Problem auf, obwohl Color den richtigen Wert enthält
//  else  ListView1.Canvas.Brush.Color:= clWhite;   // <- hier tritt das Problem auf, obwohl Color den richtigen Wert enthält
end;

end.

Tritt das Problem bei Euch auch auf? Und falls ja, weiß jemand woran das liegt?

Gruß
e-gon