Цветные строки в листбоксе, нестандарт

[PCSpeaker]

Тут такое дело. Хочу чтобы строки выделялись разными цветами. Нашел в инете вот такой вот способ.

procedure TTest.ListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do
  begin
    case Index of
      0:
        begin
          Font.Color := clBlue;
          Brush.Color := clYellow;
        end;
      1:
        begin
          Font.Color := clRed;
          Brush.Color := clLime;
        end;
      2:
        begin
          Font.Color := clGreen;
          Brush.Color := clFuchsia;
        end;
    end;
    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
  end;
end;

Все бы ничего, только я хочу сделать, его бесконечным. Строки добавляются программно. Я хотел сделать переменную и поставить ее на место 0: 1: 2: чтобы номер строки с добавлением строк сам увеличивался и подставлялся в эту процедуру. Так проблема оказалась в том, что можно писать на это место только константы. Как быть?

[Квэнди]

А теперь по русски алгоритм, который необходимо реализовать с примером кода )

[PCSpeaker]

Ок =)
Вобщем конечный итог который я хочу получить (вобщем-то какой способ мне все-равно) это - пишешь
dobavitstorku('текст','цвет текста,'фон текста');
и он добавляет.
Для этого у меня есть процедура.

procedure dobavitstroku(txt:string; color:string; brush:string);
begin
event.color:=color;
event.brush:=brush;
Mainform.List.AddItem(txt,events);
end;

где event.color и event.brush глобальные переменные типа string.
так же у меня есть еще вот такая процедура

procedure TMainform.ListDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with (Control as TListBox).Canvas do
    begin
     case index of
        0:
        begin
          if event.color='red' then
          begin
          Font.Color :=clred;
          Brush.Color :=clred;
          end;
            if event.color='blue' then
            begin
            Font.Color :=clblue;
            Brush.Color :=clblue;
            end;
        end;
      1:
      begin
           begin
          if event.color='red' then
          begin
          Font.Color :=clred;
          Brush.Color :=clred;
          end;
            if event.color='blue' then
            begin
            Font.Color :=clblue;
            Brush.Color :=clblue;
            end;
      end;
      end;
      end;
      FillRect(Rect);
      TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;

Сделанная из того примера что написан выше. Ее проблема в том, что она работает на 1,2,3 и т.д (в зависимости от того сколько укажу 0: 1: и т.д.) строки, а мне хотелось, чтобы она была универсальная. Сколько строк не добавляй всегда будет работать. Я хотел просто сделать переменную которая будет увеличиваться на 1 при добавлении каждой строки и менять номер в кейсе. Но в кейсе можно писать только константы, а переменные никак...

[Virtson]

> if event.color='red' then
так не надо делать.

нужно завести палитру (массив цветов)
Index из Case подставлять сразу как индекс массива.
Case тоже не нуженю

[PCSpeaker]

нужно завести палитру (массив цветов)

Да я думал об этом, но рук не хватило, чтобы это сделать.
Я пробовал сделать что-то вроде cvet:tcolor; Буду очень признателен, если бы вы рассказали поподробнее.

Index из Case подставлять сразу как индекс массива.

Какого именно массива? массива цветов? если да, то я не очень понял задумки.

Case тоже не нужен

А вообще можно как-то присваивать цвета конкретным строкам, к примеру каким-нибудь подобным образом как list.index[5].font.color:=clred;

Извините, что возможно задаю глупые вопросы, просто прогал раньше только на паскале, дельфи еще знаю плохо.

[PCSpeaker]

Все мне помогли на другом форуме, тема больше не актуальна

[zetrix]

мда... Вот так..
А решение/подсказку можешь выложить?

[PCSpeaker]

Что-нить на подобие этого (не проверяю, пишу вслепую):

Код: TListColor = class
public
FontColor: TColor;
BGColor: TColor;
constructor Create(AFontColor, ABGColor: TColor);
end;

constructor TListColor.Create(AFontColor, ABGColor: TColor);
begin
inherited Create;
FontColor := AFontColor;
BGColor := ABGColor;
end;


Код: procedure dobavitstroku(txt: string; FontColor, BGColor: TColor);
begin
Mainform.List.AddItem(txt, TListColor.Create(FontColor, BGColor));
end;

Код: procedure TMainform.ListDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas,
(Control as TListBox).Items.Objects[Index] as TListColor do
begin
Font.Color := FontColor;
Brush.Color := BGColor;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;
end;

(с) FreeLander

[AVer]

А можно не особо парясь сделать так:

Font.Color := Random(17);
Brush.Color := Random(17);

[PCSpeaker]

И что это даст? если нужно чтобы каждая строчка была определенного цвета? тем более так будет меняться цвет листа целиком, а не конкретной строчки.