CLASS TWndData 
 ... 
    VAR oProp             AS OBJECT 
    VAR oName             AS OBJECT 
    VAR oHand             AS OBJECT  
 ... 
    METHOD Def( nIndex, cName, nHandle, nParent, cType, cVar )  INLINE ( ; 
 ... 
       ::oEvent  := oKeyData( Self ), ::oUserKeys := oKeyData(),         ; 
       ::oName   := oKeyData(),       ::oHand     := oKeyData(),         ; 
       ::oProp   := oKeyData(),                                          ; 
       hmg_SetWindowObject( ::nHandle, Self ),                           ; 
 ... 
 CLASS TCnlData   INHERIT TWndData 
 ... 
    METHOD Set()            INLINE ( iif( HB_ISOBJECT( ::oWin:oName ), ::oWin:oName:Set( ::cName  , Self ), ), ; 
                                     iif( HB_ISOBJECT( ::oWin:oHand ), ::oWin:oHand:Set( ::nHandle, Self ), ) ) 
    METHOD Del()            INLINE ( iif( HB_ISOBJECT( ::oWin:oName ), ::oWin:oName:Del( ::cName   ), ),  ; 
                                     iif( HB_ISOBJECT( ::oWin:oHand ), ::oWin:oHand:Del( ::nHandle ), ) ) 
  
    METHOD Get( xName )     INLINE iif( HB_ISCHAR( xName ), ::oWin:oName:Get( xName ), ; 
                                                            ::oWin:oHand:Get( xName ) ) 
  
    METHOD GetListType()               INLINE ::oWin:GetListType() 
    METHOD GetObj4Type( cType, lEque ) INLINE ::oWin:GetObj4Type( cType, lEque ) 
    METHOD GetObj4Name( cName )        INLINE ::oWin:GetObj4Name( cName ) 
    METHOD SetProp( xKey, xVal )       INLINE ::oWin:oProp:Set( xKey, xVal ) 
    METHOD GetProp( xKey       )       INLINE ::oWin:oProp:Get( xKey       ) 
    METHOD DelProp( xKey       )       INLINE ::oWin:oProp:Del( xKey       )  
 ... 
    METHOD Destroy()        INLINE ( ::Del(),                                                    ; 
 ... 
       ::oUserKeys     := iif( HB_ISOBJECT( ::oUserKeys     ), ::oUserKeys:Destroy()    , Nil ), ; 
       ::oName         := iif( HB_ISOBJECT( ::oName         ), ::oName:Destroy()        , Nil ), ; 
       ::oHand         := iif( HB_ISOBJECT( ::oHand         ), ::oHand:Destroy()        , Nil ), ; 
       ::nParent := ::nIndex := ::cName := ::cType := ::cVar := ::cChr := Nil,                   ; 
 ... 
 Перенес изменения из Вашей hmg в свою lib. В пример с :UaerKeys добавил  
 				ITEM 'Item main menu 1.8'	ACTION This_Msg( oWnd:GetListType(), 'ALL TYPE' ) NAME M_1_8 IMAGE 'n8' 
 				ITEM 'Item main menu 1.9'	ACTION Modal_Click()                              NAME M_1_9 IMAGE 'n9' 
 				SEPARATOR 
 ... 
      @ nY, nX BUTTONEX FRM_3 PICTURE 'n3' CAPTION "" ; 
               ACTION ( oWnd:UserKeys( This.Name ),   ; 
                        This_Msg( (This.Object):GetListType(), 'ALL TYPE' ), ;  
                        oBrw1:SetFocus() ) ; 
               WIDTH 50 HEIGHT 50 ; 
 ... 
 *-----------------------------------------------------------------------------* 
 Procedure Modal_CLick 
 *-----------------------------------------------------------------------------* 
  
 	DEFINE WINDOW Form_2 ; 
 		AT 0,0 ; 
 		WIDTH 430 HEIGHT 400 ; 
 		TITLE 'Modal Window '  ; 
 		MODAL ; 
 		NOSIZE ; 
 		FONT 'Arial' ; 
 		SIZE 10 ; 
  
 		@ 15,10 LABEL Label_1 ; 
 		VALUE 'F1' AUTOSIZE 
  
 		@ 45,10 LABEL Label_2 ; 
 		VALUE 'F2' AUTOSIZE 
 	 
 		@ 80,10 BUTTON Button_0 CAPTION 'All Type' ; 
 		ACTION MsgDebug( (This.Object):GetListType(), 'ALL TYPE' )  
  
 	END WINDOW 
  
 	Form_2.Center 
 	Form_2.Activate 
  
 Return 
  
 Работает как надо. 
 Пробовал пересобрать Вашу сборку ... не сошлось что то. 
 

 
 /* 
  * Harbour MiniGUI Demo 
  * (c) 2017  
 */ 
  
 #include "minigui.ch"  
 #include "hbclass.ch" 
  
 #define _METHOD METHOD 
  
 MEMVAR oApp, oMain, oWnd 
  
 /////////////////////////////////////////////////////////////////////////// 
 FUNCTION Main( ... ) 
    LOCAL cTx, nY := 10, nX := 10 
  
    SET OOP ON 
  
    PUBL oApp := oAppData( "DataBase", "MyProg", 100 ) 
  
    IF oApp:Error 
       MsgStop( "Application events not create !", "ERROR" ) 
       QUIT 
    ENDIF 
  
    WITH OBJECT oApp 
  
      :Event( 1, {|oa,ky| cTx := '', AEval({ oa:Desktop,      ; 
                                             oa:MyDocuments,  ; 
                                             oa:ProgramFiles, ; 
                                             oa:System,       ; 
                                             oa:Windows,      ; 
                                             oa:Temp },       ; 
                 {|ct,ni| cTx += hb_ntos(ni)+'. '+ct+CRLF }), ; 
             MsgBox(cTx, "System path. Event="+hb_ntos(ky)) } ) 
  
      :Event( 2, {|oa,ky| cTx := '', AEval({ oa:Exe,          ; 
                                             oa:ExePath,      ; 
                                             oa:ExeName,      ; 
                                             oa:ExeIni,       ; 
                                             oa:ExeCfg },     ; 
                 {|ct,ni| cTx += hb_ntos(ni)+'. '+ct+CRLF }), ; 
             MsgBox(cTx, "Exe property. Event="+hb_ntos(ky)) } ) 
  
      :Event( 3, {|oa,ky| cTx := '', AEval({ oa:Name,         ; 
                                             oa:CurDir,       ; 
                                             oa:CurIni,       ; 
                                             oa:CurCfg },     ; 
                 {|ct,ni| cTx += hb_ntos(ni)+'. '+ct+CRLF }), ; 
        MsgBox(cTx, "Current property. Event="+hb_ntos(ky)) } ) 
  
      :Event( 4, {|oa,ky| cTx := '', AEval({ oa:Name,         ; 
                                             oa:Path,         ; 
                                             oa:PathIni,      ; 
                                             oa:PathCfg },    ; 
                 {|ct,ni| cTx += hb_ntos(ni)+'. '+ct+CRLF }), ; 
        MsgBox(cTx, "Path property. Event="+hb_ntos(ky)) } ) 
  
    END WITH 
  
    DEFINE WINDOW Win_1 ; 
       CLIENTAREA 400, 400 ; 
       TITLE 'Demo App objects. ' ; 
       MAIN  
  
       PRIV oWnd  := ThisWindow.Object 
       PUBL oMain := oWnd 
        
       DEFINE BUTTONEX Button1 
           ROW      nY 
           COL      nX 
           CAPTION  "Event 1" 
           ACTION   oApp:Event(1) 
           TOOLTIP  "System path. Event=1" 
       END BUTTONEX 
        
       nY += This.Button1.Height + 10 
       DEFINE BUTTONEX Button2 
           ROW      nY 
           COL      nX 
           CAPTION  "Event 2" 
           ACTION   oApp:Event(2) 
           TOOLTIP  "Exe property. Event=2" 
       END BUTTONEX 
        
       nY += This.Button2.Height + 10 
       DEFINE BUTTONEX Button3 
           ROW      nY 
           COL      nX 
           CAPTION  "Event 3" 
           ACTION   oApp:Event(3) 
           TOOLTIP  "Current property. Event=3" 
       END BUTTONEX 
        
       nY += This.Button3.Height + 10 
       DEFINE BUTTONEX Button4 
           ROW      nY 
           COL      nX 
           CAPTION  "Event 4" 
           ACTION   oApp:Event(4) 
           TOOLTIP  "Path property. Event=4" 
       END BUTTONEX 
        
       nY += This.Button4.Height + 10 
       DEFINE BUTTONEX Button5 
           ROW      nY 
           COL      nX 
           CAPTION  "PostMsg 1" 
           ACTION   oApp:SendMsg(1) 
       END BUTTONEX 
        
       nY += This.Button5.Height + 10 
       DEFINE BUTTONEX Button6 
           ROW      nY 
           COL      nX 
           CAPTION  "PostMsg 2" 
           ACTION   oApp:SendMsg(2) 
       END BUTTONEX 
        
       nY += This.Button6.Height + 10 
       DEFINE BUTTONEX Button7 
           ROW      nY 
           COL      nX 
           CAPTION  "PostMsg 3" 
           ACTION   oApp:SendMsg(3) 
       END BUTTONEX 
        
       nY += This.Button7.Height + 10 
       DEFINE BUTTONEX Button8 
           ROW      nY 
           COL      nX 
           CAPTION  "PostMsg 4" 
           ACTION   oApp:PostMsg(4) 
       END BUTTONEX 
        
    END WINDOW 
  
    Win_1.Center 
    Win_1.Activate 
  
    oApp:Destroy() 
  
 RETURN Nil 
  
 /////////////////////////////////////////////////////////////////////////////// 
 CLASS TAppData 
 /////////////////////////////////////////////////////////////////////////////// 
  
    PROTECTED: 
    VAR cExe                          INIT hb_ProgName() 
    VAR cName                         INIT hb_FNameName( hb_ProgName() ) 
    VAR nApp                          INIT 100 
    VAR hWnd                          INIT 0 
    VAR lErr                          INIT .F. 
    VAR oEvent            AS OBJECT 
  
    EXPORTED: 
    VAR cPath                         INIT '' 
    VAR oCargo            AS OBJECT 
     
    METHOD New( nApp ) INLINE ( ::nApp := iif( HB_ISNUMERIC(nApp), nApp, ::nApp ), ; 
       Self )          CONSTRUCTOR 
  
    METHOD Def( cPath, cName )  INLINE ( ::Name := cName, ::Path := cPath,  ; 
             ::oEvent := oKeyData(Self), ::oCargo := oKeyData(), Self ) 
  
    ASSIGN Handle( hWnd )        INLINE ( ::hWnd := hWnd, ::lErr := Empty(hWnd) ) 
    ACCESS Error                 INLINE ::lErr 
    ACCESS WmApp                 INLINE ( WM_USER + 100 ) 
  
    ACCESS Name                  INLINE ::cName                
    ASSIGN Name( cName )         INLINE ( cName := iif( HB_ISCHAR(cName), cName, ::cName ), ; 
                                  ::cName := iif( Empty(cName), ::cName , cName ) ) 
  
    ACCESS Desktop               INLINE GetDesktopFolder()      + hb_ps() 
    ACCESS MyDocuments           INLINE GetMyDocumentsFolder()  + hb_ps() 
    ACCESS ProgramFiles          INLINE GetProgramFilesFolder() + hb_ps() 
    ACCESS System                INLINE GetSystemFolder()       + hb_ps() 
    ACCESS Temp                  INLINE GetTempFolder()         + hb_ps() 
    ACCESS Windows               INLINE GetWindowsFolder()      + hb_ps() 
  
    ACCESS Exe                   INLINE ::cExe 
    ACCESS ExePath               INLINE hb_FNameDir ( ::cExe )  
    ACCESS ExeName               INLINE hb_FNameName( ::cExe ) 
    ACCESS ExeIni                INLINE ::ExePath + ::ExeName + ".ini" 
    ACCESS ExeCfg                INLINE ::ExePath + ::ExeName + ".cfg" 
              
    ACCESS CurDir                INLINE hb_DirBase()  
    ACCESS CurIni                INLINE ::CurDir + ::cName + ".ini" 
    ACCESS CurCfg                INLINE ::CurDir + ::cName + ".cfg" 
     
    ACCESS Path                  INLINE ::cPath 
    ASSIGN Path( cPath )         INLINE ( cPath := iif( HB_ISCHAR(cPath) , cPath, ::cName ), ; 
       cPath := iif( Empty(cPath), ::cName, cPath ), ; 
       cPath := iif( hb_ps() $ cPath, cPath, ::CurDir + cPath ), ; 
       ::cPath := cPath + iif( right(cPath, 1) == hb_ps(), "", hb_ps() ) ) 
  
    ACCESS PathIni               INLINE ::cPath + ::cName + ".ini" 
    ACCESS PathCfg               INLINE ::cPath + ::cName + ".cfg" 
  
    ACCESS DesktopWidth          INLINE GetDesktopWidth () 
    ACCESS DesktopHeight         INLINE GetDesktopHeight() - GetTaskBarHeight() 
  
    METHOD Create()              INLINE _App_Wnd_Events_( Self ) 
  
    METHOD Event   ( Key, Block, p2, p3 )  INLINE iif( HB_ISBLOCK( Block ), ; 
       ::oEvent:Set( Key, Block ), ; 
       ::oEvent:Do ( Key, Block, p2, p3 ) ) 
  
    METHOD PostMsg( nKey, nPar )  INLINE PostMessage( ::hWnd, ::WmApp, nKey, hb_defaultValue( nPar, 0 ) ) 
    METHOD SendMsg( nKey, nPar )  INLINE SendMessage( ::hWnd, ::WmApp, nKey, hb_defaultValue( nPar, 0 ) ) 
    
    METHOD Destroy()  INLINE ( ::Cargo := Nil,                              ; 
       ::oCargo := iif( HB_ISOBJECT( ::oCargo ), ::oCargo:Destroy(), Nil ), ; 
       ::oEvent := iif( HB_ISOBJECT( ::oEvent ), ::oEvent:Destroy(), Nil ) ) 
 #ifndef __XHARBOUR__ 
       DESTRUCTOR DestroyObject() 
 #endif 
  
 ENDCLASS 
 /////////////////////////////////////////////////////////////////////////////// 
  
 #ifndef __XHARBOUR__ 
 METHOD PROCEDURE DestroyObject()  CLASS TAppData 
  
    ::Destroy() 
  
 RETURN 
 #endif 
  
 *-----------------------------------------------------------------------------*  
 FUNCTION oAppData( cPathBase, cName, nApp ) 
 *-----------------------------------------------------------------------------*  
  
    LOCAL o := TAppData():New( nApp ):Def( cPathBase, cName ) 
  
    o:Create() 
  
 RETURN o 
  
 *-----------------------------------------------------------------------------*  
 FUNC _App_Wnd_Events_( hWnd, nMsg, wParam, lParam ) 
 *-----------------------------------------------------------------------------*  
  
    LOCAL  h, r := 0 
    STATIC o_app 
  
    If HB_ISOBJECT( hWnd ) 
       MESSAGEONLY _App_Wnd_App_  EVENTS _App_Wnd_Events_  TO h 
       o_app        := hWnd 
       o_app:Handle := h 
       RETURN r 
    ElseIf ! HB_ISOBJECT( o_app ) 
       RETURN r 
    EndIf 
  
    IF nMsg == o_app:WmApp  
       o_app:Event(wParam, lParam) 
       r := 1 
    ENDIF 
  
 RETURN r 
 

  * New: Added the OOP classes for managing of the Minigui windows and controls 
            as objects. It is an experimental feature which is guarded by the 
            constant _OBJECT_ in the core and it's disabled by default. 
            If you wish to try the OOP classes, you should add the following 
            command on top in your main module: 
               SET OOP [SUPPORT] ON 
            ********************************************************** 
            A new property called 'Object' was added to manipulate the objects. 
            You can get this property at runtime: 
            - function syntax: 
              GetProperty ( Form, 'Object' ) --> oFormObject 
              GetProperty ( Form, Control, 'Object' ) --> oControlObject 
            - pseudo-OOP syntax: 
              Form.Object --> oFormObject 
              Form.Control.Object --> oControlObject 
            Common syntax: Control_obj := This.Object, Form_obj := This.Object 
            Windows only syntax: Form_obj := ThisWindow.Object 
            Suggested and contributed by Sergej Kiselev. 
            Revised by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\Tsb_UserKeysEvent) 
   * Modified: ActiveX property 'Object' was renamed to 'XObject' for compatibility 
            with the last Minigui changes. Note: This is an INCOMPATIBLE change. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demos in folder \samples\Basic\ActiveX) 
   * New: Added the actual HBMK2 make scripts for building of the minigui and 
            tsbrowse libraries. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see BuildLib.bat and *.hbp in folders \Source and \Source\TSBrowse) 
   * Modified: The constant WIN32_LEAN_AND_MEAN for compiling of Minigui C-code 
            was moved from a link script to the header file mgdefs.h. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Dll library source code (see in folder \Source\Dll): 
            - updated for compatibility with the last Minigui changes. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.20.0dev (from 3.19.3). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2017-06-27 12:37). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'Using of App objects' sample. Contributed by SergKis 
            (see in folder \samples\Advanced\APP_OBJECTS) 
   * New: 'Harbour DataBases management as objects' samples: 
            - opens the multiple browses of same data file in MDI-child windows; 
            - MDI Browse with the fields from a related file; 
            - how to create an index of a database with a progress meter; 
            - how to build add, edit, delete and browse right into the customer 
              object in MDI-child window. 
            Inspired by the TTable class from the xHb contrib library. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\TDatabase) 
   * New: 'Tray Countdown' sample. 
            Based upon a C-code borrowed from OOHG. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\TrayCountdown) 
   * Updated: 'Blinking Label' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\BLINK) 
   * Updated: 'Print Pie Graph' sample: updated the data for June 2017. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\GraphPrint) 
   * Updated: 'Framework for SDI application' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\FrameWork) 
   * Updated: 'Image List' sample by Janusz Pora. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\ImageList) 
   * Updated: 'Memory Info' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\MemInfo) 
   * Updated: 'Sumatra PDF Viewer' utility: minor bugs fixed. 
            Based upon a contribution of HMG user KDJ. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\PdfView) 
 

 
 CLASS TWndData 
 ... 
    VAR cChr                          INIT ',' 
    VAR nReBarHeight                  INIT 0 
  
    VAR oStatusBar        AS OBJECT  
    VAR oProp             AS OBJECT 
 ... 
    ACCESS ClientHeight                    INLINE _GetClientRect  ( ::nHandle )[ 4 ] - ::nReBarHeight - ::StbHeight()  
 ... 
    ASSIGN Cargo( xVal )                   INLINE _WindowCargo( Self, xVal ) 
  
    ACCESS Stb                             INLINE ::oStatusBar 
    METHOD StbSay   ( cText, nItem  )      INLINE iif( Empty(::oStatusBar),  , ::oStatusBar:Say   (cText, nItem ) ) 
    METHOD StbIcon  ( cIcon, nItem  )      INLINE iif( Empty(::oStatusBar),  , ::oStatusBar:Icon  (cIcon, nItem ) ) 
    METHOD StbAction( nItem, bBlock )      INLINE iif( Empty(::oStatusBar),  , ::oStatusBar:Action(nItem, bBlock) ) 
    METHOD StbWidth ( nItem, nWidth )      INLINE iif( Empty(::oStatusBar),  , ::oStatusBar:Width (nItem, nWidth) ) 
    METHOD StbHeight()                     INLINE iif( Empty(::oStatusBar), 0, ::oStatusBar:Height ) 
  
    ACCESS ReBarHeight                     INLINE ::nReBarHeight 
    ASSIGN ReBarHeight( h )                INLINE ::nReBarHeight := iif( HB_ISNUMERIC(h), h, 0 ) 
  
    ACCESS IsWindow                        INLINE .T. 
 ... 
    METHOD Destroy()                       INLINE ( ::oStatusBar := ::nReBarHeight := Nil,       ; 
 ... 
 CLASS TCnlData   INHERIT TWndData 
 ... 
    ACCESS ClientHeight     INLINE _GetClientRect( ::nHandle )[ 4 ]  
 ... 
 /////////////////////////////////////////////////////////////////////////////// 
 CLASS TStbData   INHERIT TCnlData 
 /////////////////////////////////////////////////////////////////////////////// 
  
    EXPORTED: 
    METHOD New( oWnd ) INLINE ( ::Super:New( oWnd ), ::oWin:oStatusBar := iif( Empty(::oWin:oStatusBar), ; 
                                               Self, ::oWin:oStatusBar ), Self )           CONSTRUCTOR 
  
    METHOD Def( nIndex, cName, nHandle, nParent, cType, cVar )   INLINE (  ; 
              ::Super:Def( nIndex, cName, nHandle, nParent, cType, cVar ), ; 
              ::Set(), hmg_SetWindowObject( ::nHandle, Self ),             ; 
               Self ) 
  
    METHOD Say   ( cText , nItem ) INLINE _SetItem( ::cName, ::oWin:cName, hb_defaultValue( nItem,  1 ), ; 
                                                                          hb_defaultValue( cText, '' ) ) 
  
    METHOD Icon  ( cIcon , nItem ) INLINE SetStatusItemIcon( ::nHanle, hb_defaultValue( nItem, 1 ), cIcon ) 
  
    METHOD Width ( nItem, nWidth ) INLINE iif( HB_ISNUMERIC(nWidth) .and. nWidth > 0,               ; 
                       _SetStatusItemWidth( hb_defaultValue( nItem, 1 ), nWidth, ::oWin:nHandle ),  ; 
                       _GetStatusItemWidth( ::oWin:nHandle, hb_defaultValue( nItem, 1 ) ) ) 
  
    METHOD Action( nItem, bBlock ) INLINE _SetStatusItemAction( hb_defaultValue( nItem, 1 ), bBock, ; 
                                                                ::oWin:nHandle ) 
  
 ENDCLASS 
  
 ... 
 FUNCTION oCnlData( nIndex, cName, nHandle, nParent, cType, cVar, oWin ) 
 ... 
       IF     cType == 'TBROWSE' 
          ob := _HMG_aControlIds[ nIndex ] 
          o  := TTsbData():New( oWin, ob ):Def( nIndex, cName, nHandle, nParent, cType, cVar )  
       ELSEIF cType == 'MESSAGEBAR' 
          o  := TStbData():New( oWin     ):Def( nIndex, cName, nHandle, nParent, cType, cVar )  
       ELSE 
          o  := TCnlData():New( oWin     ):Def( nIndex, cName, nHandle, nParent, cType, cVar ) 
       ENDIF 
 ... 
 h_windows.prg 
 ... 
 *-----------------------------------------------------------------------------* 
 Function _EndSplitBox () 
 *-----------------------------------------------------------------------------* 
    Local i 
              
    If _HMG_lOOPEnabled 
       i := GetFormIndex ( iif( _HMG_BeginWindowMDIActive, _HMG_MainClientMDIName, _HMG_ActiveFormName ) ) 
       If hmg_IsWindowObject ( _HMG_aFormHandles [ i ] ) 
          hmg_GetWindowObject( _HMG_aFormHandles [ i ] ):ReBarHeight := GetWindowHeight( _HMG_aFormReBarHandle [ i ] ) 
       EndIf 
    EndIf 
  
    _HMG_SplitLastControl := 'TOOLBAR' 
    _HMG_ActiveSplitBox   := .f. 
  
 Return Nil 
 ... 
 

#include "minigui.ch" 
  
 MEMVAR oWnd 
  
 Function Main 
 	LOCAL nY, nH 
  
 	SET OOP ON 
  
 	DEFINE WINDOW Form_1 ; 
 		AT 0,0 ; 
 		WIDTH 800 HEIGHT 600 ; 
 		TITLE 'MiniGUI SplitBox Demo' ; 
 		MAIN ; 
 		FONT 'Arial' SIZE 10  
  
 		PUBLIC oWnd := ThisWindow.Object  
  
 		DEFINE MAIN MENU  
 			POPUP '&File' 
 				ITEM 'Exit'	ACTION Form_1.Release 
 			END POPUP 
 			POPUP '&Help' 
 				ITEM 'About'	ACTION MsgInfo (MiniGUIVersion(), "MiniGUI Demo")  
 			END POPUP 
 		END MENU 
 	 
 		DEFINE SPLITBOX  
  
 			DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 85,85 FLAT 
  
 				BUTTON Button_1 CAPTION '&More ToolBars...' PICTURE 'button1.bmp' ACTION MsgInfo('Click! 1')  TOOLTIP 'ONE' 
  
 				BUTTON Button_2 CAPTION '&Button 2' PICTURE 'button2.bmp' ACTION MsgInfo('Click! 2')  TOOLTIP 'TWO' 
  
 				BUTTON Button_3 CAPTION 'Button &3' PICTURE 'button3.bmp' ACTION MsgInfo('Click! 3')  TOOLTIP 'THREE' 
  
 			END TOOLBAR 
  
 		END SPLITBOX 
  
 		DEFINE STATUSBAR 
 			STATUSITEM 'HMG Power Ready' 
 			STATUSITEM '' 
 		END STATUSBAR 
  
 		WITH OBJECT oWnd:Stb 
 			:Icon("test.ico") 
  
 			:Say(MiniGUIVersion(), 2) 
 			:Width(2, 300) 
 			:Action(2, {|| MsgInfo('Status Item Click!')}) 
 		END WITH 
  
 		nY := GetWindowHeight( _HMG_aFormReBarHandle [ oWnd:Index ] ) 
 		nH := This.ClientHeight - GetWindowHeight( oWnd:Stb:Handle ) - nY 
  
 		@nY + 5, 10 LABEL lblClient VALUE "Client Height = " + hb_ntos( nH ) + " pixels" AUTOSIZE 
  
 	END WINDOW 
  
 	CENTER WINDOW Form_1 
  
 	ACTIVATE WINDOW Form_1 
  
 Return Nil 
 

 
 c_getbox.c 
 LRESULT CALLBACK OwnGetProc( HWND hwnd, UINT Msg, WPARAM wParam, LPARAM lParam ) 
 ... line 424 
             return CallWindowProc( OldWndProc, hwnd, Msg, wParam, lParam ); 
  
       case WM_LBUTTONDBLCLK : 
       case WM_KEYDOWN: 
       case WM_KEYUP: 
          if( ! pSymbol ) 
 ... 
 h_getbox.prg 
 FUNCTION OGETEVENTS( hWnd, nMsg, wParam, lParam ) 
 ... 
       ENDCASE 
  
    CASE nMsg == WM_LBUTTONDBLCLK 
  
       IF wParam == MK_LBUTTON 
  
          RETURN oGet:DoKeyEvent( nMsg ) 
  
       ENDIF 
  
    CASE nMsg == WM_KEYDOWN 
 ... 
  // у себя объединил раздельные IF ... ENDIF IF ... ENDIF ... в одну конструкцию IF .. ELSEIF ... ENDIF , т.е. 
 ... 
       lShift := CheckBit( GetKeyState( VK_SHIFT ) , 32768 ) 
       lCtrl  := CheckBit( GetKeyState( VK_CONTROL ) , 32768 ) 
  
       IF lCtrl .AND. wParam == VK_INSERT 
  
          CopyToClipboard( oGet:Buffer ) 
          RETURN( 0 ) 
  
       ELSEIF lShift .AND. wParam == VK_INSERT 
  
          SendMessage( hWnd , WM_PASTE , 0 , 0 ) 
          RETURN( 0 ) 
  
       ELSEIF wParam == VK_DOWN 
  
          IF !lCtrl .AND. !lShift 
             SendMessage( hWnd , EM_SETSEL , nEnd , nEnd ) 
             IF ValType( oGet:cargo ) == "D" .AND. oGet:BadDate 
                RETURN( 0 ) 
             ELSE 
                _GetBoxSetNextFocus( .F. ) 
                RETURN( 0 ) 
             ENDIF 
          ELSE 
             IF lCtrl .AND. lAllowEdit 
                IF oGet:type == "D" .OR. oGet:type == "N" 
                   oGet:VarPut( oGet:VarGet() - 1 ) 
                   oGet:UpdateBuffer() 
                   _DispGetBoxText( hWnd, oGet:Buffer ) 
                   oGet:changed := .T. 
                ENDIF 
                IF oGet:type == "L" 
                   oGet:VarPut( !oGet:VarGet() ) 
                   oGet:UpdateBuffer() 
                   _DispGetBoxText( hWnd, oGet:Buffer ) 
                   oGet:changed := .T. 
                ENDIF 
             ENDIF 
          ENDIF 
  
          RETURN( 0 ) 
  
       ELSEIF wParam == VK_UP 
  
          IF !lCtrl .AND. !lShift 
             SendMessage( hWnd , EM_SETSEL , nEnd , nEnd ) 
             IF ValType( oGet:cargo ) == "D" .AND. oGet:BadDate 
                RETURN( 0 ) 
             ELSE 
                _GetBoxSetNextFocus( .T. ) 
                RETURN( 0 ) 
             ENDIF 
          ELSE 
             IF lCtrl .AND. lAllowEdit 
                IF oGet:type == "D" .OR. oGet:type == "N" 
                   oGet:VarPut( oGet:VarGet() + 1 ) 
                   oGet:UpdateBuffer() 
                   _DispGetBoxText( hWnd, oGet:Buffer ) 
                   oGet:changed := .T. 
                ENDIF 
                IF oGet:type == "L" 
                   oGet:VarPut( ! oGet:VarGet() ) 
                   oGet:UpdateBuffer() 
                   _DispGetBoxText( hWnd, oGet:Buffer ) 
                   oGet:changed := .T. 
                ENDIF 
             ENDIF 
          ENDIF 
  
          RETURN( 0 ) 
  
       ELSEIF wParam == VK_LEFT 
  
          SendMessage( hWnd , EM_SETSEL , nEnd - 1 , nEnd - 1 ) 
          _HMG_aControlMiscData1 [ i ][1] := 0 
          oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
  
       ELSEIF wParam == VK_RIGHT 
  
          SendMessage( hWnd , EM_SETSEL , nStart + 1 , nStart + 1 ) 
          _HMG_aControlMiscData1 [ i ][1] := 0 
          oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
           
       ELSEIF wParam == VK_HOME 
  
          SendMessage( hWnd , EM_SETSEL , 0 , 0 ) 
          oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
  
       ELSEIF wParam == VK_END 
          // Patch By Pier July 2008 
          // Add By Pier patch for the incorrect end position START 
          IF HiWord( SendMessage( hWnd , EM_GETSEL , 0 , 0 ) ) < Len( Trim( oGet:Buffer ) ) 
             SendMessage( hWnd , EM_SETSEL , Len( Trim( oGet:Buffer ) ) , Len( Trim( oGet:Buffer ) ) ) 
          ELSE 
             SendMessage( hWnd , EM_SETSEL , Len( oGet:Buffer ) , Len( oGet:Buffer ) ) 
          ENDIF 
          // Add By Pier patch for the incorrect end position STOP 
          oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
  
       ELSEIF wParam == VK_INSERT  
          lInsert := ! lInsert 
          _SetGetBoxCaret( hWnd ) 
  
       ELSEIF wParam == VK_DELETE 
  
          IF readonly .OR. ! lAllowEdit .OR. oGet:type == "L" 
             RETURN( 0 ) 
          ENDIF 
  
          nStart := LoWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
          nEnd   := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
          oGet:pos := nEnd 
  
          IF nStart # nEnd 
  
             IF nEnd > Len( oGet:buffer ) 
                oGet:Delete() 
             ENDIF 
  
             FOR ipp := nStart TO nEnd 
  
                IF oGet:pos > nStart 
                   IF oGet:type == "N" .AND. SubStr( oGet:buffer, oGet:pos, 1 ) $ "(-" 
                      oGet:minus := .F. 
                   ENDIF 
                   oGet:BackSpace() 
                ELSE 
                   EXIT 
                ENDIF 
  
             NEXT 
  
          ELSE 
  
             IF _IsEditable( oGet:pos , i ) 
                IF oGet:type == "N" .AND. SubStr( oGet:buffer, oGet:pos, 1 ) $ "(-" 
                   oGet:minus := .F. 
                ENDIF 
                oGet:Delete() 
             ENDIF 
  
          ENDIF 
  
          oGet:Assign() 
  
          _DispGetBoxText( hWnd, oGet:buffer ) 
          SendMessage( hWnd, EM_SETSEL, oGet:pos - 1, oGet:pos - 1 ) 
  
          RETURN( 0 ) 
  
       ELSE 
  
          oGet:DoKeyEvent( wParam ) 
  
       ENDIF 
  
    CASE nMsg == WM_PASTE 
 ... 
 tget.prg 
 ... 
 #include "hblang.ch" 
  
 #include "i_winuser.ch" 
 #include "i_keybd.ch" 
  
 /* TODO: :posInBuffer( <nRow>, <nCol> ) --> nPos 
 ... 
 CLASS Get 
  
    EXPORTED: 
 ... 
    DATA aKeyEvent      INIT {}  
 ... 
    METHOD OverStrike( cChar ) 
     
    METHOD SetKeyEvent( nKey, bKey, lCtrl, lShift, lAlt ) 
    METHOD DoKeyEvent ( nKey )  
  
    PROTECTED: 
 ... 
 METHOD SetKeyEvent( nKey, bKey, lCtrl, lShift, lAlt ) CLASS Get 
    LOCAL n, cKey 
  
    cKey := hb_ntos( iif( HB_ISNUMERIC(nKey), nKey, WM_LBUTTONDBLCLK ) ) 
    cKey += iif( empty(lCtrl ), '', '#' ) 
    cKey += iif( empty(lShift), '', '^' ) 
    cKey += iif( empty(lAlt  ), '', '@' ) 
  
    If ( n := AScan( ::aKeyEvent, {|a| a[1] == cKey } ) ) > 0 
       ::aKeyEvent[ n ] := bKey 
    Else 
       AAdd( ::aKeyEvent, { cKey, bKey } ) 
    EndIf 
  
 RETURN Nil 
  
 METHOD DoKeyEvent( nKey ) CLASS Get 
    LOCAL n, r := 0, cKey := hb_ntos( nKey ) 
  
    If len( ::aKeyEvent ) > 0 
  
       cKey += iif( _GetKeyState( VK_CONTROL ), '#', '' ) 
       cKey += iif( _GetKeyState( VK_SHIFT   ), '^', '' ) 
       cKey += iif( _GetKeyState( VK_MENU    ), '@', '' ) 
       If ( n := AScan( ::aKeyEvent, {|a| a[1] == cKey } ) ) > 0 
          If HB_ISBLoCK( ::aKeyEvent[ n ][2] ) 
             EVal( ::aKeyEvent[ n ][2], Self ) 
             r := 1 
          EndIf 
       EndIf 
  
    EndIf 
  
 RETURN r  
 ... 
 SAMPLES\BASIC\GetBox 
 demo.prg 
 ... 
 *----------------------------- 
 Function MAIN() 
 *----------------------------- 
    LOCAL oGet 
  
    SET CENTURY ON 
 ... 
    DEFINE WINDOW Form_1 ; 
 ... 
          DEFINE GETBOX Text_1 // Alternate Syntax 
            ROW 10 
            COL 10 
            HEIGHT 20 
            VALUE DATE() 
            PICTURE '@K' 
            TOOLTIP "Date Value: Must be greater or equal to "+DTOC(DATE()) 
            VALID {|| Compare(this.value)} 
            VALIDMESSAGE "Must be greater or equal to "+DTOC(DATE()) 
            MESSAGE "Date Value" 
            BACKCOLOR {{255,255,255},{255,255,200},{200,255,255}} 
            FONTCOLOR {{0,0,0},{255,255,200},{0,0,255}} 
          END GETBOX 
                   
            oGet := _HMG_aControlHeadClick [ This.Text_1.Index ] 
            oGet:SetKeyEvent( VK_F5, {|o| MsgBox( 'VK_F5 : ' + cValToChar(o:VarGet()), This.Name ) }) 
  
          @ 40,10 GETBOX Text_2 ; 
                  HEIGHT 20; 
                  VALUE 57639 ; 
                  ACTION MsgInfo( "Button Action"); 
                  TOOLTIP {"Numeric input. RANGE -100,200000 PICTURE @Z 99,999.99","Button ToolTip"}; 
                  PICTURE '@Z 99,999.99'; 
                  RANGE -100,200000; 
                  BOLD; 
                  MESSAGE "Numeric input"; 
                  VALIDMESSAGE "Value between -100 and 200000 " ; 
                  BACKCOLOR {{255,255,255},{255,255,200},{200,255,255}} ; 
                  FONTCOLOR {{0,0,0},{255,255,200},{0,0,255}} 
                   
            oGet := _HMG_aControlHeadClick [ This.Text_2.Index ] 
            oGet:SetKeyEvent( , {|o| MsgBox( 'LDblClick : ' + cValToChar(o:VarGet()), This.Name ) }) 
 ... 
 

 
  
 /////////////////////////////////////////////////////////////////////////////// 
 CLASS TGetData   INHERIT TCnlData 
 /////////////////////////////////////////////////////////////////////////////// 
  
    PROTECTED: 
    VAR oGetBox              AS OBJECT 
  
    EXPORTED: 
    METHOD New( oWnd, oGet ) INLINE ( ::Super:New( oWnd ), ::oGetBox := oGet, Self )  CONSTRUCTOR 
  
    METHOD Def( nIndex, cName, nHandle, nParent, cType, cVar )   INLINE ( ; 
       ::Super:Def( nIndex, cName, nHandle, nParent, cType, cVar ), ; 
       ::Set(), hmg_SetWindowObject( ::nHandle, Self ), ; 
       Self ) 
  
    ACCESS Caption           INLINE ::oWin:cName + "." + ::cName 
    ACCESS Get               INLINE ::oGetBox  
  
    METHOD Destroy()                       INLINE ::oGetBox := ::Super:Destroy() 
  
 ENDCLASS 
  
 FUNCTION oCnlData( nIndex, cName, nHandle, nParent, cType, cVar, oWin ) 
 ... 
       IF     cType == 'TBROWSE' 
          ob := _HMG_aControlIds[ nIndex ] 
          o  := TTsbData():New( oWin, ob ):Def( nIndex, cName, nHandle, nParent, cType, cVar ) 
       ELSEIF cType == 'GETBOX' 
          ob := _HMG_aControlHeadClick[ nIndex ] 
          o  := TGetData():New( oWin, ob ):Def( nIndex, cName, nHandle, nParent, cType, cVar ) 
       ELSEIF cType == 'MESSAGEBAR' 
          o  := TStbData():New( oWin     ):Def( nIndex, cName, nHandle, nParent, cType, cVar ) 
       ELSE 
          o  := TCnlData():New( oWin     ):Def( nIndex, cName, nHandle, nParent, cType, cVar ) 
       ENDIF 
 ... 
 

 
 Tsb_UserKeysEvent\demo.prg 
 ... 
        This.FRM_1.Cargo := ' Form <1> created !' 
  
        cNam := 'Get_1' 
      @ nY, nX+This.FRM_1.Width+2  GETBOX &cNam  WIDTH 150 ; 
                VALUE 'Test oGet:SetKeyEvent(...)' ; 
                FONT 'Arial' SIZE 9 ; 
                TOOLTIP 'Press F5 or LDblClick' ; 
                BACKCOLOR {{255,255,255},{255,255,200},{200,255,255}} ; 
                FONTCOLOR {{0,0,0},{255,255,200},{0,0,255}} 
  
        (This.&(cNam).Object):Get:SetKeyEvent( VK_F5, {|o| MsgBox( 'VK_F5 : ' + cValToChar( o:VarGet() ), This.Name ) } )  
        (This.&(cNam).Object):Get:SetKeyEvent(  , {|o| MsgBox( 'LDblClick : ' + cValToChar( o:VarGet() ), This.Name ) } ) 
         
        nY += This.FRM_1.Height + nHgt 
 ... 
 GetBox\demo.prg 
 ... 
          oGet:SetKeyEvent( VK_F5, {|o| MsgBox( 'VK_F5 : ' + cValToChar( o:VarGet() ), This.Name ) } )  
          oGet:SetKeyEvent(  , {|o| MsgBox( 'LDblClick : ' + cValToChar( o:VarGet() ), This.Name ) } )  
 ... 
          oGet:SetKeyEvent( VK_F5, {|o| MsgBox( 'VK_F5 : ' + cValToChar( o:VarGet() ), This.Name ) } )  
          oGet:SetKeyEvent(  , {|o| MsgBox( 'LDblClick : ' + cValToChar( o:VarGet() ), This.Name ) } ) 
 ... 
 

 
 FUNCTION OGETEVENTS( hWnd, nMsg, wParam, lParam ) 
 ... 
       CASE wParam == 3  // CTRL+C Copy 
  
          CopyToClipboard( subs(oGet:Buffer, nStart, nEnd - nStart) ) 
 //       CopyToClipboard( oGet:Buffer ) 
          RETURN( 0 ) 
  
       CASE wParam == 24 .AND. !readonly // CTRL+X Cut 
  
          IF !lAllowEdit .OR. oGet:type == "L" 
             RETURN( 0 ) 
          ENDIF 
  
          CopyToClipboard( subs(oGet:Buffer, nStart, nEnd - nStart) ) 
 //       CopyToClipboard( oGet:Buffer ) //Franz  
          nStart := LoWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
 ... 
       ELSEIF wParam == VK_RIGHT 
  
          IF lShift 
             nEnd := oGet:Pos 
             SendMessage( hWnd , EM_SETSEL , nStart , nEnd ) 
          ELSE 
             SendMessage( hWnd , EM_SETSEL , nStart + 1 , nStart + 1 ) 
             _HMG_aControlMiscData1 [ i ][1] := 0 
          ENDIF 
          oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
  
       ELSEIF wParam == VK_HOME 
          SendMessage( hWnd , EM_SETSEL , 0 , 0 ) 
          oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
  
       ELSEIF wParam == VK_END 
          // Patch By Pier July 2008 
          // Add By Pier patch for the incorrect end position START 
 //       IF HiWord( SendMessage( hWnd , EM_GETSEL , 0 , 0 ) ) < Len( Trim( oGet:Buffer ) ) 
 //          SendMessage( hWnd , EM_SETSEL , Len( Trim( oGet:Buffer ) ) , Len( Trim( oGet:Buffer ) ) ) 
 //       ELSE 
 //          SendMessage( hWnd , EM_SETSEL , Len( oGet:Buffer ) , Len( oGet:Buffer ) ) 
 //       ENDIF 
          // Add By Pier patch for the incorrect end position STOP 
 //       oGet:pos := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
  
          nEnd   := Len( Trim(oGet:Buffer) )  
          nStart := iif( lShift, nStart, nEnd ) 
  
          SendMessage( hWnd, EM_SETSEL, nStart, nEnd ) 
  
          RETURN 1 
  
       ELSEIF wParam == VK_INSERT 
 ... 
    CASE nMsg == WM_PASTE 
  
       IF readonly .OR. ! lAllowEdit 
          RETURN( 0 ) 
       ENDIF 
  
       IF ( cText := RetrieveTextFromClipboard() ) <> NIL 
  
          nStart := LoWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1 
          nEnd   := HiWord( SendMessage( hWnd, EM_GETSEL, 0, 0 ) ) + 1  
          nLen   := Len( oGet:Buffer )  
  
          IF nStart # nEnd 
 ... 
             FOR i := nStart TO nEnd  // clear selection by backspacing 
                IF oGet:pos > nStart 
                   oGet:BackSpace() 
                ELSE 
                   EXIT 
                ENDIF 
             NEXT 
          ENDIF 
           
          h := oGet:pos 
           
          FOR i := 1 TO Len( cText ) 
  
             wParam := Asc( SubStr( cText, i, 1 ) ) 
  
             IF oGet:type == "N" .AND. wParam == 46 
                oGet:toDecPos() 
             ELSE 
                IF IsInsertActive() 
                   oGet:Insert( Chr( wParam ) ) 
                ELSE 
                   oGet:Overstrike( Chr( wParam ) ) 
                ENDIF 
             ENDIF 
  
             IF h + i > nLen 
                EXIT 
             ENDIF 
  
          NEXT 
 ... 
 Это, конечно, не все режимы, остальные позже. 
 

 
  LOCAL aName    := { "VOP", "SKL"  , "KLI"   , "DAT"   , "DOK"   , "GRU"  , "KOD" , "NAM"       } 
  LOCAL aColumn  := { "R_1", "R_2"  , "R_3"   , "R_4"   , "R_5"   , "R_6"  , "R_7" , "U02->R_3"  } 
  LOCAL aHeader  := { "Op.", "Sklad", "Klient", "Datums", "Dokum.", "Grupa", "Kods", "Nosaukums" } 
 ... 
     For nI := 1 To nK 
         cFld := aColumn[ nI ] 
         If ( i := AT("->", cFld) ) > 0 
            j    := left(cFld, i - 1) 
            cFld := subs(cFld, i + 2) 
         Else                        
            j    := cAls 
         EndIf 
         bFld := FieldWBlock( cFld, Select( j ) ) 
         cHdr := aHeader[ nI ] 
         If "\" $ cHdr; cHdr := StrTran(cHdr, "\", CRLF) 
         EndIf 
         cFoo := aFooter[ nI ] 
         If "\" $ cFoo; cFoo := StrTran(cFoo, "\", CRLF) 
         EndIf 
  
         ADD TO      oBrw           ; 
             DATA    bFld           ; 
             HEADER  cHdr           ; 
             FOOTER  cFoo           ; 
             COLOR   aColor  [ nI ] ; 
             ALIGN   aAlign  [ nI ] ; 
             WIDTH   aWidth  [ nI ] ; 
             PICTURE aPicture[ nI ] ; 
             MOVE    aMoveDir[ nI ] ; 
             NAME    aName   [ nI ] 
  
     Next 
 ... 
     :bOnDrawLine := {|ob| MyRelat(ob) } 
 ... 
 FUNC MyRelat( oBrw ) 
  LOCAL cAls := oBrw:cAlias 
  LOCAL cKod := (cAls)->( R_6+R_7 ) 
  
  IF ! U02->( R_1+R_2 ) == cKod 
     U02->( dbSeek(cKod) ) 
  ENDIF 
  
 RETURN Nil 
 

 
    If ::bUserKeys != Nil 
  
       uReturn := Eval( ::bUserKeys, nKey, nFlags, Self ) 
  
       If uReturn != Nil .and. ValType( uReturn ) == "N" .and. uReturn < 200 // interpreted as a virtual key code to 
          nKey := uReturn                                                    // change the original key pressed 
       ElseIf uReturn != Nil .and. ValType( uReturn ) == "L" .and. ! uReturn 
          ::nUserKey := 255  // want to inhibit the KeyDown and KeyChar Methods for key pressed 
          Return 0  
       EndIf 
    EndIf 
 т.е. надо выключить для 5, 7 cell (в :bUserKeys) 
 IF     oBrw:nCell == 5; RETURN .F. 
 ELSEIF oBrw:nCell == 7; RETURN .F. 
 ENDIF 
 RETURN .T. 
 

  * Modified: A dependance of Minigui core from the functions of the tsbrowse 
            library was removed (introduced in the build 17.07). 
            Reported by Marcelo A. L. Carli <malcarli@terra.com.br>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.20.0rc3. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2017-07-27 18:57). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
 

  * Fixed: A wrong value of 'DisplayValue' property was returned when this value 
            was modified routinely in a standard ComboBox control with the 
            DISPLAYEDIT clause (introduced in the build 17.05). 
            Reported by Dusko Radojcin. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Enhanced: Added a default action for a double click of the left mouse button 
            in a GetBox control (similar to a standard TextBox). 
            Suggested by Dusko Radojcin. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\GetBox) 
   * Enhanced: Added the new method Refresh() in the Harbour TGet class. 
            Sample code: 
              oGet:SetKeyEvent( VK_ADD, {|o| o:VarPut( o:VarGet() + 1 ), ; 
                 o:Refresh() } ) 
              oGet:SetKeyEvent( VK_SUBTRACT, {|o| o:VarPut( o:VarGet() - 1 ), ; 
                 o:Refresh() } ) 
            Requested by Dusko Radojcin. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Enhanced: Added a 'module name' information in the ErrorLog file. 
            Suggested by Jayadev <jayadev65@yahoo.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\ErrorLog) 
   * Modified: Added usage of the internal check-function IsArrayRGB() in the 
            appropriate places of Minigui core. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Enhanced: The <versioninfo> section was added to the application resources. 
            It is based on using of a new header mgver.h and standard C-compiler 
            header winver.h. It was a postponed modification. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see minigui.rc in folder \Resources) 
   * Updated: A Minigui project for hbmk2 utility was updated for cleaning of the 
            warnings at the Visual C 2017 compiler. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see hmg.hbx in folder \include) 
   * New: PScript wrapper library source code (see in folder \Source\PageScript). 
            This library contains all the PageScript 32 functions and one class, 
            named TPageScript. You may either choose to call PS functions or 
            instantiate TPageScript and use its methods. 
            Contribution of PageScript owner Richard Visscher <richard@irvis.com> 
            (see demo in folder \samples\Advanced\PageScript) 
   * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: 
            - minor bug fix and code cleaning. 
            (see h_tbrowse.prg in folder \Source\TSBrowse) 
   * Updated: HbSQLite3 library source code: 
            - a core C-code was borrowed from the Harbour fork 3.4.0; 
            - update for using SQLITE3 version 3.20.0. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \Source\HbSQLite3) 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2017-08-03 20:24). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * Updated: MPM utility: 
            - added Harbour hbwin contrib library to a link script. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \Utils\MPM) 
   * New: 'Move and Resize Control With Cursor' sample. 
            Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\MoveResizeControl) 
   * Updated: 'Print Pie Graph' sample: updated the data for July 2017. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\GraphPrint) 
   * Updated: 'HMG Achoice' sample: fixed getting of a text width. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\ACHOICE_2) 
   * Updated: 'Using of StatusBar object' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo2.prg in folder \samples\Advanced\APP_OBJECTS) 
   * Updated: 'Sumatra PDF Viewer' utility: updated for an external calling. 
            Requested by Jayadev <jayadev65@yahoo.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\PdfView) 
   * Updated: 'DBFview v.0.78' sample: updated for xHarbour compatibility. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Applications\DBFview) 
 

  * Fixed: A print support in C-code is INCOMPATIBLE with using of the constant 
            WIN32_LEAN_AND_MEAN in the header file mgdefs.h (introduced in the 
            build 17.07). Bug was reported on brazilian forum MiniGUI. 
            A solution is adding of handling for new constant NO_LEAN_AND_MEAN. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Enhanced: 'Application' object supports the read/write property WindowStyle. 
            Syntax:  Application.WindowStyle [ := <nStyle> ] 
            Sample code: 
              IF ! IsWindowHasStyle( App.Handle, WS_SIZEBOX ) 
                 App.WindowStyle := WS_SIZEBOX 
              ENDIF 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Enhanced: 'System' object supports a playing of the following system sounds: 
            Ok, Beep, Asterisk, Exclamation, Hand and Question. 
            Syntax: 
                     System.OkSound 
                     System.HandSound 
                     System.QuestionSound 
                     System.ExclamationSound 
                     System.AsteriskSound 
                     System.BeepSound 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Modified: BROWSE: Added quick accepting of a returned value at an inplace 
            editing in a ComboBox with opened dropdown list via <Enter> key. 
            Based upon a contribution of Roberto Lopez <mail.box.hmg@gmail.com> 
            (see column Married in demo.prg at folder \samples\Basic\BROWSE_1) 
   * Updated: Synchronized Extended HMG for compatibility with Official HMG: 
            - New: Added the property HBITMAP in an IMAGE control. 
            You can set/get this property at runtime via: 
            - function syntax: 
              SetProperty( Form, Image, 'HBitmap', hNewBitmap ) 
              GetProperty ( Form, Image, 'HBitmap' ) 
            - pseudo-OOP syntax: 
              Form.Image.hBitmap := hNewBitmap 
              Form.Image.hBitmap --> hBitmap 
              (see demo in folder \samples\Applications\ClipbrdClear) 
            - New: Added two auxiliary functions for Browse/Grid handling: 
              - ListView_GetExtendedStyle( hWnd, nCheckStyle ) -> lBoolean 
              - ListView_ChangeExtendedStyle( hWnd, [nAddStyle], [nRemoveStyle] ) 
              (see browse6.prg in folder \samples\Basic\BROWSE_3 and demo 
              in folder \samples\Advanced\ListViewEx) 
            Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Revised a returned array in the internal C-function EnumFontsEx(). 
            Based upon a contribution of Viktor Szakats. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\GetFonts) 
   * Updated: 'Bos Taurus' Graphics Library (see source in folder 
            \Source\BosTaurus): 
            - a correction in the function BT_HMGSetImage(). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\BTGraph) 
   * Updated: HMG_HPDF library (see source in folder \source\HMG_HPDF): 
            - minor bug fix and code cleaning with using of Harbour switch -w3. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: HbSQLite3 library: 
            - update for using SQLITE3 version 3.21.0dev (from 3.20.1). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2017-09-14 23:00). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'Quick Browse Generator' utility. 
            Based upon a contribution of HMG user Dragan Cizmarevic. 
            Adapted for Minigui Extended by Pierpaolo Martinello 
            (see multilingual ReadMe.txt in folder \Utils\QBGen) 
   * New: 'Anywhere Search' sample: universal search in tree, listbox, combobox 
            and grid controls. Requested by Jayadev <jayadev65/at/yahoo.com>. 
            Based upon a contribution of S.Rathinagiri <srgiri/at/dataone.in>. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\AnywhereSearch) 
   * Updated: 'Print Pie Graph' sample: updated the data for August 2017. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\GraphPrint) 
   * Updated: 'Clipbrd Clear' sample: improved the internal Clipboard Viewer. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Applications\ClipbrdClear) 
   * Updated: 'Sumatra PDF Viewer' utility: 
            - added an ability to select a folder Main menu -> File -> Choose 
              directory (also click on header of Files grid), 
            - fixed the function ChangeWindowMessageFilter(). 
            Based upon a contribution of HMG user KDJ. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\PdfView) 
   * Updated: 'WebCam preview and capture' sample. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\WebCam_2) 
 

2017/09/28: HMG Extended Edition version 17.09 (Update 1). 
   * Fixed: An application without a print feature was depended on the 
            MiniPrint library anyway (introduced in the build 17.03). 
            Reported on brazilian forum MiniGUI. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\HELLO_WORLD) 
   * Fixed: A problem with a Modal dialog at using of the PropSheet library. 
            Bug was reported by Pierpaolo Martinello. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\PropSheet) 
   * Updated: 'Quick Browse Generator' utility: minor changes. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \Utils\QBGen) 
 

  * Enhanced: The Browse control supports the optional 'ColumnSort {}' clause 
            similar to a Grid. This clause specifies that column's header allows 
            to sort a data via a mouse click. 
            Syntax: 
              @ <row>,<col> BROWSE <name> [ OF <parent> ] ; 
              [ WIDTH <nWidth> ] [ HEIGHT <nHeight> ] ; 
              [ HEADERS <aHeaders> ] [ WIDTHS <aWidths> ] ; 
              [ FIELDS <aFields> ] [ VALUE <value> ] [ COLUMNSORT <aSort> ] 
            where the array aSort may have the following values for each column: 
              .F. - no sorting; 
              .T. - allow sorting. 
            Note that it will be created an auxiliary compound index in the memory 
            for an each field of a table which will replace the any other index of 
            this table. Requested by Pete D. <pete_westg/at/yahoo.gr>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\BROWSE_SORT) 
   * Enhanced: The AnimateBox control supports now the optional BACKCOLOR clause. 
            Above clause should be used along with the TRANSPARENT clause. 
            Requested by Verchenko Andrey <verchenkoag@gmail.com>. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\ANIMATEDEMO) 
   * Enhanced: The Timer control supports now the optional ONCE clause. 
            If above clause is defined, when the timer procedure will be executed 
            one time only. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\Timer) 
   * Updated: Cleaning of a redundant code at the IMAGE control processing. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
   * Updated: Revised usage of the TEMP files at the RICHEDIT control processing. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Basic\Richedit) 
   * Updated: Added helpful C-function IsAppHung( <hWnd> ) for hung detection of 
            the applications (based upon the undocumented WinAPI function). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo in folder \samples\Advanced\ProcInfo) 
   * Updated: Added processing of the 3rd parameter cResType to the C-function 
            RCDataToFile() for xHarbour compiler. 
            Syntax: 
              RCDataToFile( <cResName>|<nResID>, <cFileName> [, <cResType> ] ) 
            (see demo2.prg in folder \samples\Advanced\RCDataToFile) 
   * Updated: WinReport library: 
            - added new commands to support a font attibute in GROUP section; 
            - updated WinReport CHM file. 
            Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> 
            (see demo in folder \samples\Advanced\REPORT_INTERPRETER) 
   * Updated: Harbour Compiler 3.2.0dev (SVN 2017-11-14 20:44). 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (look at ReadMe.txt in folder \harbour) 
   * New: 'Show AVI files' samples. 
            Contributed by Verchenko Andrey <verchenkoag@gmail.com> 
            (see in folder \samples\Basic\ANIMATEDEMO_2) 
   * New: 'Sort Columns With Header Click in a Browse' sample. 
            Based upon a contribution of HMG user KDJ. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\BROWSE_SORT_2) 
   * New: 'View and save the images from a website' sample. 
            Based upon a contribution of HMG user KDJ. 
            Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Advanced\ImageFromWeb) 
   * Updated: 'Quick Browse Generator' utility: 
            - added possibility of column deletion in a Grid context menu; 
            - added an ability to save a report in the WinReport format; 
            - added support for the main languages. 
            Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> 
            (see in folder \Utils\QBGen) 
   * Updated: 'My Dbf Browse' sample: added using of COLUMNSORT clause. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\BROWSE_8) 
   * Updated: 'Image To DBF' sample: added using of Timer ONCE clause. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\basic\Image2Dbf) 
   * Updated: 'Media Player control' sample: 
            - New: added the useful function aSize := GetAviFileSize( <cFile> ). 
            Based upon a contribution of Verchenko Andrey <verchenkoag@gmail.com> 
            (see in folder \samples\Basic\PLAYER_1) 
   * Updated: 'Print Pie Graph' sample: updated the data for October 2017. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see demo.prg in folder \samples\Basic\GraphPrint) 
   * Updated: 'Replacement for Clipper ALERT() function' sample: 
            - the dialog size and controls placement are similar to Windows 7 look. 
            Contributed by Grigory Filatov <gfilatov@inbox.ru> 
            (see in folder \samples\Basic\WALERT_2)