GRID CHANGE COL
Posted: Wed Jul 24, 2019 9:41 am
I WANT TO LEARN HOW TO CHANGE FROM ONE COL TO THREE COL IN GRID WHEN I PUSH ENTER BUTON
PLEASE HELP
THANKS
TOM TAGARIS
PLEASE HELP
THANKS
TOM TAGARIS
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
Code: Select all
#include "hmg.ch"
Function Main
Local aRows [20] [3]
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 550 ;
TITLE 'Hello World!' ;
MAIN
aRows [1] := {'Simpson','Homer','555-5555'}
aRows [2] := {'Mulder','Fox','324-6432'}
aRows [3] := {'Smart','Max','432-5892'}
aRows [4] := {'Grillo','Pepe','894-2332'}
aRows [5] := {'Kirk','James','346-9873'}
aRows [6] := {'Barriga','Carlos','394-9654'}
aRows [7] := {'Flanders','Ned','435-3211'}
aRows [8] := {'Smith','John','123-1234'}
aRows [9] := {'Pedemonti','Flavio','000-0000'}
aRows [10] := {'Gomez','Juan','583-4832'}
aRows [11] := {'Fernandez','Raul','321-4332'}
aRows [12] := {'Borges','Javier','326-9430'}
aRows [13] := {'Alvarez','Alberto','543-7898'}
aRows [14] := {'Gonzalez','Ambo','437-8473'}
aRows [15] := {'Batistuta','Gol','485-2843'}
aRows [16] := {'Vinazzi','Amigo','394-5983'}
aRows [17] := {'Pedemonti','Flavio','534-7984'}
aRows [18] := {'Samarbide','Armando','854-7873'}
aRows [19] := {'Pradon','Alejandra','???-????'}
aRows [20] := {'Reyes','Monica','432-5836'}
@ 50,10 GRID Grid_Master ;
WIDTH 760 ;
HEIGHT 180 ;
HEADERS {'Last Name','First Name','Phone'} ;
WIDTHS {140,140,140};
ITEMS aRows ;
VALUE {1,1} ;
TOOLTIP 'Editable Grid Control' ;
EDIT ;
JUSTIFY { GRID_JTFY_CENTER,GRID_JTFY_RIGHT, GRID_JTFY_RIGHT } ;
CELLNAVIGATION ;
ON INPLACEEDITEVENT ProcGridInplaceEditEvent()
@ 240,10 GRID Grid_Detail ;
WIDTH 760 ;
HEIGHT 180 ;
HEADERS {'Last Name','First Name','Phone'} ;
WIDTHS {140,140,140};
ITEMS aRows ;
VALUE 1 ;
EDIT ;
TOOLTIP 'Editable Grid Control' ;
ON HEADCLICK { {||MsgInfo('Click 1')} , {||MsgInfo('Click 2')} , {||MsgInfo('Click 3')} } ;
JUSTIFY { GRID_JTFY_LEFT,GRID_JTFY_CENTER, GRID_JTFY_CENTER };
ON INPLACEEDITEVENT ProcGridInplaceEditEvent()
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
***********************************
FUNCTION ProcGridInplaceEditEvent()
Local lCellNavigation := _HMG_SYSDATA [ 32 ] [_HMG_SYSDATA [ 203 ]]
Static lInitByDblClick := .F.
DO CASE
CASE This.IsInplaceEditEventInit == .T.
lInitByDblClick := _HMG_GridEx_InplaceEdit_nMsg == WM_LBUTTONDBLCLK
CASE This.IsInplaceEditEventRun == .T.
CASE This.IsInplaceEditEventFinish == .T.
IF lCellNavigation
IF _HMG_SYSDATA [ 15 ] [_HMG_SYSDATA [ 203 ]] = 1 //first column
_HMG_SYSDATA [ 15 ] [_HMG_SYSDATA [ 203 ]] := _HMG_SYSDATA [ 15 ] [_HMG_SYSDATA [ 203 ]] + IF (lInitByDblClick, 2, 1) //skip one column
ENDIF
ELSE
IF _HMG_SYSDATA [ 340 ] = 1 //first column
_HMG_SYSDATA [ 340 ] := _HMG_SYSDATA [ 340 ] + IF (lInitByDblClick, 2, 1) //skip one column
ENDIF
ENDIF
ENDCASE
RETURN NIL
**********************************
Code: Select all
#include "hmg.ch"
Function Main
Local aRows [20] [3]
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 550 ;
TITLE 'Hello World!' ;
MAIN
aRows [1] := {'Simpson','Homer','555-5555','non editable','1'}
aRows [2] := {'Mulder','Fox','324-6432','non editable','2'}
aRows [3] := {'Smart','Max','432-5892','non editable','3'}
aRows [4] := {'Grillo','Pepe','894-2332','non editable','4'}
aRows [5] := {'Kirk','James','346-9873','non editable','5'}
aRows [6] := {'Barriga','Carlos','394-9654','non editable','6'}
aRows [7] := {'Flanders','Ned','435-3211','non editable','7'}
aRows [8] := {'Smith','John','123-1234','non editable','8'}
aRows [9] := {'Pedemonti','Flavio','000-0000','non editable','9'}
aRows [10] := {'Gomez','Juan','583-4832','non editable','10'}
aRows [11] := {'Fernandez','Raul','321-4332','non editable','11'}
aRows [12] := {'Borges','Javier','326-9430','non editable','12'}
aRows [13] := {'Alvarez','Alberto','543-7898','non editable','13'}
aRows [14] := {'Gonzalez','Ambo','437-8473','non editable','14'}
aRows [15] := {'Batistuta','Gol','485-2843','non editable','15'}
aRows [16] := {'Vinazzi','Amigo','394-5983','non editable','16'}
aRows [17] := {'Pedemonti','Flavio','534-7984','non editable','17'}
aRows [18] := {'Samarbide','Armando','854-7873','non editable','18'}
aRows [19] := {'Pradon','Alejandra','???-????','non editable','19'}
aRows [20] := {'Reyes','Monica','432-5836','non editable','20'}
@ 50,10 GRID Grid_Master ;
WIDTH 760 ;
HEIGHT 180 ;
HEADERS {'Last Name','First Name','Phone','Col 4','Col 5'} ;
WIDTHS {140,140,140,140,140};
ITEMS aRows ;
VALUE {1,1} ;
TOOLTIP 'Editable Grid Control' ;
EDIT ;
COLUMNWHEN { { || .t. },{ || .T. }, { || .t. }, { || .F. }, { || .T. }} ;
JUSTIFY { GRID_JTFY_CENTER,GRID_JTFY_RIGHT, GRID_JTFY_RIGHT , GRID_JTFY_RIGHT , GRID_JTFY_RIGHT } ;
CELLNAVIGATION ;
ON INPLACEEDITEVENT ProcGridInplaceEditEvent()
@ 240,10 GRID Grid_Detail ;
WIDTH 760 ;
HEIGHT 180 ;
HEADERS {'Last Name','First Name','Phone','Col 4','Col 5'} ;
WIDTHS {140,140,140,140,140};
ITEMS aRows ;
VALUE 1 ;
EDIT ;
TOOLTIP 'Editable Grid Control' ;
COLUMNWHEN { { || .t. },{ || .T. }, { || .t. }, { || .F. }, { || .T. }} ;
ON HEADCLICK { {||MsgInfo('Click 1')} , {||MsgInfo('Click 2')} , {||MsgInfo('Click 3')} } ;
JUSTIFY { GRID_JTFY_LEFT,GRID_JTFY_CENTER, GRID_JTFY_CENTER, GRID_JTFY_CENTER, GRID_JTFY_CENTER };
ON INPLACEEDITEVENT ProcGridInplaceEditEvent()
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
***********************************
FUNCTION ProcGridInplaceEditEvent()
Local lCellNavigation := _HMG_SYSDATA [ 32 ] [_HMG_SYSDATA [ 203 ]]
Static lInitByDblClick := .F.
DO CASE
CASE This.IsInplaceEditEventInit == .T.
lInitByDblClick := _HMG_GridEx_InplaceEdit_nMsg == WM_LBUTTONDBLCLK
CASE This.IsInplaceEditEventRun == .T.
CASE This.IsInplaceEditEventFinish == .T.
IF lCellNavigation
IF _HMG_SYSDATA [ 15 ] [_HMG_SYSDATA [ 203 ]] = 1 //first column
_HMG_SYSDATA [ 15 ] [_HMG_SYSDATA [ 203 ]] := _HMG_SYSDATA [ 15 ] [_HMG_SYSDATA [ 203 ]] + IF (lInitByDblClick, 2, 1) //skip one column
ENDIF
ELSE
IF _HMG_SYSDATA [ 340 ] = 1 //first column
_HMG_SYSDATA [ 340 ] := _HMG_SYSDATA [ 340 ] + IF (lInitByDblClick, 2, 1) //skip one column
ENDIF
ENDIF
ENDCASE
RETURN NIL
**********************************
Code: Select all
FUNCTION ProcGridInplaceEditEvent()
Local index := GetControlIndex ( This.InplaceEditGridName , This.InplaceEditParentName )
Static lInitByDblClick := .F.
DO CASE
CASE This.IsInplaceEditEventInit == .T.
lInitByDblClick := _HMG_GridEx_InplaceEdit_nMsg == WM_LBUTTONDBLCLK
CASE This.IsInplaceEditEventRun == .T.
CASE This.IsInplaceEditEventFinish == .T. .AND. index > 0
IF _HMG_SYSDATA [ 32 ] [index] //is Cell Navigation?
IF _HMG_SYSDATA [ 15 ] [index] = 1 //first column
_HMG_SYSDATA [ 15 ] [index] := _HMG_SYSDATA [ 15 ] [index] + IF (lInitByDblClick, 2, 1) //skip one column
ENDIF
ELSE
IF _HMG_SYSDATA [ 340 ] = 1 //first column
_HMG_SYSDATA [ 340 ] := _HMG_SYSDATA [ 340 ] + IF (lInitByDblClick, 2, 1) //skip one column
ENDIF
ENDIF
ENDCASE
RETURN NIL
Code: Select all
FUNCTION ProcGridInplaceEditEvent()
Static lInitByDblClick := .F.
DO CASE
CASE This.IsInplaceEditEventInit == .T.
lInitByDblClick := _HMG_GridEx_InplaceEdit_nMsg == WM_LBUTTONDBLCLK
CASE This.IsInplaceEditEventRun == .T.
CASE This.IsInplaceEditEventFinish == .T.
IF _HMG_SYSDATA [ 340 ] = 1 //first column
_HMG_SYSDATA [ 340 ] := _HMG_SYSDATA [ 340 ] + IF (lInitByDblClick, 2, 1) //skip one column
ENDIF
ENDIF
ENDCASE
RETURN NIL