* Fixed: Missed 'XObject' property reference in the GetProperty() function. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demos in folder \samples\Advanced\GoogleCharts) 
   * Modified: Added Min and Max range for the NON CLIENT attributes of windows 
            according to the Windows requirements. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Enhanced: Added the useful function EnumChildWindows( hWnd [, lExt] ) for 
            retrieving of array of the child windows for a parent window handle. 
            This implementation is compatible with Official HMG if a second 
            parameter is false (default value). 
            Based upon a contribution of Petr Chornyj <myorg63/at/gmail.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see SumatraPDF.prg in folder \samples\Advanced\PdfView) 
   * Updated: Synchronized Extended HMG for compatibility with Official HMG: 
            - New: SET DIALOGBOX POSITION: Sets the position of the dialog boxes 
              (GetColor, GetFile, GetFolder, GetFont, MessageBoxTimeout, MsgXXX, 
              PutFile, SELECT PRINTER, etc.) 
              Added the following commands: 
            - SET DIALOGBOX [ POSITION ] ROW <nRow>|<@VarCodeBlockRow>|<NIL> ; 
              COL <nCol>|<@VarCodeBlockCol>|<NIL> 
            - SET DIALOGBOX [ POSITION ] CENTER OF PARENT 
            - SET DIALOGBOX [ POSITION ] CENTER OF <hWnd> 
            - SET DIALOGBOX [ POSITION ] CENTER OF DESKTOP 
            - SET DIALOGBOX [ POSITION ] DISABLE 
            Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\MoveDialogBox) 
   * Updated: 'MiniGUI Extended Edition Common Commands' list: 
            - added the recent entered commands. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at commands.txt in folder \Doc) 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: 
            - New: added the optional OBJ clause in DEFINE TBROWSE command. 
            - New: added the optional ALIAS clause in DEFINE COLUMN command and 
              the variable :cField in TSColumn class. 
            - New: methods DefColor()(), DefFont() and Clone() in TSColumn class. 
            - New: methods SaveProperty() and RestProperty() in TSColumn class. 
            - New: methods SetProperty() and GetProperty() in TSColumn class. 
            - Updated: improved the methods GetValue(xCol) and SetValue(xCol, xVal). 
            - Updated: improved a colors processing with using of aColors items 
              number, f.e. 
              { CLR_TEXT, RGB( fontcolor[1], fontcolor[2], fontcolor[3] ) } 
              { CLR_PANE, RGB( backcolor[1], backcolor[2], backcolor[3] ) }. 
            Suggested and contributed by Sergej Kiselev 
            (see demo in folder \samples\Advanced\APP_OOPCOLUMNS) 
   * New: 'Using DEFINE COLUMN commands as container for design of TBROWSE' sample. 
            Contributed by Sergej Kiselev 
            (see in folder \samples\Advanced\APP_OOPCOLUMNS) 
   * New: 'Get Tasks' sample is based on calling of EnumChildWindows() function. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\GETTASKS) 
   * New: 'Google Charts' samples: using of a static image and a html file. 
            Based upon a contribution of HMG user Edward. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\GoogleCharts) 
   * New: 'TSBrowse Export data to XLS/XML/DOC/DBF files with a coloring' sample. 
            Contributed by Verchenko Andrey <verchenkoag@gmail.com> 
            (see in folder \samples\Advanced\Tsb_Export) 
   * Updated: 'Move a standard dialog box in the screen' sample: 
            - added an example of centering of the GetFolder() dialog related to 
              an application's window. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\MoveDialogBox) 
   * Updated: The following samples are revised for compatibility with the recent 
            Minigui modification: 
            - demo2.prg in folder \samples\Advanced\ExternalApp_3; 
            - demo3.prg in folder \samples\Basic\TaskDialogs\TTaskDialog. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
 

 
 #include "Minigui.ch"  
    
 *************  
 function MAIN  
 *************  
 SET OOP ON 
   
 DEFINE WINDOW cDlgMain AT 0 , 0 WIDTH 400 HEIGHT 300 TITLE "Main" MAIN  
  
 WITH OBJECT This.Object            // ---- Window events 
 :Event( 01, {|ow   | Modal_1(ow)     } ) 
 :Event( 99, {|ow   | ow:Release()    } ) 
 END WITH                           // ---- Window events 
  
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal 1"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(1)  
 END BUTTONEX  
   
 DEFINE BUTTONEX ButtonEX_2  
 	ROW 225  
 	COL 219  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "&Quit"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(99)  
 END BUTTONEX  
   
 END window  
   
 cDlgMain.center  
 cDlgMain.activate  
   
 return NIL  
   
 *************************  
 static function MODAL_1( oParent ) 
 *************************  
 LOCAL y := App.Row+40 
 LOCAL x := App.Col+40 
   
 DEFINE WINDOW cModal1 AT y, x WIDTH 400 HEIGHT 300 TITLE "Modal 1" MODAL  
  
 WITH OBJECT This.Object            // ---- Window events 
 :Event( 01, {|ow   | _HMG_aFormFocused [ ow:Index ] := .F., ; 
                      Modal_2(ow)     } ) 
 :Event( 02, {|ow   | _HMG_aFormFocused [ ow:Index ] := .T., ; 
                      oParent:SetFocus('ButtonEX_1') } ) 
 :Event( 99, {|ow   | ow:Release()    } ) 
 END WITH                           // ---- Window events 
  
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal 2"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(1)  
 END BUTTONEX  
  
 DEFINE BUTTONEX ButtonEX_2 
 	ROW 225  
 	COL 219                           
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Focus Main"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(2)  
 END BUTTONEX  
   
 END window  
   
 Activate window cModal1 
   
 return NIL  
   
 *************************  
 static function MODAL_2( oParent ) 
 *************************  
 LOCAL y := App.Row+80 
 LOCAL x := App.Col+80 
   
 DEFINE WINDOW cModal2 AT y, x WIDTH 400 HEIGHT 300 TITLE "Modal 2" MODAL  
  
 WITH OBJECT This.Object            // ---- Window events 
 :Event( 01, {|ow| _HMG_aFormFocused [ ow:Index ] := .T., ; 
                    oParent:SetFocus('ButtonEX_1') } ) 
 :Event( 99, {|ow| ow:Release()    } ) 
 END WITH                           // ---- Window events 
  
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79                           
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Focus Modal 1"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(1)  
 END BUTTONEX  
   
 END window  
   
 Activate window cModal2 
   
 return NIL  
   

 
 *************************  
 static function MODAL_2( oParent ) 
 *************************  
 LOCAL y  := App.Row+80 
 LOCAL x  := App.Col+80 
 LOCAL lM := _HMG_IsModalActive 
 LOCAL hM := _HMG_ActiveModalHandle 
  
 _HMG_IsModalActive     := .F. 
 _HMG_ActiveModalHandle := 0 
  
 DEFINE WINDOW cModal2 AT y, x WIDTH 400 HEIGHT 300 TITLE "Child"   CHILD ; 
    ON LOSTFOCUS do_Obj(ThisWindow.Handle, {|ow| ow:PostMsg(99) }) 
  
 WITH OBJECT This.Object            // ---- Window events 
 :Event( 01, {|ow| oParent:SetFocus('ButtonEX_1') } ) 
 :Event( 99, {|ow| ow:Release()    } ) 
 END WITH                           // ---- Window events 
  
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79                           
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Focus Modal 1"  
 	ICON NIL  
 	ACTION (ThisWindow.Object):PostMsg(01)  
 END BUTTONEX  
   
 END window  
   
 Activate window cModal2 
   
 _HMG_IsModalActive     := lM 
 _HMG_ActiveModalHandle := hM 
 oParent:SetFocus('ButtonEX_1') 
  
 return NIL  
 

 
 #include "Minigui.ch"  
    
 *************  
 function MAIN  
 *************  
   
 DEFINE WINDOW wMain AT 0 , 0 WIDTH 400 HEIGHT 300 TITLE "Main" MAIN  
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal"  
 	ICON NIL  
 	ACTION MODAL()  
 END BUTTONEX  
   
 DEFINE BUTTONEX ButtonEX_2  
 	ROW 225  
 	COL 219  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "&Quit"  
 	ICON NIL  
 	ACTION ThisWindow.release  
 END BUTTONEX  
   
 END window  
   
 wMain.center  
 wMain.activate  
   
 return NIL  
   
 *************************  
 static function MODAL() 
 *************************  
 DEFINE WINDOW wModal AT 0, 0 WIDTH 100 HEIGHT 100 TITLE "Modal" MODAL ;  
  
 _HMG_aFormFocused [ This.Index ] := .T. 
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 20  
 	COL 40  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "To wMain"  
 	ICON NIL  
 	ACTION wMain.ButtonEX_1.SetFocus() 
 END BUTTONEX  
   
 END window  
   
 wModal.center  
 wModal.activate 
   
 return NIL  
 

 
 #include "Minigui.ch"  
    
 *************  
 function MAIN  
 *************  
   
 DEFINE WINDOW wMain AT 0 , 0 WIDTH 400 HEIGHT 300 TITLE "Main" MAIN  
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal"  
 	ICON NIL  
 	ACTION MODAL()  
 END BUTTONEX  
   
 DEFINE BUTTONEX ButtonEX_2  
 	ROW 225  
 	COL 219  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "&Quit"  
 	ICON NIL  
 	ACTION ThisWindow.release  
 END BUTTONEX  
   
 END window  
   
 wMain.center  
 wMain.activate  
   
 return NIL  
   
 *************************  
 static function MODAL() 
 *************************  
 DEFINE WINDOW wModal AT 0, 0 WIDTH 200 HEIGHT 200 TITLE "Modal" MODAL 
  
 _HMG_aFormFocused [ This.Index ] := .T. 
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 20  
 	COL 40  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal 2"  
 //	CAPTION "Child"  
 	ICON NIL  
 	ACTION MODAL2() 
 //	ACTION CHILD()  
 END BUTTONEX  
   
 END window  
   
 wModal.center  
 wModal.activate 
   
 return NIL  
  
 *************************  
 static function MODAL2() 
 *************************  
 DEFINE WINDOW wModal2 AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Modal 2" MODAL 
  
 END window  
   
 wModal2.center  
 wModal2.activate 
   
 return NIL  
  
 *************************  
 static function CHILD() 
 *************************  
 DEFINE WINDOW wChild AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Child" CHILD 
  
 END window  
   
 wChild.center  
 wChild.activate 
   
 return NIL  
 

 
 #include "Minigui.ch"  
    
 *************  
 function MAIN  
 *************  
 SET OOP ON 
   
 DEFINE WINDOW wMain AT 0 , 0 WIDTH 400 HEIGHT 300 TITLE "Main" MAIN  
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 225  
 	COL 79  
 	WIDTH 100  
 	HEIGHT 30  
 	CAPTION "Modal"  
 	ICON NIL  
 	ACTION MODAL()  
 END BUTTONEX  
   
 DEFINE BUTTONEX ButtonEX_2  
 	ROW 225  
 	COL 219  
 	WIDTH 100  
 	HEIGHT 30  
 //	CAPTION "&Quit"  
 	CAPTION "Child"  
 	ICON NIL  
 	ACTION CHILD2( This.Name )  
 //	ACTION ThisWindow.release  
 END BUTTONEX  
   
 END window  
   
 wMain.center  
 wMain.activate  
   
 return NIL  
   
 *************************  
 static function MODAL() 
 *************************  
 DEFINE WINDOW wModal AT 0, 0 WIDTH 200 HEIGHT 200 TITLE "Modal" MODAL 
  
 // _HMG_aFormFocused [ This.Index ] := .T. 
   
 DEFINE BUTTONEX ButtonEX_1  
 	ROW 20  
 	COL 40  
 	WIDTH 100  
 	HEIGHT 30  
 //	CAPTION "Modal 2"  
 	CAPTION "Child"  
 	ICON NIL  
 //	ACTION MODAL2() 
 	ACTION CHILD2( This.Name )  
 END BUTTONEX  
   
 END window  
   
 wModal.center  
 wModal.activate 
   
 return NIL  
  
 *************************  
 static function MODAL2() 
 *************************  
 DEFINE WINDOW wModal2 AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Modal 2" MODAL 
  
 END window  
   
 wModal2.center  
 wModal2.activate 
   
 return NIL  
  
      
 *************************    
 static function CHILD()   
 *************************   
  
 if IsWindowDefined(wChild)  
    doMethod("wChild", "HIDE")  
    doMethod("wChild", "SHOW")  
    doMethod("wChild", "SETFOCUS")  
    return NIL  
 endif  
  
 DEFINE WINDOW wChild AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Child" CHILD ;  
  NOMAXIMIZE NOMINIMIZE  
    
 define timer t_1 interval 50 action doMethod("wChild", "SETFOCUS") once  
  
 END window  
     
 wChild.center    
 activate window wChild NOWAIT  
  
 DO MESSAGELOOP  
   
 return NIL  
  
 *************************    
 static function CHILD2( cFocusName )   
 *************************   
 LOCAL oParent := ThisWindow.Object 
 LOCAL lM 
 LOCAL hM 
  
 If oParent:Type == 'M' 
    lM := _HMG_IsModalActive     
    hM := _HMG_ActiveModalHandle 
    _HMG_IsModalActive     := .F. 
    _HMG_ActiveModalHandle := 0 
 Endif 
  
 DEFINE WINDOW wChild AT 0 , 0 WIDTH 100 HEIGHT 100 TITLE "Child" CHILD ;  
  NOMAXIMIZE NOMINIMIZE  
  
 END window  
     
 wChild.center    
 wChild.activate 
  
 If oParent:Type == 'M' 
    _HMG_IsModalActive     := lM 
    _HMG_ActiveModalHandle := hM 
 Endif 
  
 oParent:SetFocus(cFocusName) 
  
 return NIL  
 

  * Enhanced: DATEPICKER/TIMEPICKER supports BackColor definition for text box 
            (based upon the undocumented trick with an erase background event). 
            Warning: this feature will work at NO THEMED WinXP or earlier only. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\DatePicker) 
   * Enhanced: The Grid control supports the optional COLUMNWIDTHLIMITS clause 
            and corresponding ON DRAGHEADERITEMS event. 
            Above clause specifies the limits for the column's width which will 
            allowed at the dragging of a column's border via a mouse. 
            Syntax: 
              @ <row>,<col> GRID <name> [ OF <parent> ] ; 
              [ WIDTH <nWidth> ] [ HEIGHT <nHeight> ] ; 
              [ HEADERS <aHeaders> ] [ WIDTHS <aWidths> ] ; 
              [ ITEMS <aItems> ] [ VALUE <value> ] 
              [ COLUMNWIDTHLIMITS <aWidthLimits> ] 
              [ ON DRAGHEADERITEMS <bAction> ] 
            where the array aWidthLimits should have the following values 
              for an each column: { nMinWidth, nMaxWidth } or NIL. 
            The DRAGHEADERITEMS event will be executed after a changing of 
            a header item's position. 
            Based upon a contribution of HMG user KDJ. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\Grid_ColumnsWidth) 
   * Enhanced: The 'System' and 'Application' objects supports the following 
            read only properties: 
            - System.ClientWidth 
            - System.ClientHeight 
            - Application.FontName 
            - Application.FontSize 
            Contributed by Sergej Kiselev 
            (see demo in folder \samples\Advanced\APP_OOPTSBBOX) 
   * Updated: Minor modifications for compatibility with Viktor's Harbour fork 
            3.4.0 and Borland/Embarcadero C++ 7.3 (32-bit). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.25.0dev (from 3.24.0). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HMGS-IDE v.1.4.3.4 Project Manager and Two-Way Visual Form Designer. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look for what's new at changelog.txt in folder \Ide) 
   * New: 'TSBrowse OOP TSBBOX usage' sample. 
            Contributed by Sergej Kiselev 
            (see in folder \samples\Advanced\APP_OOPTSBBOX) 
   * New: 'TSBrowse ListBox custom class usage' sample. 
            Contributed by Igor Nazarov. 
            Revised by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\Tsb_ListBox) 
   * Updated: 'Print Pie Graph' sample: updated the data for June 2018. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\GraphPrint) 
   * Updated: 'Grid Columns Width' sample by HMG user KDJ. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\Grid_ColumnsWidth) 
   * Updated: 'TSBrowse Demo' sample: 
            - fixed the internal function ComboBrowse(). 
            The bugs were reported by Sylvain Larche. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\TSBrowse) 
 

 
 METHOD Edit( uVar, nCell, nKey, nKeyFlags, cPicture, bValid, nClrFore, ; 
 ... 
    Default ::nHeightSuper := 0, ; 
            nKey           := VK_RETURN, ; 
            nKeyFlags      := 0, ; 
            uVar           := ::bDataEval( oCol ), ;  // Eval( oCol:bData ), ; 
            cPicture       := oCol:cPicture, ; 
 ... 
 //       If ValType( Eval( oCol:bData ) ) == "N" 
          If ValType( ::bDataEval( oCol ) ) == "N" 
             nWidth := 0 
             Aeval( aGet, { |x| nWidth := Max( Len(x), nWidth ) } ) 
             nWidth := Max( GetTextWidth( 0, Replicate( 'B', nWidth ), hFont ), oCol:nWidth ) 
          EndIf 
 ... 
 METHOD Excel2( cFile, lActivate, hProgress, cTitle, lSave, bPrintRow ) CLASS TSBrowse 
 ... 
       cPic := '' 
 //    cType := If( Empty( ::aColumns[ nCol ]:cDataType ), ValType( Eval( ::aColumns[ nCol ]:bData ) ), ::aColumns[ nCol ]:cDataType ) 
       cType := If( Empty( ::aColumns[ nCol ]:cDataType ), ValType( ::bDataEval( ::aColumns[ nCol ] ) ), ::aColumns[ nCol ]:cDataType ) 
       if cType == 'N' .and.  !Empty( ::aColumns[ nCol ]:cPicture ) 
 ... 
       For nCol := 1 To Len( ::aColumns ) 
  
          If ::aColumns[ nCol ]:lBitMap 
             Loop 
          EndIf 
  
 //       uData  := Eval( ::aColumns[ nCol ]:bData ) 
          uData  := ::bDataEval( ::aColumns[ nCol ] ) 
          nAlign := LoWord( ::aColumns[ nCol ]:nAlign ) 
 ... 
 METHOD ExcelOle( cXlsFile, lActivate, hProgress, cTitle, hFont, lSave, bExtern, aColSel, bPrintRow ) CLASS TSBrowse 
 ... 
       For nCol := 1 To Len( ::aColumns ) 
          If aColSel != Nil .and. AScan( aColSel, nCol ) == 0 
             Loop 
          EndIf 
  
 //       uData := Eval( ::aColumns[ nCol ]:bData ) 
          uData := ::bDataEval( ::aColumns[ nCol ] ) 
  
          If ValType( uData ) == "C" 
 ... 
 METHOD KeyChar( nKey, nFlags )  CLASS TSBrowse 
 ... 
    If ::lAppendMode 
       Return 0 
    EndIf 
  
    ::lNoPaint := .F. 
 // cTypeCol := iif( ::nLen == 0, "U", ValType( Eval( ::aColumns[ ::nCell ]:bData ) ) ) // Modificado por Carlos 
    cTypeCol := iif( ::nLen == 0, "U", ValType( ::bDataEval( ::aColumns[ ::nCell ] ) ) ) // Modificado por Carlos 
  
    If Upper( ::aMsg[ 1 ] ) == "YES" 
 ... 
 METHOD KeyDown( nKey, nFlags ) CLASS TSBrowse 
 ... 
          ElseIf ::lCellBrw .and. ( nKey == VK_COPY .or. nKey == VK_INSERT ) 
 //          uTemp := cValToChar( Eval( ::aColumns[ nCol ]:bData ) ) 
             uTemp := cValToChar( ::bDataEval( ::aColumns[ nCol ] ) ) 
             CopyToClipboard( uTemp ) 
             SysRefresh() 
 ... 
          nCol := ::nColSpecHd 
          If Empty(uTemp) 
 //          cType := ValType( Eval( ::aColumns[ nCol ]:bData ) ) 
             cType := ValType( ::bDataEval( ::aColumns[ nCol ] ) ) 
             If cType $ "CM" 
 //             uTemp := Space( Len( Eval( ::aColumns[ nCol ]:bData ) ) ) 
                uTemp := Space( Len( ::bDataEval( ::aColumns[ nCol ] ) ) ) 
             ElseIf cType == "N" 
 ... 
          ElseIf ::lAppendMode .and. ::aDefault != Nil 
  
             If Len( ::aDefault ) < Len( ::aColumns ) 
                ASize( ::aDefault, Len( ::aColumns ) ) 
             EndIf 
  
             uTemp := If( ::aDefault[ nCol ] != Nil, If( ValType( ::aDefault[ nCol ] ) == "B", ; 
                          Eval( ::aDefault[ nCol ], Self ), ::aDefault[ nCol ] ), ::bDataEval( ::aColumns[ nCol ] ) ) 
 //                       Eval( ::aDefault[ nCol ], Self ), ::aDefault[ nCol ] ), Eval( ::aColumns[ nCol ]:bData ) ) 
          Else 
  
 //          uTemp := Eval( ::aColumns[ nCol ]:bData ) 
             uTemp := ::bDataEval( ::aColumns[ nCol ] ) 
 ...    
 METHOD PostEdit( uTemp, nCol, bValid ) CLASS TSBrowse 
 ... 
       If Eval( If( ! ::lAppendMode, bRecLock, bAddRec ), uTemp ) 
  
 //       Eval( ::aColumns[ nCol ]:bData, uTemp, Self ) 
          ::bDataEval( ::aColumns[ nCol ], uTemp ) 
          SysRefresh() 
  
          If lAppend 
  
             If ! Empty( ::aDefault ) 
                ASize( ::aDefault, Len( ::aColumns ) ) 
                AEval( ::aDefault, { | e, n | If( e != Nil .and. n != nCol, If( Valtype( e ) == "B", ; 
                       ::bDataEval( ::aColumns[ n ], Eval( e, Self ) ), ; 
                       ::bDataEval( ::aColumns[ n ], e ) ), Nil ) } ) 
 //                    Eval( ::aColumns[ n ]:bData, Eval( e, Self ) ), ; 
 //                    Eval( ::aColumns[ n ]:bData, e ) ), Nil ) } ) 
                ::DrawLine() 
             EndIf 
 ... 
       EndIf 
  
 //    Eval( ::aColumns[ nCol ]:bData, uTemp ) 
       ::bDataEval( ::aColumns[ nCol ], uTemp ) 
       SysRefresh() 
  
       If ::aColumns[ nCol ]:bPostEdit != Nil 
          Eval( ::aColumns[ nCol ]:bPostEdit, uTemp, Self, lAppend ) 
       EndIf 
  
       ::lEditing  := .F. 
       ::lPostEdit := .F. 
  
       If lAppend 
          If ! Empty( ::aDefault ) 
             ASize( ::aDefault, Len( ::aColumns ) ) 
             AEval( ::aDefault, { | e, n | If( e != Nil .and. n != nCol, If( Valtype( e ) == "B", ; 
                    ::bDataEval( ::aColumns[ n ], Eval( e, Self ) ), ::bDataEval( ::aColumns[ n ], e ) ), Nil ) } ) 
 //                 Eval( ::aColumns[ n ]:bData, Eval( e, Self ) ), Eval( ::aColumns[ n ]:bData, e ) ), Nil ) } ) 
          EndIf 
          ::DrawLine() 
       EndIf 
 ... 
 Static Function RecordBrowse( oBrw ) 
 ... 
    For Each oCol In oBrw:aColumns 
 //    AAdd( aArr, { oCol:cHeading, Eval( oCol:bData ) } ) 
       AAdd( aArr, { oCol:cHeading, oBrw:bDataEval( oCol ) } ) 
    Next 
 ...