Программа для просмотра графических файлов

var
  map: TBitmap;
  x1, y1, x2, y2: Integer;
  fact1, fact2: Real;
  jpeg_map: TJpegImage;
  sourse_map:TBitmap;  it:TListItem;      il:TImageList;
begin
  jpeg_map := TJpegImage.Create;
  jpeg_map.LoadFromFile('c:\test\gzYRi-M9utg.jpg');
  sourse_map := TBitmap.Create;
  sourse_map.Width := jpeg_map.Width;
  sourse_map.Height := jpeg_map.Height;
  sourse_map.Assign(jpeg_map);
  jpeg_map.Free;
  map := TBitmap.Create;
  // размеры исходного изображения
  x1 := sourse_map.Width;
  y1 := sourse_map.Height;
  //размеры области, в которую помещается изображение
  il:=TImageList.CreateSize(60,60); // с этим не вставляется
  x2 := il.Width;//Self.ClientWidth;
  y2 := il.Height;//Self.ClientHeight;
  // вычисляем отношение размеров
  fact1 := x2 / x1;
  fact2 := y2 / y1;
  // берём наименьший коэффициент, чтобы на него домножить размеры исходного изображения
  If fact2 < fact1 then
    fact1 := fact2;
  // а дальше уже отображение
//  Self.Canvas.Brush.Color := clGray;
//  Self.Canvas.FillRect(Self.Canvas.ClipRect);
  // если картинка больше заданной области, то сжимаем её
  If fact1 < 1.0 then
    begin
      map.Width := Round(x1 * fact1);
      map.Height := Round(y1 * fact1);
      map.Canvas.StretchDraw(map.Canvas.ClipRect, sourse_map);
    end
  else // иначе - оставляем такой, какая она есть (чтобы не расширять)
    map.Assign(sourse_map);
  // отображаем:
//  Self.Canvas.Draw((Self.ClientWidth - map.Width) div 2,
//      (Self.ClientHeight - map.Height) div 2, map);
  ListView1.Clear;
 
  il.Add(map,nil);
//  il.Count;
      ListView1.LargeImages:=il;
      it:=ListView1.Items.Add;
      it.ImageIndex:=il.Count-1;
//  ImageList1.Add(map,nil);
//ListView1.LargeImages:=ImageList1; тут вставляется маленькая картинка
//      it:=ListView1.Items.Add;
//      it.ImageIndex:=ImageList1.Count-1;
 
  map.Free;

var
  j:tjpegimage;
  il:TImageList;
  bm, mask: TBitmap;      it:TListItem;
begin
  ImageList1.Clear;
  ListView1.Clear;
  il:=TImageList.CreateSize(60,60);
 
  bm:=TBitmap.Create;
//  Image1.Picture.LoadFromFile('c:\test\z.bmp');
  bm.LoadFromFile('c:\test\z.bmp');
  il.Add(bm,nil);
//  ImageList1.Insert(0, Image1.Picture.Bitmap,nil);
 
      it:=ListView1.Items.Add;
      it.ImageIndex:=il.Count-1;
      ListView1.LargeImages:=il;
//      ImageList1.FileLoad(rtBitmap,'c:\test\1.bmp',clBtnFace);
//      ShowMessage(IntToStr(ImageList1.Count));
//      sImage1.ImageIndex:=1;

ResizeIL(size);
b:=LoadBitmap();
resizeBitmap(b,size);
IL.add(b);