Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Графика / Как загрузить и отмасштабировать JPEGImage в TImage

Как загрузить и отмасштабировать JPEGImage в TImage

Image1.Picture.Graphic := nil;
try
  Image1.Picture.Graphic := nil;
  Image1.Picture.LoadFromFile(jpegfile);
except
  on EInvalidGraphic do
  Image1.Picture.Graphic := nil;
end;
if Image1.Picture.Graphic is TJPEGImage then begin
  TJPEGImage(Image1.Picture.Graphic).Scale := Self.Scale;
  TJPEGImage(Image1.Picture.Graphic).Performance := jpBestSpeed;
end;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru