anchor.diff:    prevval: string;
     i: integer;
   begin
  +  inherited HandleKeyChar(AText, shiftstate, consumed);
  +  if Consumed then
  +    Exit; //==>
     prevval   := FText;
     s         := AText;
     consumed  := False;
  
positive.code: 
    if consumed then
      RePaint;
  //  else
      inherited HandleKeyChar(AText, shiftstate, consumed);
  end;
  
  procedure TfpgBaseEditCombo.HandleKeyPress(var keycode: word;
  
negative.code: {
      fpGUI  -  Free Pascal GUI Toolkit
  
      Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  