anchor.diff:      FSelOffset := 0;
     end;
   
  -  if consumed then
  +  if consumed and hasChanged then
       RePaint;
   
     if hasChanged then
  
positive.code:         else
          begin
            FSelectedItem := -1;
            if Assigned(FDropDown) then
              FDropDown.Close;
            for i := 0 to FItems.Count - 1 do
            begin
              if SameText(UTF8Copy(FItems.Strings[i], 1, UTF8Length(FText)), FText) then
  
negative.code: 
  function TfpgAbstractEditCombo.HasText: boolean;
  begin
    Result := FFocusItem > 0;
  end;
  
  procedure TfpgAbstractEditCombo.DoDropDown;
  