Accept CC suggestion with '('

BenLand100 · Jul 14, 2016 · 1e17151 · 1e17151
1 parent 18c9fba
commit 1e17151
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/Units/Misc/v_autocompleteform.pas b/Units/Misc/v_autocompleteform.pas
@@ -288,9 +288,9 @@ procedure TAutoCompleteListBox.CNChar(var message: TMessage);
   inherited;
 
   {$IFDEF FPC}
-  if (message.Result = 0) and (Redirect <> nil) and (TLMChar(message).CharCode <> VK_DOWN) and (TLMChar(message).CharCode <> VK_UP) and (TLMChar(message).CharCode <> VK_RETURN) then
+  if (message.Result = 0) and (Redirect <> nil) and (not (TLMChar(message).CharCode in [13, 10])) then
   {$ELSE}
-  if (message.Result = 0) and (Redirect <> nil) and (TWMChar(message).CharCode <> VK_DOWN) and (TWMChar(message).CharCode <> VK_UP) and (TWMChar(message).CharCode <> VK_RETURN) then
+  if (message.Result = 0) and (Redirect <> nil) and (not (TWMChar(message).CharCode in [13, 10])) then
   {$ENDIF}
   begin
     Redirect.SetFocus;
@@ -1004,6 +1004,8 @@ procedure TParamHint.Show(StartPoint,BracketPoint: TPoint;Decl : TciProcedureDec
   FBracketPoint:= BracketPoint;
 
   CalculateBounds;  //Calculate the size we need!
+
+  FSynEdit.SetFocus();
   self.Visible := true;
 end;