Hallo Dominik,
in deinem Fall sollte das helfen:
Delphi-Quellcode:
procedure TDemoForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with Sender.Canvas.Font do
Style := Style + [fsBold];
end;
procedure TDemoForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
with Sender.Canvas.Font do
Style := Style - [fsBold];
end;
Grüße vom marabu