Moin !
Problem gelöst
Wenn der Berg nicht zu mir will muss ich zum Berg oder wie war das noch
Also, man setze den Font der ListBox auf Bold ...
Und dann nur das hier:
Delphi-Quellcode:
procedure TDemoForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
with Sender.Canvas.Font do
Style := Style - [fsBold];
end;
Fertsch
Keep on
