ListView

← →
Ламонов Олег (2007-05-03 19:17) [0]

Уважаемые мастера.
Скажите как динамически рисовать на ListView.
Имеется ImageList. В нем 3 картинки.
Если в smallimages указать ImageList, то отразится 0 индекс картинок ImageList.
И всегда спостоянный одинаковый отступ от левого края.
Хочется, чтобы картинка прорисовалась через
Canvas.Draw, так как больше возможностей.
Где и как мне это сделать?

ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
- не дает Rect

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
const ARect: TRect; var DefaultDraw: Boolean);
- что-то не слушается.

Заранее спасибо.

← →
Зюзя (2007-05-03 21:28) [1]

что-то не слушается

Вот и я тебя не услышал. Может, ты неправильно говоришь?

← →
Чародей © (2007-05-03 21:43) [2]

не CustomDrawItem а просто DrawItem

← →
Ламонов Олег (2007-05-03 22:27) [3]

Попробуйте: результат вообще левый

if Item.Caption = "0" then
Sender.Canvas.Font.Color:=clNavy
else
if Item.Caption = "1" then
begin
Sender.Canvas.Font.Color:=clRed;
end;

//Сами допишите что-нибудь.
При повторном обновлении - шрифт просто изменится без всяких сообщений.
Какой-то баг в Delphi.

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