paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 09:00:21 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/designer.pp
View File

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