[Sharky]

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

[Winny]

Загрузка:

Код:

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

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

Код:

1 2 3

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

[<<D>>]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;