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(...)

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;

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

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

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