[Lazarus] TShiftState "lock" states in mousewheel events

[Alexander Klenin]

2011/10/4 Flávio Etrusco <flavio.etrusco at gmail.com>:
>>>> Delphi does not have these elements, and, since they are usually not working anyway,
>
> This is easily fixable ;-) But until now I didn't realize this breaks
> code written for Delphi that checked for empty set or superset. I take
> back my argument for handling them in other messages then. The LCL
> implements GetKeyState anyway (although I'd prefer it was "pascalized"
> to avoid bitmasks...)

Of course. There should be a way to check key locks state,
TShiftState is just not a good place for this.

-- 
Alexander S. Klenin