[aleksnine]

Привет.

Есть listview в режиме vsreport.
К нему подключен ImageList1.
Мне нужно чтобы в 1ой колонке рисовались иконки с width:=16 а
во второй width:=72
Но у меня не получилось. Там либо 16 либо 72. А 2ой ImageList1 не подключить к нему.
Возможно ли это реализовать ?

[AlexSku]

Справка по Delphi:
The image list is capable of holding a large number of same sized images...
То есть "одного размера"

[aleksnine]

Блин. Это плохо.
А есть идеи как это реализовать по другому ?

[AlexSku]

Реализовать можно что угодно. Например TSpeedButton загружает один bitmap с размерами 1х4, ему указываешь NumGlyphs=4 и он показывает фрагменты в зависимости от состояния кнопки.

[aleksnine]

Ну мне не TSpeedButton нужен а Listview.

[mtp]

Доброго времени суток, форумчане.
Апаю старую тему, т.к. в новой не вижу смысла.
Есть TImageList, в него нужно загружать иконки, имея только указатель типа HICON; Реализовал следующим образом:

Код:

Procedure TMain_Form.Load(tmpHIcon: HICON;)
 var
  tmpIconImg : TImage;
 begin
  tmpIconImg := TImage.Create(Self);
  Try
   tmpIconImg.Picture.Icon.Height := 15;
   tmpIconImg.Picture.Icon.Width := 15;

   DrawIcon(tmpIconImg.Picture.Icon.Handle, 0, 0, tmpHIcon);

   WImageList.AddIcon(tmpIconImg.Picture.Icon);
  Finally
   tmpIconImg.Free;
  End;
 end;

Не работает, что я делаю не так?