Анимированные смайлики в ListBox

[Tomazo]

Привет! Пишу icq client, в listbox отображаются принятые сообщения. Как сделать так чтоб в listbox были анимированные смайлики?
Допуим мне пишут: Привет! Как дела?

[raxp]

пользуемся >> поиском <<
...анимацию делаем сменой картинки в соответствующем item-е

[Tomazo]

Вот нашео код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 with (control as tlistbox).Canvas do begin
  FillRect(Rect);
  Draw(Rect.Left + 1, Rect.Top,BMP);
  Brush.Style:= bsClear;

  TextOut(Rect.left + 19, Rect.Top+1,(Control as TListBox).Items[Index])
 end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 BMP:=TBitmap.Create;
 BMP.LoadFromFile('1.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 bmp.Free
end;

end.

как я понял это отступ каринки от начала строки

  Draw(Rect.Left + 1, Rect.Top,BMP);

но а если сообшение привет то как узнать Rect.Left до начала смайлика?

[SERG1980]

Можно использовать компонент RichView в него можно вставлять анимацию. Поиском по форуму пройдитесь, тут и сам комопнент выложен