| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться с компонентом TsListView [D7, XP]

NBAH1990 ©   (2010-03-27 09:00:00) 

Программа пингует адреса и ищет на них сервера, в TsListView подключеные должны отображаться с одной картинкой а отключеные сервера красным. Получается либо чтобы картинка была либо чтобы только текст, нужно чтобы Была картинка а под ней текст. Если кто работал с этим - помогите

вот кусок кода

if TcpClient1.Connected then
      begin
      item:=TListItem.Create(lv1.Items);
      Item.ImageIndex:=1;
      Item.Caption:=Ping1.HostIP+' готов';
      lv1.Items.AddItem(Item);
     Redt1.Lines.Add('Получено '+IntToStr(Ping1.Reply.DataSize)+
     ' байт от '+Ping1.HostIP+' за ' + IntToStr(Ping1.Reply.RTT)+
' миллисекунд'+' и на нём запущен клиент')
       end
     else
     begin
      item:=TListItem.Create(lv1.Items);
      Item.ImageIndex:=0;
      Item.Caption:=Ping1.HostIP+' не готов';
      lv1.Items.AddItem(Item);
     Redt1.Lines.Add('Получено '+IntToStr(Ping1.Reply.DataSize)+
     ' байт от '+Ping1.HostIP+' за ' + IntToStr(Ping1.Reply.RTT)+
' миллисекунд'+' но на нем нет клиента');
end;

с таким кодом показывается только картинка. Хотя и текст вроде тоже присваивается

Item.Caption:=Ping1.HostIP+' не готов';

Помогите плз. Вот исходник если надо
http://www.rapidshare.ru/1426505

---

Вася   (2010-03-27 09:53:00) [1]

А если использовать обычный TListView, проблема исчезает?
Проверь

---

Anatoly Podgoretsky   (2010-03-27 09:08:00) [2]

"Отключеные" сервера показывать не надо.

---

Наверх