**********************************************************************
** Максимальная растяжка ФОРМЫ на разные разрешения монитора
** Obj - ссылка на Форму, nHi,nWi - начальная высота и ширина формы, nRez - ширина разрешения
Func FormMax(Obj,nHi,nWi,nRez,nH,nW,lSub)
  Local nBuf,ni,np,nWWW,cBuf
  IF EMPTY(nRez)
    nRez=0
  ENDIF
  nWWW=SYSMETRIC(1)
  IF !lSub
    IF !(TYPE("obj.class")=="C" .AND. UPPER(obj.baseclass)=="FORM")
      RETURN
    ENDIF
    Obj.Top=0
    Obj.Left=0
    nH=Obj.Height
    nW=Obj.Width
    IF nRez==nWWW
      RETURN
    ENDIF  
    IF nH==SYSMETRIC(22)-78 .AND. nW==SYSMETRIC(21)-7
      RETURN
    ENDIF  
    Obj.LockScreen=.T.
    Obj.Height=SYSMETRIC(22)-78
    Obj.Width=SYSMETRIC(21)-7
    nH=Obj.Height/nHi
    nW=Obj.Width/nWi
  ENDIF
  ** Обычные объекты
  ni=1
  DO WHILE TYPE("Obj.Objects(ni).Class")=="C"
  IF TYPE("Obj.Objects(ni).Top")=="N"
    ** Запрет изм ширины колонок
    IF !UPPER(Obj.Objects(ni).Class)="COLUMN" 
      Obj.Objects(ni).Width=Obj.Objects(ni).Width*nW
    ENDIF  
    Obj.Objects(ni).Height=Obj.Objects(ni).Height*nH
    Obj.Objects(ni).Top=Obj.Objects(ni).Top*nH
    Obj.Objects(ni).Left=Obj.Objects(ni).Left*nW
  ENDIF
  IF TYPE("Obj.Objects(ni).FontSize")=="N"
    nBuf=INT(Obj.Objects(ni).FontSize*nW)  
    IF nBuf>4 .AND. nBuf<100
      Obj.Objects(ni).FontSize=nBuf 
    ENDIF  
  ENDIF 
  ** PageFrame
  np=1
  DO WHILE TYPE("Obj.Objects(ni).Pages(np).Class")=="C"
    nBuf=INT(Obj.Objects(ni).Pages(np).FontSize*nW)  
    IF nBuf>4 .AND. nBuf<100
      Obj.Objects(ni).Pages(np).FontSize=nBuf 
    ENDIF  
    np=np+1
  ENDDO
  IF LOWER(Obj.Objects(ni).ParentClass)=="container" 
     =Obj.Objects(ni).Resize()
  ENDIF
  ni=ni+1
ENDDO
IF !lSub
  Obj.LockScreen=.F.
ENDIF 
RETURN

FormMax(Thisform,560,793,800)