Einzelne Wörter in TListBox fett zeichnen

[Amateurprofi]

Indem du den Text der gerade zu zeichnenden Zeile zerlegst und separat ausgibst.

Nehmen wir an, alle Ziffern sollen Fett geschrieben werden.

In etwa würde ich mir das dann (ganz primitiv) so vorstellen:

Delphi-Quellcode:

var i:integer; s:string;
begin
   with TListBox(Sender), Canvas, Font do begin
      PenPos:=Rect.TopLeft;
      s:=Items[Index];
      for i:=1 to Length(s) do begin
         if s[i] in ['0'..'9'] then Style:=[fsBold] else Style:=[];
         TextOut(PenPos.X,PenPos.Y,s[i]);
      end;
   end;
end;