ListView bestimmten Eintrag Schriftart ändern

[shmia]

Na gut, dann muss du eben das Property Data benützen.
Das ist aber nicht so angenehm, wie das Property Checked zu benützen.

Delphi-Quellcode:

procedure Tform.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
  if integer(Item.Data) = 99 then 
    Sender.Canvas.Font.Style := [fsBold] 
  else 
    Sender.Canvas.Font.Style := []; 
end;

Delphi-Quellcode:

procedure Txxx.Button4711Click();
var
  item : TListItem;
begin
  item := ListView1.Selected;
  if Assigned(item) then
  begin
     if integer(item.Data) = 99 then
        item.Data := nil
     else
        item.Data := Pointer(99);
  end;

Alternativ könntest du auch das Property StateIndex benützen.