Farebny font v listbox-e – Delphi – Fórum – Programujte.com

ano , je to na nete lenze sa neako neviem dopracovat k tomu aby napr. mam listbox s 5 polozkami a ked kliknem na button1 tak mi text tretej polozky sfarbi napr na cerveno, zvysok ostane tak.

Vasede je ze sfarbi vsetky alebo roznou farbou pricom to je odzaciatku po x ako napr. tu

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;

  Rect: TRect; State: TOwnerDrawState);

var

  Mas: array[1..5] of Integer;

begin

  Mas[1]:=clRed;

  Mas[2]:=clBlue;

  Mas[3]:=clYellow;

  Mas[4]:=clAqua;

  Mas[5]:=clGreen;

  with (Control as TListBox).Canvas do

  begin

    Brush.Color:=Mas[Index+1];

    FillRect(Rect);

    TextOut(Rect.Left,Rect.Top,IntToStr(Index+1));

  end;

end;