| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как загрузить и отмасштабировать JPEGImage в TImage [D5, Win2k]

SONY ©   (2002-09-21 16:20:00) 

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:00) [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);
...
и все..

---

Наверх