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

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

ListView [D6, WinXP]

anod ©   (2002-08-05 12:13:00) 

Пожалйста, кинте ссылочку или приведите пример как обрабатывать onCustomDrawItem

---

anod   (2002-08-05 15:17:00) [1]

2Mbo Спасибо, роботает.

2Lord Warlock
А как это делать? Мне нужно расчитывать расстояния между итемами?

---

Lord Warlock   (2002-08-05 15:13:00) [2]

> anod © (05.08.02 15:10)


Его тоже нужно вручную заносить

---

MBo   (2002-08-05 15:12:00) [3]

with ListView1.Canvas do begin
Font.Color:=clRed;
Font.Size:=9;
Font.Charset:=RUSSIAN_CHARSET;
Font.Name:="Tahoma";
if item.index=1 then Font.Style:=[fsBold];
end;

---

Skier   (2002-08-05 15:11:00) [4]

>anod
Canvas.TextOut(...)

---

anod   (2002-08-05 15:10:00) [5]

Подправил на TListItem(Item) Все работает, только текст не отображается совсем

---

Skier   (2002-08-05 15:09:00) [6]

>anod
Тогда уж With TListItem(Item) do begin

Хотя это масло маслянное...

---

Skier   (2002-08-05 15:08:00) [7]

>anod
Полностью солидарен с MBo !

---

anod   (2002-08-05 15:07:00) [8]

Не ну в хелпе написано TTreeNode(item) - работает, но ничего нет, надписей никаких, вот я и подправил.

---

MBo   (2002-08-05 15:05:00) [9]

>With TListView(Item)
это настораживает...

---

anod   (2002-08-05 14:59:00) [10]

спасибо, но чего-то не получается, выдает Аксес виолашион:

procedure TForm2.PlayList1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
With TListView(Item) do begin
Font.Color:=clWhite;
Font.Size:=9;
Font.Charset:=RUSSIAN_CHARSET;
Font.Name:="Tahoma";
if item.index=cindex then Font.Style:=[fsBold];
end;
DefaultDraw := False;
end;

---

Skier   (2002-08-05 12:17:00) [11]

>anod
В Help-е есть пример.

---

Наверх