[Sharky]

Привет всем. Помогите организовать такие действие - нужно загрузить картинку в т имедж но только с другим размером или маштабом.

[Winny]

Загрузка:

Код:

Image1.Picture.LoadFromFile('pic.bmp');

Установка нужного тебе размера:

Код:

Image1.Stretch:=True;
Image1.Height:=200;//ставишь здесь свои параметры
Image1.Width:=200;

[<<D>>]

Код:

function OpenImage(FileName:String;Zoom:integer):TBitmap;
var bmp:TBitmap;
begin
Result:=TBitmap.Create;
BMP:=TBitmap.Create;
bmp.LoadFromFile(FileName);
Result.Width:=round(bmp.Width /100 *zoom);
Result.Height:=round(bmp.Height /100 *zoom);
result.Canvas.CopyRect(result.Canvas.ClipRect,bmp.Canvas,bmp.Canvas.ClipRect);
end;

...........

if opendialog1.Execute then
begin
image1.Picture.Assign(OpenImage(opendialog1.FileName,200));
end;

При Image1.autosize=true;