Вопрос по контакт листу

[mish@]

Привет всем! как сделать такую небольшую штуку, мне надо что контакт лист TICQClient рассортирововался на статусы онлайн, оффлайн, не беспокоить и т.д
и как сдлать в listbox в начале строки картинку которая показывает если онлайн то зеленую картинку, оффлайн красную, не беспокоить соответствующую иконку...

[TwiX]

Недавно содавалась похожая тема. Поиск со слова "listbox icq"

[mish@]

извените, но нормальных исходников не нешел
пробовал вот так

var
i : LongInt;
UserInfo: TUINEntry;
UINNickItem : PUINNickItem;
begin
if FullReloadContactList then
begin
FullReloadContactList := False;
Listbox2.Clear;
UINNickList.Clear;
end;
if SrvContactList.Count > 0 then
for i := 0 to SrvContactList.Count - 1 do
begin
UserInfo := PUINEntry(SrvContactList.Items[i])^;
if GetStatusFor(UserInfo.UIN)= 'Онлайн' then
begin
Listbox2.AddItem(UserInfo.Nick + '(' + IntToStr(UserInfo.UIN) + ')', Self);
GetMem(UINNickItem, SizeOf(UINNickItem^));
UINNickItem^.UIN := UserInfo.UIN;
UINNickItem^.Nick := UserInfo.Nick;
UINNickList.Add(UINNickItem);
end;
end;
ICQClient1.DestroyUINList(SrvContactList);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
listbox2.Enabled:=true;
FullReloadContactList := True;
ICQClient1.RequestContactList;
sleep(10);
timer1.Enabled:=false;
end;

гдет пол года назад работало а щас не фурычит, но этот пример тока для загрузки онлайн контактов

[TwiX]

Что бы рисовать картинки в listbox'e, нужно изменить его style на lbOwnerDrawVariable и вручную отрисовывыать итемы. Для этого в событии onItemDraw сначала закрашиваете весь итем, потом выводите картинку статуса, а потом сам текст с помощью Canvas.TextOut (это недавно обсуждалось)

[mish@]

спасибо! Но можете помочь по контакт листу?

[TwiX]

А что с ним не так?
Если вопрос по ICQClient'у, то ничего не обещаю, т.к. давно с ним работал, а если по коду - то может смогу помочь

[mish@]

спасибо