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

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

Закрасить фон [D7, XP]

Страницы:   < 1 2 >

serg777 ©   (2007-06-04 23:06:00) 

Здравствуйте. Пишу простое ping приложение. Результат пинга вывожу в ListBox. Необходимо чтобы при отсутствии ответа от хоста фон строчки (или шрифт) становился другим цветом. Если не в ЛистБоксе, то в каком компоненте можно закрашивать строчки поотдельности. Спасибо.

---

Германн   (2007-06-05 01:54:00) [21]

> Если не в ЛистБоксе, то в каком компоненте можно закрашивать
> строчки поотдельности.

Для тех, кто не знаком с delphi более 5 часов, а также не знаком с основами работы Windows есть и компоненты. Искать у Torry. http://www.torry.net
Но не плакаться потом, что за сии компоненты нужно платить "живые" деньги.
   Когда молочные братья остановились перед москательной
   лавкой, Балаганов шепнул Остапу:
    -- Вам не стыдно?
    -- Чего? -- спросил Остап.
    -- Того, что вы собираетесь платить за краску живыми
   деньгами?
    -- Ах, вы об этом, - сказал Остап. - Признаюсь, немного
   стыдно. Глупое положение, конечно. Но что ж делать? Не бежать
   же в исполком и просить там красок на проведение "Дня
   жаворонка". Они-то дадут, но ведь мы потеряем целый день.

---

DVM   (2007-06-04 23:49:00) [22]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 if Odd(Index) then
   ListBox1.Canvas.Brush.color := clRed
 else
   ListBox1.Canvas.Brush.color := clGreen;
 ListBox1.Canvas.FillRect(Rect);
 ListBox1.Canvas.Font.Color := clWhite;
 ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Style := lbOwnerDrawFixed;
end;

---

serg777   (2007-06-04 23:33:00) [23]

to DVM: Спасибо за быстрый ответ, но я всего 5 часов как знаком с delphi. Если не сложно можно поподробнее как этой штукой пользоваться.

---

DVM   (2007-06-04 23:13:00) [24]

OnDrawItem()

---

Страницы:   < 1 2 >

Наверх