LISTBOX: Immer die ersten 10 Zeichen eines eintrags färben?!

[Keldorn]

als Anregung:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
Var Textbreite:integer;
    s:string;
begin
  //style der listbox auf ownerdrawfixed stellen!
  with control as TListBox do
    begin
      //Hintergrund
      canvas.FillRect(rect);
      //ersten Teil des strings
      s:=copy(items[index],1,10);
      canvas.font.Color:=clred;
      canvas.Font.Style:=[fsbold];
      canvas.TextOut(rect.Left+2,rect.top+2,s);
      Textbreite:=canvas.TextWidth(s);
      //zweiter Teil des strings
      s:=copy(items[index],10,length(items[index]));
      canvas.font.Color:=clWindowText;
      canvas.Font.Style:=[];
      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s);
    end;
end;