Hi Sergey,

Your code works fine. It was my lack of understanding on how to use it.

Too bad about the nShift problem. According to Fabio Lunardon, it could be a bug.

Regards,

Mike



>Mike,
>
>I guess I wasn't clear. I sugested that you use the middle mouse button instead of Shift key. User'll have to hold it down why scrolling to change font size.
>
>>Sergey,
>>
>>I cut and pasted your example code into a grid's MouseWheel event and cannot get a wait window to appear. I held down the Left Shift key while clicking and/or spinning the middle mouse button. Any idea what I'm doing wrong? Does it work for you?
>>
>>Mike
>>
>>>Mike,
>>>
>>>I think you can use middle mouse button (scroll wheel) to do that.

* Grid's MouseWhell
>>>LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>>>DECLARE SHORT  GetKeyState IN WIN32API INTEGER
>>>#define VK_LBUTTON        0x01
>>>#define VK_RBUTTON        0x02
>>>#define VK_MBUTTON        0x04
>>>IF GetKeyState( VK_MBUTTON ) < 0 ;
>>>		AND GetKeyState( VK_LBUTTON ) >= 0 ;
>>>		AND GetKeyState( VK_RBUTTON ) >= 0
>>>  * The middle mouse button is down
>>>	WAIT WINDOW PROGRAM()
>>>ENDIF	
>>>

>>>>Hi Sergey,
>>>>
>>>>I was trying to provide the user with a way to change the fontsize in the grid by using the mousewheel to enlarge or reduce the size. I wanted to use Shift + wheel so as to preserve the default behaviour of the mousewheel in a grid (ie to scroll the grid's contents).
>>>>
>>>>I've tried successfully to do what I need if I don't try to trap the Shift key. The grid's contents grow or shrink when I spin the mousewheel. It just doesn't want to work if I test for nShift :(
>>>>
>>>>