paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 14:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer: handling CN_SYSKEYUP/DOWN messages, e.g. Cmd+C under carbon

Browse Source 
git-svn-id: trunk@15938 -
This commit is contained in:
mattias 2008-08-03 19:56:46 +00:00
parent 3af4740453
commit 522be24b4a
1 changed files with 3 additions and 3 deletions

6
designer/designer.pp
View File

@ -1826,7 +1826,7 @@ Begin
Handled:=false;
Command:=FTheFormEditor.TranslateKeyToDesignerCommand(
TheMessage.CharCode,Shift);
//DebugLn('TDesigner.KEYDOWN Command=',dbgs(Command));
//DebugLn(['TDesigner.KEYDOWN Command=',dbgs(Command),' ',TheMessage.CharCode,' ',dbgs(Shift)]);
DoProcessCommand(Self,Command,Handled);
//DebugLn(['TDesigner.KeyDown Command=',Command,' Handled=',Handled,' TheMessage.CharCode=',TheMessage.CharCode]);
@ -2004,8 +2004,8 @@ Begin
Result:=true;
case TheMessage.Msg of
LM_PAINT: Result := PaintControl(Sender, TLMPaint(TheMessage));
CN_KEYDOWN: KeyDown(Sender,TLMKey(TheMessage));
CN_KEYUP: KeyUP(Sender,TLMKey(TheMessage));
CN_KEYDOWN,CN_SYSKEYDOWN: KeyDown(Sender,TLMKey(TheMessage));
CN_KEYUP,CN_SYSKEYUP: KeyUP(Sender,TLMKey(TheMessage));
LM_LBUTTONDOWN,
LM_RBUTTONDOWN,
LM_LBUTTONDBLCLK: MouseDownOnControl(Sender,TLMMouse(TheMessage));