Soo..hab dich falsch verstanden, jedoch weiß ich glaube ich jetzt was du genau meintest..
Hab mal den Code geschrieben:
Delphi-Quellcode:
procedure TForm1.ListView1AdvancedCustomDraw(Sender: TCustomListView;
const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
var rect : Trect;
begin
//Anpassen
rect.Left := Listview1.Column[0].Width;
rect.Top := ListView1.Top;
//Färbt die 2 Spalte
Sender.Canvas.Brush.Color := clWhite;
Sender.Canvas.Brush.Style := bsSolid;
Sender.Canvas.Pen.Style := psClear;
Sender.Canvas.Pen.Color := clBlack;
Sender.Canvas.FillRect(Rect);
end;
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
(Sender As TListView).Canvas.Brush.Color := clWhite;
(Sender As TListView).Canvas.Font.Color := clBlack;
end;
Du musst halt noch die Sachen an dein Projekt anpassen, wichtig ist die ListView am anfang auf die Farbe zu setzen die du in der ersten Spalte haben möchtest...
lg