diff -ur CodeCompletion.old/CompletionForm.pas CodeCompletion/CompletionForm.pas
--- CodeCompletion.old/CompletionForm.pas        Sun Jul 25 15:07:24 2004
+++ CodeCompletion/CompletionForm.pas        Sat Jul 31 01:44:28 2004
@@ -9,6 +9,7 @@
 
 const
         SymbolFileNotFound = 'Symbol %s is declared in %s, but file can''t be found!';
+        AddTemplatesMsg = 'To add templates, go to Preferences->Coding';
 
 type
         TCompForm = class(TForm)
@@ -563,7 +564,10 @@
         begin
                 Key := 0;
                 StopKey := True;
-                TemplateForm.Show;
+                if TemplateForm.Templates.Count = 0 then
+                        ShowMessage(AddTemplatesMsg)
+                else
+                        TemplateForm.Show;
         end
         else if (Key = $35) and not IsWindowVisible(HintWindow.Handle) then
                 ShowSymbolInfo
diff -ur CodeCompletion.old/TmpltForm.pas CodeCompletion/TmpltForm.pas
--- CodeCompletion.old/TmpltForm.pas        Sun Jul 18 12:09:06 2004
+++ CodeCompletion/TmpltForm.pas        Sat Jul 31 01:41:10 2004
@@ -6,10 +6,6 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, MemoComponentUnit;
 
-const
-  WM_FORCEHIDE = WM_APP + $10;
-  AddTemplatesMsg = 'To add templates, go to Preferences->Extension';
-
 type
   TTemplate = class(TObject)
   public
@@ -32,7 +28,6 @@
     { Déclarations publiques }
     Templates: TStringList;
     procedure Select;
-    procedure WMForcehide(var Message: TMessage); message WM_FORCEHIDE;
   end;
 
 var
@@ -190,11 +185,6 @@
   P: TPoint;
 begin
   TmpltList.Count := Templates.Count;
-  if Templates.Count = 0 then
-  begin
-    ShowMessage(AddTemplatesMsg);
-    PostMessage(Handle, WM_FORCEHIDE, 0, 0);
-  end;
   M := CompForm.Editor;
   if Assigned(M) then
   begin
@@ -203,11 +193,6 @@
     Left := P.X + 4;
     Top := P.Y + 20;
   end;
-end;
-
-procedure TTemplateForm.WMForcehide(var Message: TMessage);
-begin
-  Hide;
 end;
 
 end.

diff -ur CodeCompletion.old2/CompletionForm.pas CodeCompletion/CompletionForm.pas
--- CodeCompletion.old2/CompletionForm.pas  Sat Jul 31 01:51:48 2004
+++ CodeCompletion/CompletionForm.pas  Sat Jul 31 02:27:28 2004
@@ -523,12 +523,25 @@
       CompList.ItemIndex := i;
   end;
 var
-  NewKey: Word;
+  NewKey, VkLeftParen, VkRightParen: Word;
+  LeftParenShift, RightParenShift: TShiftState;
 begin
   if Assigned(OldKeyDown) then
     OldKeyDown(Sender, Key, Shift);
   if Visible then
   begin
+    VkLeftParen := VkKeyScan('(');
+    LeftParenShift:=[];
+    if Hi(VkLeftParen) and 1 <> 0 then Include(LeftParenShift, ssShift);
+    if Hi(VkLeftParen) and 2 <> 0 then Include(LeftParenShift, ssCtrl);
+    if Hi(VkLeftParen) and 4 <> 0 then Include(LeftParenShift, ssAlt);
+    VkLeftParen := Lo(VkLeftParen);
+    VkRightParen := VkKeyScan(')');
+    RightParenShift:=[];
+    if Hi(VkRightParen) and 1 <> 0 then Include(RightParenShift, ssShift);
+    if Hi(VkRightParen) and 2 <> 0 then Include(RightParenShift, ssCtrl);
+    if Hi(VkRightParen) and 4 <> 0 then Include(RightParenShift, ssAlt);
+    VkRightParen := Lo(VkRightParen);
     NewKey := 0;
     case Key of
       VK_ESCAPE: Close;
@@ -548,7 +561,8 @@
           Editor_Change(Sender);
           NewKey := Key;
         end;
-      $35: ShowSymbolInfo()
+    else if (Shift = LeftParenShift) and (Key = VkLeftParen) then
+      ShowSymbolInfo()
     else
       NewKey := Key;
     end;
@@ -569,9 +583,11 @@
     else
       TemplateForm.Show;
   end
-  else if (Key = $35) and not IsWindowVisible(HintWindow.Handle) then
+  else if (Shift = LeftParenShift) and (Key = VkLeftParen)
+          and not IsWindowVisible(HintWindow.Handle) then
     ShowSymbolInfo
-  else if (Key in [$DB, VK_BACK, VK_ESCAPE]) then // or not (Key in [Ord('A')..Ord('Z'), Ord('0')..Ord('9')
+  else if ((Shift = RightParenShift) and (Key = VkRightParen))
+          or (Key in [VK_BACK, VK_ESCAPE]) then
     CloseSymbolInfo;
 end;

                else if (i >= 0) and (i < List.Count) then
                begin
                        if i = 0 then
                        begin
                                if Similar(Symbol, List[ i ]) then
                                        T := List[ i ] + ' ?'#13#10
                                else
                                        Exit;
                        end
                        else
                        begin
                                if Similarity(Symbol, List[i - 1]) > Similarity(Symbol, List[ i ]) then
                                        Dec(i);
                                if Similar(Symbol, List[ i ]) then
                                        T := List[ i ] + ' ?'#13#10
                                else
                                        Exit;
                        end;
                end