[lazarus] FPC Request

[Florian Klaempfl]

Shane Miller schrieb:
> 
> Another request.
> 
> Classesh.inc should contain 4 const values.
> 
> scShift = $2000
> scCtrl = $4000;
> scAlt = $8000
> scNone = 0;
> 
> These are used to defiune the TShortCut returned in Menus.pp
> 
> Thanks

Done, nevertheless I don't like this solution of TShortCut, I think
it would be better a record but this isn't VCL compatible