Anchor для 3х Grid-ов

На форме 3 Грида друг под другом + куча объектов.
Нужно их одинаково масштабировать при растягивании формы, изменяя взаимное положение, чтоб не перекрывать др друга.
Можно ли обойтись стандартным Anchor или как-то придется городить свой ресайз?
[b]Вот репро:[/b]

Спойлер
[code]PUBLIC oFrm
oFrm = CREATEOBJECT("frm")
oFrm.SHOW()
DEFINE CLASS frm AS FORM
DATASESSION = 2
left = 50
TOP = 55
WIDTH = 350
HEIGHT = 200
ADD OBJECT cmd1 AS COMMANDBUTTON WITH CAPTION = "1", TOP = 40, LEFT = 5, WIDTH = 80, HEIGHT = 22, Anchor= 4
ADD OBJECT cmd2 AS COMMANDBUTTON WITH CAPTION = "2", TOP = 105, LEFT = 10, WIDTH = 80, HEIGHT = 22, Anchor= 4
ADD OBJECT cmd3 AS COMMANDBUTTON WITH CAPTION = "3", TOP = 170, LEFT = 15, WIDTH = 80, HEIGHT = 22, Anchor= 4
ADD OBJECT grid1 AS grid WITH ;
Top = 5, ;
Left = 20, ;
Width = 300, ;
Height = 30, ;
Anchor= 15,;
Name = "Grid1"
ADD OBJECT grid2 AS grid WITH ;
Top = 70, ;
Left = 30, ;
Width = 300, ;
Height = 30, ;
Anchor= 30,;
Name = "Grid2"
ADD OBJECT grid3 AS grid WITH ;
Top = 135, ;
Left = 40, ;
Width = 300, ;
Height = 30, ;
Anchor= 30,;
Name = "Grid3"
ENDDEFINE
[/code]

Автор публикации

Пользователи не найдены
0
Оставить комментарий
Авторизация
*
*
Генерация пароля