1. 
 CLASS TKeyData 
 ... 
    _METHOD Destroy() 
  
    ERROR HANDLER ControlAssign 
  
 ENDCLASS 
 /////////////////////////////////////////////////////////////////////////////// 
  
 METHOD ControlAssign( xValue )  CLASS TKeyData 
 LOCAL cMessage, uRet, lError 
  
    cMessage := __GetMessage() 
    lError := .T. 
  
    If PCOUNT() == 0 
       uRet := ::Get( cMessage ) 
       lError := .F. 
    ElseIf PCOUNT() == 1 
       ::Set( SubStr( cMessage, 2 ), xValue ) 
       uRet := ::Get( cMessage ) 
       lError := .F. 
    EndIf 
  
    If lError 
       uRet := Nil 
       ::MsgNotFound( cMessage ) 
    EndIf 
  
 RETURN uRet 
  
 тогда можно так (пример Advanced\Tsb_Basic\demo4.prg line 416) 
          oRec2    := (cAls)->( RecGet() ) 
          nKey2    := oRec2:F0 
          oRec2:F0 := nKey1 
          oRec1:F0 := nKey2 
 ... 
 вместо 
          oRec2 := (cAls)->( RecGet() ) 
          nKey2 := oRec2:Get('F0') 
          oRec2:Set('F0', nKey1) 
          oRec1:Set('F0', nKey2) 
 ... 
 

 
 *-----------------------------------------------------------------------------* 
 #ifndef __XHARBOUR__ 
 FUNCTION _LogFile( lCrLf, ... ) 
 #else 
 FUNCTION _LogFile( ... ) 
 #endif 
 *-----------------------------------------------------------------------------* 
    LOCAL hFile, i, xVal, cTp 
    LOCAL aParams := hb_AParams() 
    LOCAL nParams := Len( aParams ) 
    LOCAL cFile := hb_defaultValue( _SetGetLogFile(), GetStartUpFolder() + "\_MsgLog.txt" ) 
 #ifdef __XHARBOUR__ 
    LOCAL lCrLf 
 #endif 
    IF !Empty( cFile ) 
       hFile := iif( File( cFile ), FOpen( cFile, FO_READWRITE ), FCreate( cFile, FC_NORMAL ) ) 
       IF hFile == F_ERROR 
          RETURN .F. 
       ENDIF 
       FSeek( hFile, 0, FS_END ) 
 #ifdef __XHARBOUR__ 
       IF nParams > 0 
          lCrLf := aParams[ 1 ] 
       ENDIF 
 #endif 
       IF ( lCrLf := hb_defaultValue( lCrLf, .T. ) ) 
          FWrite( hFile, CRLF, 2 ) 
       ENDIF 
  
       IF     nParams == 2 .and. HB_ISNIL(aParams[ 2 ]) .and. lCrLf 
       ELSEIF nParams >  1 
 //         IF lCrlf 
 //            FWrite( hFile, CRLF, 2 ) 
 //         ENDIF 
          FOR i := 2 TO nParams 
             xVal := aParams[ i ] 
             cTp  := ValType( xVal ) 
             IF     cTp == 'C' ; xVal := iif( Empty( xVal ), "'" + "'", Trim( xVal ) ) 
             ELSEIF cTp == 'N' ; xVal := hb_ntos( xVal ) 
             ELSEIF cTp == 'L' ; xVal := iif( xVal, ".T.", ".F." ) 
 #ifdef __XHARBOUR__ 
             ELSEIF cTp == 'D' ; xVal := DToC( xVal ) 
 #else 
             ELSEIF cTp == 'D' ; xVal := hb_DToC( xVal, 'DD.MM.YYYY' ) 
 #endif 
             ELSEIF cTp == 'A' ; xVal := "ARRAY["  + hb_ntos( Len( xVal ) ) + "]" 
             ELSEIF cTp == 'H' ; xVal :=  "HASH["  + hb_ntos( Len( xVal ) ) + "]" 
             ELSEIF cTp == 'B' ; xVal := "'" + "B" + "'" 
             ELSEIF cTp == 'T' ; xVal := hb_TSToStr( xVal, .T. ) 
             ELSEIF cTp == 'U' ; xVal := 'NIL' 
             ELSE              ; xVal := "'" + cTp + "'" 
             ENDIF 
             FWrite( hFile, xVal + Chr( 9 ) ) 
          NEXT 
 //      ELSE 
 //         FWrite( hFile, CRLF, 2 ) 
       ENDIF 
       FClose( hFile ) 
    ENDIF 
  
 RETURN .T. 
 

 
  DEFINE WINDOW test                        ; 
     ......     
     MAIN TOPMOST                           ; 
     ON MAXIMIZE   ( zzzz() )  ; 
     ON SIZE       ( zzzz() )  ; 
     ON SIZE_BEGIN ( хххх() )  ; 
     ON SIZE_END   ( хххх() )  ;

 
    //********************************************************************** 
    CASE WM_ENTERSIZEMOVE 
    //********************************************************************** 
  
       IF ! _HMG_AutoAdjust 
          lEnterSizeMove  := Nil // .T. 
          _HMG_MouseState := 1 
       ENDIF 
 //      EXIT 
    //********************************************************************** 
    CASE WM_SIZE 
    //********************************************************************** 
  
       IF ( ISNIL(lEnterSizeMove) .OR. ! lEnterSizeMove ) .OR. ! iswinnt() 
 //    IF ! lEnterSizeMove .OR. ! iswinnt() 
          IF ISNIL(lEnterSizeMove) 
             lEnterSizeMove  := .T. 
          ENDIF 
  
          ControlCount := Len ( _HMG_aControlHandles ) 
 ... 
    //********************************************************************** 
    CASE WM_EXITSIZEMOVE 
    //********************************************************************** 
  
       lEnterSizeMove := .F. 
       IF ! _HMG_AutoAdjust 
          _HMG_MouseState := 0 
          SendMessage ( hWnd , WM_SIZE , 0 , 0 ) 
       ENDIF 
       EXIT 
 ... 
 тогда результат процедуры в on size выглядит 
 Start - Tsb_export987bcc.exe	 
   Number of records in the table: 1005	 
   Windows 8.1 6.3	 
   Harbour MiniGUI Extended Edition 18.11 (32-bit)	 
   .	 
 RESIZETABLE	VK_LBUTTON	-127	_HMG_MouseState	1	// первый раз 
 RESIZETABLE	VK_LBUTTON	1	_HMG_MouseState	0	// второй раз 
  
 RESIZETABLE	VK_LBUTTON	-128	_HMG_MouseState	1	// первый раз 
 RESIZETABLE	VK_LBUTTON	0	_HMG_MouseState	0	// второй раз 
 ... 
 Пример процедуры on resize  
 STATIC FUNCTION ResizeTable(oBrw) 
  
 ? procname(), 'VK_LBUTTON', WAPI_GETKEYSTATE(VK_LBUTTON), '_HMG_MouseState', _HMG_MouseState 
  
    IF _HMG_MouseState > 0   // первый раз 
    ELSE                     // второй раз 
    ENDIF 
 ... 
 

# включить путь к своим *.ch и  *.fmg   
 -incpath=Include 
 -incpath=Source 
 

 
 ... 
 /* redirect for 4 options handled in LETO_SET(), others forward to SET() */ 
 #ifdef CASESENSITIVE 
 //   #define set( _HB_SETTING, XSET )   LETO_SET( _HB_SETTING, XSET ) 
 //   #define Set( _HB_SETTING, XSET )   LETO_SET( _HB_SETTING, XSET ) 
 #endif 
 //#define SET( _HB_SETTING, XSET )   LETO_SET( _HB_SETTING, XSET )