PUBLIC oFrm
oFrm = CREATEOBJECT("frm")
oFrm.SHOW()

DEFINE CLASS frm AS FORM  
   DATASESSION = 2
   LEFT= 10
   TOP= 10
   WIDTH= 350
   HEIGHT= 500
   #DEFINE nnWidth 320
   #DEFINE nnHeightGrid 80
   #DEFINE nnHeightCmd 23
   #DEFINE nnTop 60
   #DEFINE nnTopDelta 140
    
   ADD OBJECT StatLbl AS Label WITH WordWrap=.T., CAPTION= "Stat", TOP= 1, LEFT= 5, HEIGHT= 50, WIDTH= nnWidth,;
       BorderStyle= 1

   ADD OBJECT RefrCmd1 AS COMMANDBUTTON WITH CAPTION= "1", TOP= nnTop,  LEFT= 50, WIDTH= 80, HEIGHT= 23
   ADD OBJECT FiltGrp1 AS Label WITH CAPTION= " f1",       TOP= nnTop+ nnHeightGrid + nnHeightCmd+ 5, LEFT= 1,;
     WIDTH= 80, HEIGHT= 18, BorderStyle= 1
   ADD OBJECT RefrCmd2 AS COMMANDBUTTON WITH CAPTION= "2", TOP= nnTop+ nnTopDelta, LEFT= 50, WIDTH= 80, HEIGHT= 23
   ADD OBJECT FiltGrp2 AS Label WITH CAPTION= " f2",       TOP= nnTop+ nnHeightGrid + nnHeightCmd+ nnTopDelta+ 5, LEFT= 1,;
     WIDTH= 80, HEIGHT= 18, BorderStyle= 1
   ADD OBJECT RefrCmd3 AS COMMANDBUTTON WITH CAPTION= "3", TOP= nnTop+ nnTopDelta*2, LEFT= 50, WIDTH= 80, HEIGHT= 23
   ADD OBJECT FiltGrp3 AS Label WITH CAPTION= " f3",       TOP= nnTop+ nnHeightGrid + nnHeightCmd+ nnTopDelta*2+ 5, LEFT= 1,;
     WIDTH= 80, HEIGHT= 18, BorderStyle= 1

   ADD OBJECT GridCntr1 AS grid WITH ;
        Top = 85, ;
        Left = 10, ;
        Width = nnWidth, ;
        Height = nnHeightGrid, ;
        Anchor= 10,;
        Name = "GridCntr1"

   ADD OBJECT GridCntr2 AS grid WITH ;
        Top = 85 + nnTopDelta, ;
        Left = 10, ;
        Width = nnWidth, ;
        Height = nnHeightGrid, ;
        Anchor= 10,;
        Name = "GridCntr2"

   ADD OBJECT GridCntr3 AS grid WITH ;
        Top = 85 + nnTopDelta*2, ;
        Left = 10, ;
        Width = nnWidth, ;
        Height = nnHeightGrid, ;
        Anchor= 10,;
        Name = "GridCntr3"


********************
* Резайс Формы
********************
PROCEDURE Resize
LOCAL nHFull, nHDelta, nHPart, nHGrid, nT

WITH This
  nHFull= ThisForm.Height &&- .StatLbl.Height
  nHDelta= .RefrCmd2.Top - .FiltGrp1.Top + .RefrCmd1.Height
  nHPart= INT(nHFull/3 - nHDelta)- 5
  nHGrid= nHPart - .RefrCmd2.Height
  IF nHGrid < 20
     RETURN
  ENDIF

  *Грид 1
  .GridCntr1.Height= nHGrid
  nT= .GridCntr1.Top + nHGrid
  .FiltGrp1.Top= nT + 1
  *
  .RefrCmd2.Top= nT + 30

  *Грид 2
  nT= .RefrCmd2.Top + .RefrCmd2.Height + 2
  .GridCntr2.Top= nT
  .GridCntr2.Height= nHGrid
  nT= .GridCntr2.Top + nHGrid
  .FiltGrp2.Top= nT + 1
  *
  .RefrCmd3.Top= nT + 30

  *Грид 3
  nT= .RefrCmd3.Top + .RefrCmd2.Height + 2
  .GridCntr3.Top= nT
  .GridCntr3.Height= nHGrid
  nT= .GridCntr3.Top + nHGrid
  .FiltGrp3.Top= nT + 1

** TEST **  
.StatLbl.Caption= ' Form h:  '+ TRANSFORM(nHFull)+ '  \ Part h:'+ TRANSFORM(nHPart)+ '  \ Grid h:'+ TRANSFORM(nHGrid)+ CHR(13)+;
    '  Gr2.  t:'+ TRANSFORM(.GridCntr2.Top)+ '   h:'+ TRANSFORM(.GridCntr2.Height)+ '   w:'+ TRANSFORM(.GridCntr2.Width)+ CHR(13)+;
    '  Gr3.  t:'+ TRANSFORM(.GridCntr3.Top)+ '   h:'+ TRANSFORM(.GridCntr3.Height)+ '   w:'+ TRANSFORM(.GridCntr3.Width)
** TEST **  
ENDWITH
ENDPROC

********************
PROCEDURE RefrCmd1.CLICK
  ThisForm.Resize
ENDPROC

ENDDEFINE