Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с TListView

Автор: Illusion Dolphin 5.2.2004, 23:29

Хотелось бы каждому элементу задать своё изображение, которое выводилось бы при AdvancedCustomDrawItem (или тому подобному), но я нашёл только метод через Item.ImageIndex, который предусматривает создание сперва TImageList, но у меня будет очень много изображений (большой списочек), поэтому сразу всео не сделаешь, а для оптимизации хотелось бы иметь возможность прорисовки произвольного изображения (не из TImageList) в TListView... Не подскажите, как?

Автор: Paradox 6.2.2004, 06:58

А что если перед прорисовкой запихивать его в ImageList а потом уже рисовать ?

Автор: p0s0l 6.2.2004, 08:15

Для начала можешь попробовать что-нибудь типа этого:

Код

procedure TfrmMain.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
var
  Rect1 : TRect;
begin
  DefaultDraw := False;
  Rect1 := Item.DisplayRect(drIcon);
  ListView1.Canvas.Pen.Color := Item.Index * $204080;
  ListView1.Canvas.Ellipse(Rect1);
  Rect1 := Item.DisplayRect(drLabel);
  ListView1.Canvas.TextRect(Rect1, Rect1.Left+1, Rect1.Top+1, Item.Caption);
end;

PS: у ListView должно быть назначено соответсвующее свойство имейджов, т.е. для vsIcon стиля - LargeImages. ImageList может быть пустым, но он должен задавать размеры иконок...

Автор: Illusion Dolphin 6.2.2004, 09:41

Paradox, в коце концов удобнее вышло именно так, но есть одна проблемка... Когда добавляешь новый Item, то он перерисовывает всё содержимое, даже если этот итем сейчас оалеко за пределами видимой части. Каким образом запретить перерисовку?