Масштабирование фигуры с помощью ScrollBar Опции

[Psychologist]

Никак не могу сообразить, как с помощью ScrollBar(а) масштабировать простую фигуру (объект Shape). Точнее сам смысл мне понятен, в пикселях изменить размер получилось, а вот масштаб от заданного размера. . .

Вот неправильная процедура ScrollBar:

procedure TForm1.sbScaleScrollChange(Sender: TObject);
begin
shShape.Width:=sbScaleScroll.Position;
shShape.Height:=sbScaleScroll.Position;
end

Здесь sbScaleScroll - сама полоса прокрутки, а shShape - фигура.
Полоса прокрутки может принимать значения от 1 до 100. Соответственно, при таком коде максимальный размер фигуры - 100х100px.

Помогите, пожалуйста. Хотя тут скорее не в Delphi дело, а в самой формуле.

[andriano]

Ты бы пояснил, что именно неправильного в указанной тобой процедуре.
Т.е. по какому критерию мы можеи отличить неправильный алгоритм от правильного.
Кстати, диапазон изменения полосы прокрутки можно изменять в достаточно широких пределах. 100 - совсем не обязательно.

[Psychologist]

Ты бы пояснил, что именно неправильного в указанной тобой процедуре.
Т.е. по какому критерию мы можеи отличить неправильный алгоритм от правильного.
Кстати, диапазон изменения полосы прокрутки можно изменять в достаточно широких пределах. 100 - совсем не обязательно.

Я понимаю, что ставить можно хоть 1000, но 100 - это как бы проценты (101% не бывает, увеличивать не надо).
Допустим есть фигура с длиной 400 и высотой 200 - по умолчанию. Полоса прокрутки на значении 100. Если её сдвинуть влево (в меньшую сторону), фигура должна уменьшиться, как по длине, так и по ширине.
Соответственно, после уменьшения, при сдвиге ползунка вправо фигура увеличивается до своего нормального размера. При этом нет ни конкретных размеров, ни пропорции длина-ширина не известно, то есть работаем с параметрами shShape.Width, shShape.Height, а не конкретными значениями.

Вопрос заключается в том, как в формуле масштаба задействовать shShape.Width, shShape.Height и sbScaleScroll.Position?

[andriano]

shShape.Width := OriginalWidth*sbScaleScroll.Position div sbScaleScroll.Max;
аналогично высоту.

[Psychologist]

shShape.Width := OriginalWidth*sbScaleScroll.Position div sbScaleScroll.Max;
аналогично высоту.

Большое спасибо! Правда Delphi не признал "OriginalWidth", прописал в пикселях - думаю прокатит.

[andriano]

OriginalWidth - это константа: исходный размер изображения (т.е. 100%).