Версия для печати темы

Автор: Psychologist 16.05.2008 18:27

Никак не могу сообразить, как с помощью 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 16.05.2008 20:58

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

Автор: Psychologist 16.05.2008 22:07

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

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

Автор: andriano 16.05.2008 23:59

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

Автор: Psychologist 17.05.2008 0:17

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

Автор: andriano 17.05.2008 15:03

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