HMGforum.com

Code: Select all

DEFINE WINDOW Form_1 ...
	etc...
	
         @ 10,10 GRID      Grid_1 ;
            WIDTH          nWIDTH ;
            HEIGHT         nGRID_H ;
            HEADERS        aHEADERS;
            WIDTHS         aWIDTHS;
            VALUE          { 1 , 1 } ;
            ROWSOURCE      'F1' ;
            COLUMNFIELDS   aFIELDS ;
            EDIT           ;
            ALLOWAPPEND    ;
            ALLOWDELETE    ;
            COLUMNCONTROLS aCtrls ;
            ON SAVE        OnSaveTest()

/*
ALT + A --> Append
ALT + D --> Delete
ALT + R --> ReCall
ALT + S --> Save (On Save)
ALT + U --> ClearBuffer
*/

         DEFINE BUTTON  BT_7
            ROW         nGRID_H + 20
            COL         10 
            WIDTH       70
            HEIGHT      35
            ACTION      STUFF_KB('K_ALT_S')
            CAPTION     "Save"
            TRANSPARENT TRUE
            TOOLTIP     "Save"
            PICTURE     ""
            PICTALIGNMENT TOP
         END BUTTON
         
END WINDOW
ACTIVATE WINDOW Form_1



         
FUNCTION STUFF_KB(X)
/*******************/
Form_1.Grid_1.SetFocus

DO CASE 
CASE X == 'K_ALT_S'
   KEYBOARD CHR(K_ALT_S)  

CASE X == 'K_ALT_A'
   KEYBOARD CHR(K_ALT_A)  

CASE X == 'K_ALT_D'
   KEYBOARD CHR(K_ALT_D)  

CASE X == 'K_ALT_R'
   KEYBOARD CHR(K_ALT_R)  

CASE X == 'K_ALT_U'
   KEYBOARD CHR(K_ALT_U)  

OTHERWISE
ENDCASE
   
RETURN


FUNCTION OnSaveTest()
/********************/
LOCAL i
LOCAL s
LOCAL cMark
LOCAL j

//* Show Edited Cells  
/********************/

FOR i := 1 To len( This.EditBuffer )

   s := ''
   nLogicalRow	   := This.EditBuffer [ i ] [ 1 ] 
   nLogicalCol	   := This.EditBuffer [ i ] [ 2 ] 
   xValue		   := This.EditBuffer [ i ] [ 3 ] 
   nPhysicalRow	:= This.EditBuffer [ i ] [ 4 ] 
...etc....

from the old GRID.34\DEMO.PRG by HMG Virtual Grid Demo   (c) 2009 Roberto Lopez

Code: Select all

SET KEY ALT + A TO
SET KEY ALT + D TO
SET KEY ALT + R TO
***SET KEY ALT + S TO
SET KEY ALT + U TO

.
.
.

         DEFINE BUTTON  BT_7
            ROW         nGRID_H + 20
            COL         10 
            WIDTH       70
            HEIGHT      35
            ACTION      Keybd_Event( VK_MENU, VK_S, NIL, NIL )		// <===================
            CAPTION     "Save"
            TRANSPARENT TRUE
            TOOLTIP     "Save"
            PICTURE     ""
            PICTALIGNMENT TOP
         END BUTTON

Code: Select all

   ON KEY DoGridKey1( ThisWindow.Name, This.Name )

Code: Select all

PROCEDURE DoGridKey1( cForm, cObj )
LOCAL xKey   := HMG_GetLastVirtualKeyDown()

   DO CASE
      CASE xKey == VK_S .AND. HMG_VirtualKeyIsPressed( VK_ALT )
         SaveRecord()
      ...  
   ENDCASE

   HMG_CleanLastVirtualKeyDown()
RETURN

Code: Select all

 
DEFINE BUTTON  BT_7
    ROW        10
    COL         10 
    WIDTH       70
    HEIGHT      35
    ACTION      Grid_1_Save()
    CAPTION     "Save"
    TRANSPARENT TRUE
    TOOLTIP     "Save"
    PICTURE     ""
    PICTALIGNMENT TOP
END BUTTON
 

Code: Select all

FUNCTION Grid_1_Save()
/*******************/
Form_1.SetFocus
ix := GetControlIndex ( 'Grid_1', 'Form_1' )
DataGridSave(ix)
OnSaveTest()
RETURN