Информирование о статусе контакта(алатернатива майл агенту)

[tokloo]

Есть у меня идея создать клиент к майл.ру, что-то типа альтернативы обычному дефолтному агенту. Скачал я компонент для работы с ихним протоколом на делфи, вроде так ничего все норм... вот только проблемы возникли с listbox'ом, ну там где контакты отображабтся. Не в какую не получается информировать о статусе контакта... через событие ListBox1DrawItem можно конечно покрасить или даже значок поставить, только вот не получается это делать в зависимости от статуса... а проверку по статусу только в процедурах компонента можно проводить... как? какие условия ставить? не знаю...

вот код процедуры добавления контактов:

procedure TForm1.MailClientContact(Sender: TObject; GroupID: Cardinal;
  EMail, Nick: String; Status: TStatusClient;
  InvisState: TInvisStateClient);
begin
listbox1.Items.Add(nick)
 end;

или вот код проверки по статусу:

procedure TForm1.MailClientContact(Sender: TObject; GroupID: Cardinal;
  EMail, Nick: String; Status: TStatusClient;
  InvisState: TInvisStateClient);
begin
case status of
online: listbox1.Items.Add(nick + ' (онлайн)');
offline: listbox1.Items.Add(nick + ' (офлайн)');
away: listbox1.Items.Add(nick + ' (отошёл)');
end;
 end;

PS такой вариант информирования не годится

[Человек_Борща]

Есть у меня идея создать клиент к майл.ру, что-то типа альтернативы обычному дефолтному агенту. Скачал я компонент для работы с ихним протоколом на делфи

эту уже 50% того что у тебя ничего не получится. Читай ихний SDK и пиши собственную релизацию их протокола.
Заодно поймёшь что там и с чем связано. Вероятно компоннт-то уже старый а SDK они обновляют.

[tokloo]

Ну у меня в listbox записываются строки из разных процедур, но вот как их в drawitem отсеять по условию? а то он мне все в один цвет красит...

PS индекс страк не постоянный же...