Как сохранить пропорцию?

[Axbor]

Создаю динамически TImage и загружаю ему изображение с галереи. Я хочу что бы у компоненты был такой же размер как у загруженного изображения, и если изображения больше определенного размера нужно уменьшит размеры TImage но сохраняя пропорции изображения. WrapMode у компоненты Stretch. Как это сделать?

Изменено 19 августа, 2015 пользователем Axbor

[Равиль Зарипов (ZuBy)]

тут на форуме не так давно выкладывали компонент который поможет

AlexG вроде выкладывал
 

[Axbor]

тут на форуме не так давно выкладывали компонент который поможет

AlexG вроде выкладывал

 

Да я видел эту тему. Но там само изображение меняется. А мне нужно что бы компонент менял свой размер...

[krapotkin]

лучше бы как раз не играться с размером компонента

тогда невозможно будет нормально использовать Align

[Axbor]

Bitmap->Width, Bitmap->Height, оригинальные размеры загруженного изображения. Размер компоненты изменяю так:

    double koefW = 200.0/(double)Bitmap->Width;
    double koefH = 200.0/(double)Bitmap->Height;
    double koefC = (koefW < koefH?koefW:koefH);
Image->Width = Bitmap->Width * koefC;
Image->Height = Bitmap->Height * koefC;

Изменено 20 августа, 2015 пользователем Axbor