TSelection - Размер по картинке

[denprox]

Всем привет! Столкнулся с такой проблемой: Если поместить в компонент TSelection изображение (TImage) с параметром WrapMode = Fit , то размер Изображения всегда отличается от размера TSelection, т.к. изображение сохраняет пропорции. Вопрос в следующем - возможно ли размер TSelection подгонять под текущий размер изображения ? 

[eser]

ну первое что напрашивается:

Цитата

Selection1.Width:=Image1.Bitmap.Width*(Selection1.Height/Image1.Bitmap.Height);

 

[denprox]

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

[denprox]

  maxW := Image1.Bitmap.Width;
  maxH := Image1.Bitmap.Height;
  if Selection1.Height > maxH then
    Selection1.Height := maxH;
  if Selection1.Width > maxW then
    Selection1.Width := maxW;
  Selection1.Width:=Image1.Bitmap.Width*(Selection1.Height/Image1.Bitmap.Height);

Для Selection событие onResize.