Радужный ListBox

[Азазель]

Пожалуйста, не могли бы вы помочь со следующим:
Недавно начал разрабатывать RPG-шку типа Nevervinter Nights, там
есть ListBox, куда записываетсь всё происходящее. И мне надо, чтобы отдельные слова были разного цвета; Так вот, как это сделать?

P.S: Пожалийста!

[_SERGEYX_]

Уважаемый, вы попали не по адресу... Здесь люди серьезные проблемы решают, а заниматься RPG-шками как-то времени нету.

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
 begin
   with Control as TListBox do
   begin
     Canvas.FillRect(Rect);
     Canvas.Font.Color := TColor(Items.Objects[Index]);
     Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ListBox1.Items.AddObject('Red Item', Pointer(clRed));
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   ListBox1.Items.AddObject('Green Item', Pointer(clGreen));
 end;

Свойство ListBox1.Style нужно установить в lbOwnerDrawFixed;

[Азазель]

Уважаемый, вы попали не по адресу... Здесь люди серьезные проблемы решают, а заниматься RPG-шками как-то времени нету.

RPG - это для предистории. Главное - ListBox.

А есть способ менять цвет именно отдельных слов в строчках?

[mutabor]

А есть способ менять цвет именно отдельных слов в строчках?

есть http://www.programmersforum.ru/showthread.php?t=6090

[Азазель]

Mutabor, спасибо большое!

[BOBAH13]

чесно говоря лучше брать TCostumControl + TList и рисуй что хочеш и как хочеш ))) т.к. TListBox не полный доступ даст ) уж поверьте... сам сделал компонентик я уже писал раннее о них