Скачать: CL | DM;

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.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c