#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 
 ...