anchor.diff:      SendMessage(ParentForm.Handle, WM_NCACTIVATE, Ord(Message.Active <> WA_INACTIVE), 0);
   end;
   
  -procedure TSynBaseCompletionProposalForm.WMChar(var Msg: TWMChar);
  -begin
  -
  -  // Process only if Ctrl or Alt are not pressed
  -  // !! Commented out to resolve #936
  -  //if (KeyDataToShiftState(Msg.KeyData) + [ssShift]) = [ssShift] then
  -    DoKeyPressW(WideChar(Msg.CharCode));
  -end;
  -
   procedure TSynBaseCompletionProposalForm.DoFormHide(Sender: TObject);
   begin
     if CurrentEditor <> nil then
  
positive.code:     property CurrentIndex: Integer read FCurrentIndex write FCurrentIndex;
      property CurrentLevel: Integer read FCurrentLevel write FCurrentLevel;
      property OnParameterToken: TCompletionParameter read FParameterToken write FParameterToken;
      property OnKeyPress: TKeyPressWEvent read FOnKeyPress write FOnKeyPress;
      property OnPaintItem: TSynBaseCompletionProposalPaintItem read FOnPaintItem write FOnPaintItem;
      property OnMeasureItem: TSynBaseCompletionProposalMeasureItem read FOnMeasureItem write FOnMeasureItem;
      property OnValidate: TValidateEvent read FOnValidate write FOnValidate;
  
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);
  