Difference between revisions of "New LCL shortcut system"

From Free Pascal wiki
Jump to navigationJump to search
(New page: 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 := Shor...)
 
Line 13: Line 13:
 
  Control := ShortCut and $4000; // scControl
 
  Control := ShortCut and $4000; // scControl
 
  Alt    := ShortCut and $8000; // scAlt
 
  Alt    := ShortCut and $8000; // scAlt
 +
 +
Unused bits in TShortCut: $0F00

Revision as of 15:24, 9 October 2008

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