3 / 3 / 0
Регистрация: 06.02.2011
Сообщений: 27
1

изменение фигуры

11.03.2011, 23:42. Показов 4105. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем доброго времени суток!
С помощью Trackbar нужно изменить ширину шейпа, т.е. вправо( от 0 до 10) увеличивать, а влево(от 10 до 0) уменьшать до первоначального размера. в процедуре OnChange изменяю Shape1.Width:= Shape1.Width+Trackbar1.Position. Но ширина всё время увеличивается.Как сделать чтобы было как нужно?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2011, 23:42
Ответы с готовыми решениями:

Изменение фигуры
Подскажите как можно сделать так, чтобы можно было изменять размер фигуры shape на форме, потянув...

Изменение программы "выбор фигуры"
Есть программа, позволяющая выбрать из списка ListBox название геометрической фигуры(эллипс, ромб,...

Изменение цвета фигуры
Ребятки! Помогите, пожалуйста! Во вложении пример того, что мне нужно сделать: Есть...

Изменение фигуры заявки
Как изменить фигуру заявки на время ее пребывания в каком-то определенном объекте(например delay)?...

3
3192 / 2379 / 542
Регистрация: 11.09.2009
Сообщений: 8,658
12.03.2011, 01:35 2
Цитата Сообщение от Rocky095 Посмотреть сообщение
Как сделать чтобы было как нужно?
Включить свой процессор и вспомнить арифметику. У вас значение Trackbar1.Position изменяется в каких пределах? Правильно, от 0 до 10, то есть, всегда положительно. И вы его всё время прибавляете к тому, что получилось перед этим.
0
3 / 3 / 0
Регистрация: 06.02.2011
Сообщений: 27
12.03.2011, 01:41  [ТС] 3
Ну с тем как увеличить ширину понятно, а какое надо прописать условие, чтобы вернуть фигуру в исходыные размеры, перемещая ползунок в обратном направлении?
ЗЫ: Извиняюсь за нубизм, но я пока совсем зелёный..
0
5705 / 2296 / 466
Регистрация: 20.11.2009
Сообщений: 7,720
Записей в блоге: 1
12.03.2011, 04:10 4
Цитата Сообщение от Rocky095 Посмотреть сообщение
Ну с тем как увеличить ширину понятно, а какое надо прописать условие, чтобы вернуть фигуру в исходыные размеры, перемещая ползунок в обратном направлении?
ЗЫ: Извиняюсь за нубизм, но я пока совсем зелёный..
держи

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.Max := Shape1.Width + TrackBar1.Max; // задаем максимум ползунка,
                                                      // то есть ширину шейпа +
                                                      // на сколкьо единиц расчитан ползунок
 
  TrackBar1.Min := Shape1.Width + TrackBar1.Min;                      // задаем минимум, то есть это наша ширина шейпа
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Shape1.Width := TrackBar1.Position                  // а здесь меняем размеры шейпа
                                                      // + ползунок -> увеличение
                                                      // - ползунок -> уменьшение
end;
думаю с этим все будет понятно

Добавлено через 10 минут
Кстати на будущее !!! Если будете работать с таким компонентом, то нужно сперва максимум установить, затем минимум, потому что иначе он не сделает разницы между минимумом и максимумом

например в этом случае, шейп оригинально идет 65 шириной, если сперва поставим минимум, а это 65, а тут на тебе, а максимум у тракбара стоит всего 10, получается минимум больше максимума, это в случае с положительными коэффициентами, конечно, если будет минимум стоять в -65 то понятно, будет все в порядке, так как от -65 до 10 это аж 75 единиц

Думаю разберетесь
1
12.03.2011, 04:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2011, 04:10
Помогаю со студенческими работами здесь

Изменение размеров нарисованной фигуры
Доброго времени суток! Возникла проблема с изменением размеров нарисованной фигуры. Необходимо...

Данные фигуры и графическое изменение
Доброго времени суток! Подскажите как создать всплывающий список в данных фигуры, чтоб при выборе...

Изменение цвета фигуры по клику
всем доброго времени суток! проблема следующая: есть форма, на ней квадрат, по клику на квадрат...

Анимация фигуры - изменение размеров и перемещение
Помогите пожалуйста анимировать фигуру. Сначала она должна уменьшаться, а потом двигаться по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru