[Terran_Star]

Подскажите пожалуйста, как из папки загрузить полноразмерное изображение в ListView. Картинка 700x400 px.

[NumLock]

Боюсь спросить какая цель преследуется? Совсем не для этого этот класс.

[Terran_Star]

NumLock
Да, Вы правы, ListView не для этого.
Изменил задачу.
Есть ImageList1, в который загружено 6 картинок. Есть поле Image1. Требуется по нажатию Image1 перебирать изображения из ImageList1 поочерёдно.
Пишу вот так:

Код:

procedure TForm1.Image1Click(Sender: TObject);
var i: integer;
begin
  for i:= 0 to 5 do
  Imagelist1.GetBitmap(i, Image1.Picture.Bitmap);
end;

Что-то не работает. Отображает только 6-ю картинку и всё.

[NumLock]

Ну правильно Delphi работает. Все 6 картинок из коллекции по очереди грузятся в изображение. Логично что последняя остаётся там навсегда.

[Alegun]

Сообщение от Terran_Star

...как из папки загрузить полноразмерное изображение в ListView. Картинка 700x400 px.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TPicture.Create do
  begin
   LoadFromFile('C:\Картинка 700x400 px 8bit.bmp');
   ImageList1.Height:= 700;
   ImageList1.Width:= 400;
   ImageList1.Add(Bitmap, nil);
   ListView1.LargeImages:= ImageList1;
   ListView1.Items.Add;
   Free;
  end;
 end;

Что-то не работает. Отображает только 6-ю картинку и всё

Код:

 var
 i: integer = 0;
 procedure TForm1.Image1Click(Sender: TObject);
 begin
  Imagelist1.GetBitmap(i, Image1.Picture.Bitmap);
  inc(i);
  if i > 5 then i:= 0;
 end;

[Terran_Star]

Alegun
Благодарю! Свою ошибку понял!