When selecting from a grid list with checkboxes
I would like to know of a way to select ALL checkboxes, perhaps with an ALT+Key
or something. if its possible it would be convenient to only deselect a minority of
items rather than selecting the majority one by one.
Thanks all.
Grid Checkbox Select all (How to)
Moderator: Rathinagiri
Re: Grid Checkbox Select all (How to)
try:
Code: Select all
ON KEY ALT+ADD ACTION Form_1.Grid_1.CheckBoxAllItems := .T. //ALT with Num+ :=> Check All
ON KEY ALT+SUBTRACT ACTION Form_1.Grid_1.CheckBoxAllItems := .F. //ALT with Num- :=> UnCheck All
ON KEY ALT+MULTIPLY ACTION ReverseCheck() //ALT with Num* :=> Reverse Check/UnCheck All
@ 450, 155 BUTTON Button_1 CAPTION "Check All" ACTION Form_1.Grid_1.CheckBoxAllItems := .T.
@ 450, 355 BUTTON Button_2 CAPTION "UnCheck All" ACTION Form_1.Grid_1.CheckBoxAllItems := .F.
@ 450, 555 BUTTON Button_3 CAPTION "Reverse Check" ACTION ReverseCheck()
****************************
FUNCTION ReverseCheck()
Local i
FOR i = 1 TO Form_1.Grid_1.ItemCount
Form_1.Grid_1.CheckBoxItem ( i ) := ! Form_1.Grid_1.CheckBoxItem ( i )
NEXT i
RETURN