anchor.diff:      function GetItemList: TStrings;
       function GetInsertList: TStrings;
       function GetOnCancel: TNotifyEvent;
  -    function GetOnKeyPress: TKeyPressWEvent;
  +    function GetOnKeyPress: TKeyPressEvent;
       function GetOnPaintItem: TSynBaseCompletionProposalPaintItem;
       function GetOnMeasureItem: TSynBaseCompletionProposalMeasureItem;
       function GetOnValidate: TValidateEvent;
  
positive.code: 
  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 DisplayType = ctCode then
    begin
      case Key of
  
negative.code:     procedure SetInsertList(const Value: TStrings);
      procedure SetNbLinesInWindow(const Value: Integer);
      procedure SetOnCancel(const Value: TNotifyEvent);
      procedure SetOnKeyPress(const Value: TKeyPressEvent);
      procedure SetOnPaintItem(const Value: TSynBaseCompletionProposalPaintItem);
      procedure SetOnMeasureItem(const Value: TSynBaseCompletionProposalMeasureItem);
      procedure SetPosition(const Value: Integer);
  