назначить отдельной строке Style шрифта или определенный Size.
Перерыл весь инет - готовые примеры не работают.
Lazarus 1.6.4
Следующий пример не пашет от слова "совсем", зато Color срабатывает
- Код: Выделить всё
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.Index mod 2 = 0 then
Sender.Canvas.Font.Style := [fsBold]
else
Sender.Canvas.Font.Style := [];
end;