TImage Stretch XE5

Question

в XE5, используя TImage, как я могу растянуть растровое изображение с его пропорциональными размерами? TImage имеет ширину 200 пикселей и высоту 300 пикселей. И растровое изображение имеет ширину 130 и 80 высот. Когда я установил Image1.WrapMode в iwStretch, растровое изображение будет изменено, чтобы соответствовать области TImage, но не в пропорции масштабирования TImage, растровое изображение затем показывает слишком «жир».

Большое спасибо.

Answer 1

Для поддержания пропорций вы можете использовать свойство «масштаб». Например, вы загрузите изображение в IMG (TImage) в форме и с помощью кнопки вы хотите масштабировать его, вы можете сделать это:

procedure THeaderFooterForm.Button5Click(Sender: TObject); 
var testScale : Single; 
begin 
img.WrapMode := TImageWrapMode.iwOriginal; 
testScale := img.Width/img.Bitmap.Width; 
if (img.Height/img.Bitmap.Height) < testScale then 
    testScale := img.Height/img.Bitmap.Height; 


img.Scale.X := testScale; 
img.Scale.Y := testScale; 



end;