CLASS TDlu2Pix 
 ... 
    VAR nL                  INIT 0 
    VAR nT                  INIT 0 
    VAR nR                  INIT 0 
    VAR nB                  INIT 0 
 ... 
   _METHOD GetGaps( aGaps, oWnd ) 
   _METHOD D ( nKfc ) 
 ... 
    ACCESS Bottom         INLINE ::MH() 
    ACCESS LTRB           INLINE { ::nL, ::nT, ::nR, ::nB } 
 ... 
 METHOD GetGaps( aGaps, oWnd )               CLASS TDlu2Pix 
    LOCAL oApp, nGapW, nGapH, n 
  
    If HB_ISCHAR(oWnd); oWnd := _WindowObj(oWnd) 
    EndIf 
     
    oApp  := iif( Empty(oWnd), Self           , oWnd:App ) 
    nGapW := iif( Empty(oWnd), oApp:GapsWidth , oWnd:GapsWidth  ) 
    nGapH := iif( Empty(oWnd), oApp:GapsHeight, oWnd:GapsHeight ) 
  
    If HB_ISNUMERIC(aGaps) 
       n     := aGaps 
       aGaps := array(4) 
       AFill(aGaps, n) 
    EndIf 
     
    DEFAULT aGaps := { 0, 0, nGapW, nGapH } 
     
    ::nL := 0 
    ::nT := 0 
    ::nR := 0 
    ::nB := 0 
     
    If Len(aGaps) == 2 
       If ! HB_ISNUMERIC(aGaps[1]); aGaps[1] := nGapW 
       EndIf 
       If ! HB_ISNUMERIC(aGaps[2]); aGaps[2] := nGapH 
       EndIf 
       ::nL := aGaps[1] 
       ::nR := aGaps[1] 
       ::nT := aGaps[2] 
       ::nB := aGaps[2] 
    Else 
       If Len(aGaps) != 4; ASize(aGaps, 4) 
       EndIf 
       If ! HB_ISNUMERIC(aGaps[1]); aGaps[1] := nGapW 
       EndIf 
       If ! HB_ISNUMERIC(aGaps[2]); aGaps[2] := nGapH 
       EndIf 
       If ! HB_ISNUMERIC(aGaps[3]); aGaps[3] := nGapW 
       EndIf 
       If ! HB_ISNUMERIC(aGaps[4]); aGaps[4] := nGapH 
       EndIf 
       ::nL := aGaps[1] 
       ::nT := aGaps[2] 
       ::nR := aGaps[3] 
       ::nB := aGaps[4] 
    EndIf 
     
    If '.' $ hb_ntos(::nL); ::nL := oApp:GW( ::nL ) 
    EndIf 
  
    If '.' $ hb_ntos(::nT); ::nT := oApp:GH( ::nT ) 
    EndIf 
     
    If '.' $ hb_ntos(::nR); ::nR := oApp:GW( ::nR ) 
    EndIf 
     
    If '.' $ hb_ntos(::nB); ::nB := oApp:GH( ::nB ) 
    EndIf 
  
    aGaps[1] := ::nL 
    aGaps[2] := ::nT 
    aGaps[3] := ::nR 
    aGaps[4] := ::nB 
  
 RETURN aGaps 
 ... 
 Тогда в примере demo_misc.prg 
 #include "demo.ch" 
  
 *-----------------------------------------------------------------------------* 
 FUNCTION _SetGaps( aGaps, oWnd ) 
 *-----------------------------------------------------------------------------* 
 RETURN (App.Object):GetGaps( aGaps, oWnd ) 
 ... 
 

 
 i_altsyntax.ch 
 #xcommand END BUTTON [ ON INIT <bInit> ] ; 
 ... 
           _HMG_ActiveControlId, ; 
           <bInit> ) ) 
 ... 
 #xcommand END BUTTONEX [ ON INIT <bInit> ] ; 
 ... 
           _HMG_ActiveControlHorizontal,; 
           <bInit> ) 
 ... 
 #xcommand END GETBOX [<o: OBJ,OBJECT> <var>] [ ON INIT <binit> ] ; 
 ... 
          .NOT. _HMG_ActiveControlBorder,; 
          <binit> ) 
 ... 
 #xcommand END LABEL [ ON INIT <bInit> ] ; 
 ... 
       _HMG_ActiveControlId,; 
       <bInit> ) 
 ... 
 i_button.ch 
 ... 
 #xcommand @ <row>,<col> BUTTONEX <name> ; 
 ... 
       [ <default: DEFAULT> ] ; 
       [ ON INIT <bInit> ] ; 
 ... 
       <imageheight>, <aGradInfo>, <.horizontal.>, <bInit> ) 
 ... 
 i_getbox.ch 
 ... 
 #command @ <row>, <col> GETBOX <name>   ; 
 ... 
         [ HELPID <helpid> ]             ; 
         [ ON INIT <bInit> ]              ; 
 ... 
             <{action2}>, <abitmap>, <btnwidth>, <.nominus.>, <.noborder.>, <bInit> ) 
 ... 
 i_label.ch 
 ... 
 #command @ <row>,<col> LABEL <name> ; 
 ... 
    [ <noprefix: NOPREFIX> ] ; 
    [ ON INIT <bInit> ] ; 
 ... 
    <nId>, ; 
    <bInit> ) 
 ... 
 h_button.prg 
 ... 
 FUNCTION _DefineOwnerButton ( ControlName, ParentForm, x, y, Caption, ; 
 ... 
    ladjust, handcursor, imagewidth, imageheight, aGradInfo, lhorizontal, bInit ) 
 ... 
    LOCAL k 
    LOCAL oc, ow 
 ... 
  
    IF _HMG_lOOPEnabled 
       Eval ( _HMG_bOnControlInit, k, mVar ) 
       ow := _WindowObj ( ParentForm ) 
       oc := _ControlObj( ControlHandle    ) 
    ENDIF 
  
    Do_ControlEventProcedure ( bInit, k, oc, ow ) 
  
 RETURN Nil 
 ... 
 h_getbox.prg 
 ... 
 FUNCTION _DefineGetBox ( ControlName, ParentFormName, x, y, w, h, Value, ; 
 ... 
    when, ProcedureName, ProcedureName2, abitmap, BtnWidth, lNoMinus, noborder, ; 
    bInit ) 
 ... 
    LOCAL k, Style, aPicData, oGet 
    LOCAL oc, ow 
 ... 
    IF _HMG_lOOPEnabled 
       Eval ( _HMG_bOnControlInit, k, mVar ) 
       ow := _WindowObj ( ParentFormHandle ) 
       oc := _ControlObj( ControlHandle ) 
    ENDIF 
  
    Do_ControlEventProcedure ( bInit, k, oGet, oc, ow ) 
  
 RETURN oGet 
 ... 
 h_label.prg 
 ... 
 FUNCTION _DefineLabel ( ControlName, ParentFormName, x, y, Caption, w, h, ; 
 ... 
    LOCAL lDialogInMemory 
    LOCAL oc, ow 
 ... 
    IF autosize == .T. .AND. .NOT. lDialogInMemory 
       _SetControlWidth ( ControlName , ParentFormName , GetTextWidth( NIL, Caption, FontHandle ) + ; 
          iif( bold == .T. .OR. italic == .T., GetTextWidth( NIL, " ", FontHandle ), 0 ) ) 
       _SetControlHeight ( ControlName , ParentFormName , FontSize + iif( FontSize < 14, 12, 16 ) ) 
    ENDIF 
  
    IF _HMG_lOOPEnabled 
       Eval ( _HMG_bOnControlInit, k, mVar ) 
       ow := _WindowObj ( ParentFormHandle ) 
       oc := _ControlObj( ControlHandle ) 
    ENDIF 
  
    Do_ControlEventProcedure ( bInit, k, oc, ow ) 
  
 RETURN Nil 
 ... 
 и т.д. 
  
 Тогда в примере так пишем 
 demo.prg 
 ... 
 //      :Y += :GapsHeight 
       :X := :Left 
       DEFINE GETBOX Text_2c    // Alternate Syntax 
           ROW    :Y += :GapsHeight 
           COL    :X 
           WIDTH  :W() 
           HEIGHT :H()  
           VALUE "MyPass" 
           PICTURE "@K !!!!!!!!!" 
           BACKCOLOR   :O:BColorGet  
           FONTCOLOR   :O:FColorGet  
           VALID {|| ( len(alltrim(This.Value)) >= 4)} 
           TOOLTIP "Character input PASSWORD clause is set" 
           VALIDMESSAGE "Password must contains minimum 4 characters" 
           MESSAGE "Enter password (min 4 char.) " 
           PASSWORD .T. 
       END GETBOX ON INIT {|og,oc,ow| ow:Y += This.Height + ow:GapsHeight } 
 //      :Y += This.Text_2c.Height + :GapsHeight 
        
       :O:aFrm[4] := :Y - :O:aFrm[1] 
 ... 
 По др. контролам аналогично. Используется среда контрола в ON INIT.