anchor.diff:  
   procedure TSynBaseCompletionProposalForm.KeyPress(var Key: Char);
   begin
  -end;
  -
  -procedure TSynBaseCompletionProposalForm.DoKeyPressW(Key: WideChar);
  -begin
  -  if Key <> #0 then
  -    KeyPressW(Key);
  -end;
  -
  -procedure TSynBaseCompletionProposalForm.KeyPressW(var Key: WideChar);
  -begin
  +  if Key = #0 then Exit;
  +
     if DisplayType = ctCode then
     begin
       case Key of
  
positive.code:     function GetItemList: TStrings;
      function GetInsertList: TStrings;
      function GetOnCancel: TNotifyEvent;
      function GetOnKeyPress: TKeyPressWEvent;
      function GetOnPaintItem: TSynBaseCompletionProposalPaintItem;
      function GetOnMeasureItem: TSynBaseCompletionProposalMeasureItem;
      function GetOnValidate: TValidateEvent;
  
negative.code:     SendMessage(ParentForm.Handle, WM_NCACTIVATE, Ord(Message.Active <> WA_INACTIVE), 0);
  end;
  
  procedure TSynBaseCompletionProposalForm.DoFormHide(Sender: TObject);
  begin
    if CurrentEditor <> nil then
  