New LCL shortcut system
From Lazarus wiki
This page collects ideas about improving system of shortcuts in LCL.
Current state
TShortCut = Low(Word)..High(Word); // in classes.pp unit // virtual key codes VK_* Key := ShortCut and $FF; // key modifiers Meta := ShortCut and $1000; // scMeta Shift := ShortCut and $2000; // scShift Control := ShortCut and $4000; // scControl Alt := ShortCut and $8000; // scAlt
Unused bits in TShortCut: $0F00