Listbox mit Value

[x000x]

Moin moin,

setze Style der ListBox auf OwnerDraw und dann im OnDrawItem die Zeilen

Delphi-Quellcode:

   with Control as TListBox do begin
      if odSelected in State then
         Canvas.Brush.Color := clHighlight;
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left+2, Rect.Top+2, IntToStr(Index+1)+ '. ' + Items[Index]);
   end;