[poli-smen]

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

у мне имеется рисунок с размером 1680х2421 надо
подогнать размеры 556х794

"Canvas.StretchDraw" должен помочь:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp1, bmp2: TBitmap;
begin
  bmp1 := TBitmap.Create;
  try
    bmp1.LoadFromFile('Имя файла исходного рисунка');

    bmp2 := TBitmap.Create;
    try
      bmp2.Width := 556;
      bmp2.Height := 794;
      bmp2.Canvas.StretchDraw(Rect(0, 0, bmp2.Width, bmp2.Height), bmp1);

      bmp2.SaveToFile('Имя файла подогнанного рисунка');
    finally
      bmp2.Free;
    end;
  finally
    bmp1.Free;
  end;
end;