Масштабирование в TImage
Доброго времени суток уважаемые. Подскажите пожалуста как сделать чтобы в TImage отображалось изображение с масштабированием, т.е. например размер компонента TImage 200*300, а картинка которую надо в нём открыть имеет размер 1152*864, так вот мне надо чтобы картинка эта уместилась полностью в этом TImage. Ниже приведена часть программы в которой и происходит это отображение картинки, Screen.jpg-непосредственно та самая картинка находящаяся к примеру на диске С:\
procedure TForm1.Button1Click(Sender: TObject);
var
JpegIm:TJpegImage;
bm:TBitmap;
begin
bm:=TBitMap.Create;
JpegIm:=TJpegImage.Create;
JpegIm.loadFromFile('C:\Screen.jpg');
bm.Assign(JpegIm);
Image1.Canvas.Draw(0,0,bm);
bm.Destroy;
JpegIm.Destroy;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
JpegIm:TJpegImage;
bm:TBitmap;
begin
bm:=TBitMap.Create;
JpegIm:=TJpegImage.Create;
JpegIm.loadFromFile('C:\Screen.jpg');
bm.Assign(JpegIm);
Image1.Canvas.Draw(0,0,bm);
bm.Destroy;
JpegIm.Destroy;
end;
в инспекторе объектов.
Только зачем создавать промежуточный битмап только для того, чтоб нарисовать его на TImage, кроме того, TImage не предназначен для рисования - для этого лучше подходит TPaintBox.
А если ты хочешь просто загузить картинку, то можно сделать следующее:
Код:
Image1.Proportional:=true;
Только зачем создавать промежуточный битмап только для того, чтоб нарисовать его на TImage, кроме того, TImage не предназначен для рисования - для этого лучше подходит TPaintBox.
А если ты хочешь просто загузить картинку, то можно сделать следующее:
Код:
var Pict: TJPEGImage;
begin
Pict:=TJPEGImage.Create;
Pict.LoadFromFile('C:\Splash.jpg');
Image1.Picture.Graphic.Assign(Pict);
Pict.Free;
end;
begin
Pict:=TJPEGImage.Create;
Pict.LoadFromFile('C:\Splash.jpg');
Image1.Picture.Graphic.Assign(Pict);
Pict.Free;
end;