Метод ФОРМА.СДВИГ
Метод СДВИГ позволяет осуществлять групповой сдвиг элементов на форме. Задается позиция и величина сдвига по горизонтали и вертикали. Метод работает только во время показа формы, т.е. должен использоваться в обработчиках событий самой формы или ее элементов управления.
ФУНКЦИЯ СДВИГ(ЧИСЛО: x;
ЧИСЛО: dx;
ЧИСЛО: y;
ЧИСЛО: dy)
Параметры
- x
- Позиция сдвига по горизонтали.
- dx
- Величина сдвига по горизонтали.
- y
- Позиция сдвига по вертикали.
- dy
- Величина сдвига по вертикали.
Если параметры dx и dy имеют ненулевое значение, то в сдвиге участвуют элементы, координаты левого верхнего угла (поля левый и верхний) которых попадают в закрашенную на рисунке область.
На рисунке приведены два из четырех возможных случаев: 1) положительные dx и dy, 2) положительный сдвиг dx и отрицательный сдвиг dy.
При нулевой величине одного из сдвигов смещаются все элементы, координаты левого и верхнего угла которых расположены в закрашенной полуплоскости для положительного сдвига или в белой – для отрицательного сдвига.
Пример:
ТИП МойБланк ( БЛАНК )
[
// данные бланка
СТРОКА: заголовок = "Метод СДВИГ";
ЧИСЛО: высота = 300;
ЧИСЛО: верхний = 60;
ЧИСЛО: левый = 40;
// кнопка, при нажатии на которую производится сдвиг
КНОПКА: КнСдвиг = [ левый = 0.2, верхний = 0.2,
высота = 0.6, ширина = 2,
табиндекс = 1, текст = "Сдвиг",
нажатие = НажСдвиг ];
// элементы управления, которые подлежат сдвигу
// набор этих элементов может быть совершенно произвольным,
// лишь бы поле верхний было больше 1 см
РЕДАКТОР: Редактор1 = [ левый = 0.40625, верхний = 1.703125,
высота = 0.5, ширина = 6.625,
табиндекс = 2, текст = "Графа ввода" ];
ЛИНИЯ: Линия1 = [ левый = 6.91875, верхний = 1.484375,
высота = 0.875, ширина = 0.6,
х1 = 7.21875, у1 = 1.5,
х2 = 7.21875, у2 = 2.34375 ];
ЛИНИЯ: Линия2 = [ левый = 0.265625, верхний = 2.04375,
высота = 0.6, ширина = 6.96875,
х1 = 0.28125, у1 = 2.34375,
х2 = 7.21875, у2 = 2.34375 ];
ЛИНИЯ: Линия3 = [ левый = -0.01875, верхний = 1.484375,
высота = 0.875, ширина = 0.6,
х1 = 0.28125, у1 = 1.5,
х2 = 0.28125, у2 = 2.34375 ];
ЛИНИЯ: Линия4 = [ левый = 0.265625, верхний = 1.2,
высота = 0.6, ширина = 6.96875,
х1 = 0.28125, у1 = 1.5,
х2 = 7.21875, у2 = 1.5 ];
ФУНКЦИЯ НажСдвиг ( ПЕРЕМ КНОПКА: кнопка )
// сдвигаем все элементы, расположенные ниже 1 см на 0.1 см вниз
СДВИГ ( 0, 0, 1, 0.1 )
// вычисляем новый размер бланка
МИН_РАЗМЕР
КОНЕЦ_ФУНКЦИИ
]
ВЫЧИСЛИТЬ
ПЕРЕМ МойБланк: б
б.ПОКАЗАТЬ
КОНЕЦ