Создание цветных строк в ListBox
Создание цветных строк в ListBox
Создание цветных строк в ListBox procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var j:integer; begin with (Control as TListBox).Canvas do begin //далее можно задать наше условие для цвета отдельных строк for j:=0 to st.Count-1 do if massiv[Index]=st[j] then Font.Color := clRed; //здесь любой ваш цвет FillRect(Rect); TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]); end; end;
