Image stretch

[Maincore]

Как сохранить картинку в увеличенном размере? Я когда сохраняю картинку в файл она становиться первоначального размера.

[Кольша]

можно сохранить canvas в картинку код не помню но знаю что можно.

[Stilet]

Maincore

А ты как сохраняешь?

[Maincore]

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

А ты как сохраняешь?

image1.Picture.SaveToFile('name.bmp ');

[Maincore]

Все нашел решение


mp:=TBitmap.Create;
image1.Canvas.StretchDraw(rect(0,0, image1.Width, image1.Height), mp);

[Stilet]

Правильно. А я думал предложить StretchBLT

[phomm]

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp : TBitMap;
begin
  bmp := TBitmap.Create;
  bmp.Width := image1.Width;
  bmp.Height := image1.Height;
  bmp.Canvas.Draw(0,0, image1.picture);
  bmp.SaveToFile('name.bmp ');
  bmp.free;
end;

примерно так, я не проверял, может понадобится чуть допилить.

UPD. блин я слоупок ) ну всё равно может пригодится )