paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 10:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: showing keymapping grab debugging info

Browse Source 
git-svn-id: trunk@15856 -
This commit is contained in:
mattias 2008-07-24 10:59:32 +00:00
parent 23cd6854d5
commit acf407802a
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/keymapping.pp
View File

@ -2195,10 +2195,9 @@ end;
procedure TKeyMappingEditForm.KeyDown(var Key: Word; Shift: TShiftState);
begin
{writeln('TKeyMappingEditForm.FormKeyUp Sender=',Classname
,' Key=',Key,' Ctrl=',ssCtrl in Shift,' Shift=',ssShift in Shift
,' Alt=',ssAlt in Shift,' AsString=',KeyAndShiftStateToEditorKeyString(Key),
'');}
debugln(['TKeyMappingEditForm.FormKeyUp Sender=',Classname
,' Key=',Key,' Shift=',dbgs(Shift),' AsString=',KeyAndShiftStateToEditorKeyString(Key,[]),
'']);
if (GrabbingKey>0)
and not (Key in [VK_CONTROL, VK_LCONTROL, VK_RCONTROL,
VK_SHIFT, VK_LSHIFT, VK_RSHIFT,

2
lcl/controls.pp
View File

@ -2200,7 +2200,7 @@ procedure AdjustBorderSpace(var RemainingClientRect, CurBorderSpace: TRect;
function DbgS(a: TAnchorKind): string; overload;
function DbgS(Anchors: TAnchors): string; overload;
function DbgS(a: TAlign): string; overload;
function DbgS(a: TAnchorKind; Side: TAnchorSideReference): string;
function DbgS(a: TAnchorKind; Side: TAnchorSideReference): string; overload;
// register (called by the package initialization in design mode)
procedure Register;