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

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

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;


DelphiWorld 6.0

спс. хороший компонент для работы с графикой.

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...