Listvievde border 0 yapma şansımız var mı? görselde kötü bir durum oluşuyor...
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if (Item.Index mod 2) = 0 then
begin
Sender.Canvas.Brush.Color := RGB(248, 248, 255);
end
else
begin
Sender.Canvas.Brush.Color := RGB(255, 255, 255);
end;
if Item.Selected then
begin
Sender.Canvas.Font.Color := RGB(238, 0, 0);
end;
if Item.SubItems[3] = 'xxxx' then
begin
Sender.Canvas.Brush.Color := clMoneyGreen;
end;
end;