[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;