Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Fussball-Robby,
19. Apr 2008
procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
with Sender.Canvas do
begin
Brush.Color := clWhite;
Pen.Color := clBlack;
if Item.Selected then
begin
Brush.Color := clLime;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Fussball-Robby,
19. Apr 2008
So sollte es gehen:procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
with Sender.Canvas do
begin
Brush.Color := clWhite;
Pen.Color := clBlack;
if Item.Selected then
begin
Brush.Color := clLime;