Hi Macer,
>>>>>>Hi all
>>>>>>How can I add rightclick menu (I have a grid and I want to add rightclick menu for each cell).
>>>>>
>>>>>if you want to have one rightclick menu for all cells, then place the transparent shape over grid and use rightclick event
>>>>>of Shape to define popup menu and for processing of user choice.
>>>>
>>>>That way you make grid readonly :o) No way to click on it.
>>>
>>>And disable the scroll event... my users are giving me hell for this...
>>
>>it can be easily emulated with shape. at least, we do it in our app many many times ;)
>
>OK spill the beans... how do you make the grid scroll ( from the mouse's scroll button) when a shape is on top of the grid?
>
>If you tell me a good solution I'll send you a beer voucher.
>
>Mace
Shape Mousewheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
*!* wait window str(ndirection) nowait
if !thisform.rlIngrid
thisform.conMore.Grid.setfocus()
thisform.rlIngrid=.t.
endif
thisform.conMore.Grid.Doscroll(iif(nDirection<0,3,2))
works like sharm ;)
* Human is a question asked by birth and answered by death. Machine is another kind of question with another kind of answer