Большие изображения в Image

[Jene4ka]

Подскажите,пожалуйста, если мне нужно из приложения просматривать большие файлы JPG, как это можно сделать?
Или придется каждый в отдельности уменьшать и только тогда загружать,например, в Image?

[Volt]

А в чем проблема?

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Left:=0;
image1.Top:=0;
image1.AutoSize:=true;
image1.Picture.LoadFromFile('путь к файлу');
end;

[BioHEX]

Большие - это больше формы?
Да придеться масштабировать, если не хочешь скролбаров от AutoSize.

[Xatr]

var d,e:integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
d:=Image1.Width;
e:=Image1.Height;
Image1.Picture.LoadFromFile('1.jpg');
Scale;
end;

Procedure TForm1.Scale;
var f,g:real;
begin
if Image1.Picture.Width>d then f:=d/Image1.Picture.Width else f:=1;
if Image1.Picture.Height>e then g:=e/Image1.Picture.Height else g:=1;
if f<g then h:=f else h:=g;
Image1.Height:=Round(Image1.Picture.Height*h);
Image1.Width:=Round(Image1.Picture.Width*h);
end;

вроде так изменяется размер картинки. Если не так - поправьте.

[Jene4ka]

размер самого image изменился,а вот картинки,которую он отображает-нет,т.е. видно только маленький ее кусочек

[Dalagardi]

Если собираешься перегружать jpg в image то там есть свойство stretch, поставь его в true, тогда размер картинки будет подгонятся под размер image

[Jene4ka]

Спасибо большое!!!
А вот еще вопрос: я работаю с базой Access, и собираюсь картинки через пути загружать.А можно ли как-то изображение jpg загружать в базу через приложение?
В смысле, компонент DBImage работает с bmp, но может есть какой-то другой?

[Stilet]

Загружать можно через BLOB поля
Это обсуждалось. И примеров куча по загрухзке в базу картинок.
что касается JPG то возможно DBImage сработает если допишешь в uses модуль jpeg.
Если не сработает то по форуму ищи примеры, и на DelphiWorld.