Добрый день, уваж. гуру!!!
Нужно прорисовать в TListView в одной из колонок прямоугольник.
В TListView 3 колонки.
написал такой код:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
Rect : TRect;
begin
if SubItem = 1 then
begin
Rect.Left := Item.Left + 100;
Rect.Top := Item.Top;
Rect.Right := Rect.Left + 100;
Rect.Bottom := Rect.Top + 16;
Sender.Canvas.FillRect(Rect);
Sender.Canvas.Rectangle(Rect.Left,Rect.Top,Rect.Right-5,rect.Bottom);
DefaultDraw := false;
end;
end;



Проблема в том, что в 3 колонке текст почему-то прорисовывается жирным стилем.
Как с этим бороться?

И