Увеличение ширины Image без растягивания рисунка

[artemavd]

Добрый день! У меня в Image хранится небольшое изображение, которое в процессе работы программы может увеличиваться в размере по горизонтали или уменьшаться (по вертикали размер не меняется). Нужно, чтобы по нажатию на кнопку ширина Image увеличивалась, а сам рисунок не расстягивался. А то получается, что увеличивая ширину Image так

procedure TForm3.sSpeedButton124Click(Sender: TObject);
begin
 Form3.pnl2.Width:=Form3.pnl2.Width + 10;
end;

картинка тоже растягивается, а мне это не надо. Либо, чтобы ширина Image увеличивалась автоматически при увеличении картинки (там линия обычная) под размер получаемой картинки. Есть какие-либо мысли как это можно сделать?

[SERG1980]

А если попробовать у имиджа поствавить св-во autosize = true а strech=false

[Прик]

А свойства Stretch и AutoSize? Ими поиграться.
Stretch = false не дает изменять размеры вставленной в Image картинки, а AutoSize = true подгоняет размер Image под размеры картинки.
Вроде такие вещи всем до боли знакомы. Или здесь в вопросе какой-то подвох?

[artemavd]

Нет, эти свойства не решают вопрос.

Или здесь в вопросе какой-то подвох?

Какой еще подвох?

[SERG1980]

Сообщение от artemavd

Нет, эти свойства не решают вопрос.

1 В любом случае у имиджа св-во strech должно быть в false
2. Может тогда предварительно грузить картинку в битмар узнать её ширину выставить такуюже ширину у имиджа и загрузить в имидж

[Прик]

Сообщение от artemavd

Нет, эти свойства не решают вопрос.
Какой еще подвох?

Если свойства, о которых общеизвестно, не решают проблему, значит вопрос либо неправильно понят, либо неверно поставлен, либо и то и другое. В этом и "подвох". Следовательно, есть еще какие-то условия которые из вопроса не ясны.
Почему, например, указанные свойства "не решают вопрос"?

[artemavd]

Почему, например, указанные свойства "не решают вопрос"?

Потому что не получается результат какой мне нужен.

2. Может тогда предварительно грузить картинку в битмар узнать её ширину выставить такуюже ширину у имиджа и загрузить в имидж

У меня длина картинки задается из компонента динамически. А как тогда в этом случае узнать ширину картинки, которая рисуется в Image?

А такой вопрос еще: может возможно сделать границу у Image? Чтобы можно было сужать или растягивать Image.

[SERG1980]

Что то я теперь и сам ничего не понимаю.
А вы можете выложить ваши картинки или скрин программы и там показать что нужно?

[artemavd]

Сделаем так. Скажите, кто-нибудь работал с компонентами от Han-Soft? В частности с Barcode128.

[Stilet]

не получается результат какой мне нужен.

А нужен то какой? Я тоже не оч.понял. Покажи на примере как хочешь?

может возможно сделать границу у Image? Чтобы можно было сужать или растягивать Image.

Можно. Несколькими способами. Я один из них уже показывал (ссылку не помню) там картинка кидалась на подформу, которую можно было растягивать.