paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 12:40:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: formatting.

Browse Source 
git-svn-id: trunk@52875 -
This commit is contained in:
juha 2016-08-26 13:08:13 +00:00
parent b70be02b90
commit 9de206bc95
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/keymapping.pp
View File

@ -3520,17 +3520,23 @@ var
i:integer;
begin
Result:=nil;
//debugln(['TKeyCommandRelationList.Find START ',DbgSName(IDEWindowClass)]);
//debugln(['TKeyCommandRelationList.Find START, IDEWindowClass=',DbgSName(IDEWindowClass),
// ', Key1=', Key.Key1, ', Key2=', Key.Key2]);
//if IDEWindowClass=nil then RaiseGDBException('');
if Key.Key1=VK_UNKNOWN then exit;
for i:=0 to FRelations.Count-1 do
with Relations[i] do begin
//if Command=ecDesignerSelectParent then
// debugln('TKeyCommandRelationList.Find A ',Category.Scope.Name,' ',dbgsName(IDEWindowClass),' ',dbgs(IDECmdScopeDesignerOnly.IDEWindowClassCount),' ',dbgsName(IDECmdScopeDesignerOnly.IDEWindowClasses[0]));
//debugln(['TKeyCommandRelationList.Find ',Name,' HasScope=',Category.Scope<>nil,' ',KeyAndShiftStateToEditorKeyString(ShortcutA),' ',KeyAndShiftStateToEditorKeyString(Key),' ',(Category.Scope<>nil) and (not Category.Scope.HasIDEWindowClass(IDEWindowClass))]);
// debugln('TKeyCommandRelationList.Find A ',Category.Scope.Name,' ',dbgsName(IDEWindowClass),
// ' ',dbgs(IDECmdScopeDesignerOnly.IDEWindowClassCount),
// ' ',dbgsName(IDECmdScopeDesignerOnly.IDEWindowClasses[0]));
//debugln(['TKeyCommandRelationList.Find ',Name,' HasScope=',Category.Scope<>nil,
// ' ',KeyAndShiftStateToEditorKeyString(ShortcutA),
// ' ',KeyAndShiftStateToEditorKeyString(Key),
// ' ',(Category.Scope<>nil) and (not Category.Scope.HasIDEWindowClass(IDEWindowClass))]);
//if (Category.Scope<>nil) and (Category.Scope.IDEWindowClassCount>0) then
// debugln(['TKeyCommandRelationList.Find ',DbgSName(Category.Scope.IDEWindowClasses[0]),' ',DbgSName(IDEWindowClass)]);
// debugln(['TKeyCommandRelationList.Find ',DbgSName(Category.Scope.IDEWindowClasses[0]),
// ' ',DbgSName(IDEWindowClass)]);
if (Category.Scope<>nil)
and (not Category.Scope.HasIDEWindowClass(IDEWindowClass)) then continue;
if ((ShortcutA.Key1=Key.Key1) and (ShortcutA.Shift1=Key.Shift1) and