 |
|  |
 |
*При небольшой доработке можно преобразовать в вуртикальный splitbar
*THISform.grid1,THISform.grid2 обьекты формы, размеры которых надо менять
thisform.addobject([LINE],[DELIMITER]) &&Добавили разделитель
THISform.LINE.LEFT=THISform.grid1.width+1
THISform.LINE.TOP=THISform.grid1.TOP
THISform.LINE.WIDTH=0
THISform.LINE.HEIGHT=THISform.grid1.HEIGHT
THISform.LINE.VISIBLE=.T.
THISform.LINE.lefttopmin=30&&Минимальный размер левого обьекта
THISform.LINE.rightdownmin=30&&Минимальный размер правого обьекта
THISform.LINE.LEFTOBJECT=[GRID1]&&Левый обьект
THISform.LINE.RIGHTOBJECT=[GRID2]&&Правый обьект
|
|
 |
|  |
|