Скачать: CL | DM;

Как загрузить и отмасштабировать JPEGImage в TImage   Найти похожие ветки 

← →
SONY   (2002-09-21 16:20) [0]

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;
Нашел в FAQ а чего такое Self.Scale ?

---

← →
VitGun   (2002-09-21 18:18) [1]

SONY
Эта строка TJPEGImage(Image1.Picture.Graphic).Scale := Self.Scale;
как раз отвечает за масштабирование.
И вообще,ИМХО, код слишком длинный можно сделать так

...uses jpeg;
...
begin with OpenDialog1 do
if not execute then exit;
Image1.Picture.loadfromfile(OpenDialog1.FileName);
...
и все..

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.01 c