Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Вниз

ListView   Найти похожие ветки 

← →
anod   (2002-08-05 12:13) [0]

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

---

← →
Skier   (2002-08-05 12:17) [1]

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

---

← →
anod   (2002-08-05 14:59) [2]

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

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;

---

← →
MBo   (2002-08-05 15:05) [3]

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

---

← →
anod   (2002-08-05 15:07) [4]

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

---

← →
Skier   (2002-08-05 15:08) [5]

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

---

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

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

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

---

← →
anod   (2002-08-05 15:10) [7]

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

---

← →
Skier   (2002-08-05 15:11) [8]

>anod
Canvas.TextOut(...)

---

← →
MBo   (2002-08-05 15:12) [9]

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;

---

← →
Lord Warlock   (2002-08-05 15:13) [10]

> anod © (05.08.02 15:10)


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

---

← →
anod   (2002-08-05 15:17) [11]

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

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c