Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ListView [D6]

Ламонов Олег © (2007-05-03 19:17:00)
Уважаемые мастера.
Скажите как динамически рисовать на 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 22:27:00) [1]
Попробуйте: результат вообще левый

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

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

Чародей (2007-05-03 21:43:00) [2]
не CustomDrawItem а просто DrawItem

Зюзя (2007-05-03 21:28:00) [3]
что-то не слушается

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

Наверх

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