Explorar o código

Don't treat Ctrl+whatever+key as Ctrl+key. (Ctrl+Alt+M may be used for mu.)

git-svn-id: file:///var/svn/tigccpp/trunk/tigcc/ide@834 9552661e-59e3-4036-b4f2-dbe53926924f
kevinkofler %!s(int64=18) %!d(string=hai) anos
pai
achega
3d49d5d468
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      CodeCompletion/CompletionForm.pas

+ 2 - 2
CodeCompletion/CompletionForm.pas

@@ -570,13 +570,13 @@ begin
 		end;
 		Key := NewKey;
 	end
-	else if (ssCtrl in Shift) and ((Key = VK_SPACE) or (Key = Ord('M'))) then
+	else if (Shift = [ssCtrl]) and ((Key = VK_SPACE) or (Key = Ord('M'))) then
 	begin
 		Key := 0;
 		StopKey := True;
 		ShowCompletion;
 	end
-	else if (ssCtrl in Shift) and (Key = Ord('J')) then
+	else if (Shift = [ssCtrl]) and (Key = Ord('J')) then
 	begin
 		Key := 0;
 		StopKey := True;