Ограничение подвижности окна

Страница 1 из 1 1
Модератор форума: as-master

toizy

Дата: Суббота, 07 Апреля 2007, 13:07 | Сообщение # 1

Студийная субстанция

Группа: Администраторы

Сообщений: 2309

Репутация: 29

Награды: 12

Статус: Offline

Решение для перемещения окна так, чтобы оно не уходило за края экрана и прилипало бы к краям.

В старте страницы пишем RunScript(«Move»)
А в скрипте Move пишем:

Code

x = PubX()
y = PubY()
X = WorkAreaWidth()
Y = WorkAreaHeight()
Xmax = X - 400 - 10
Ymax = Y - 300 - 10
*** 400 и 300 - это размеры окна проекта. 10 - диапазон «прилипания»
If (x ‹ 10) Then
x = 0
End
If (y ‹ 10) Then
y = 0
End
If (x › Xmax) Then
x = Xmax+10
End
If (y › Ymax) Then
y = Ymax+10
End
SysCommand(«MoveWindow»,«x,y»)
Refresh()

Жизнь оказалась не такой уж и забавной, как поначалу...

Ограничение подвижности окна

Страница 1 из 1
1