anchor.diff:    inherited HandleResize(AWidth, AHeight);
     if FSizeIsDirty then
       CalculateInternalButtonRect;
  -end;
  -
  -procedure TfpgBaseEditCombo.HandleSetFocus;
  -var
  -  i: integer;
  -begin
  -  inherited HandleSetFocus;
  -  if FText > '' then
  -    for i := 0 to Items.Count-1 do
  -      if SameText(UTF8Copy(Items.Strings[i], 1, UTF8Length(FText)), FText) then
  -      begin
  -        FSelectedItem := i;
  -        FNewItem := False;
  -        Exit; //==>
  -      end;
   end;
   
   procedure TfpgBaseEditCombo.HandleKeyChar(var AText: TfpgChar;
  
positive.code:     constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
      procedure   Clear;
      procedure   Update;
      property    NewText: boolean read FNewItem;
    end;
  
negative.code:                     if TfpgMessageDialog.Question(rsNewItemDetected, Format(rsAddNewItem, [FText])) = mbYes then
                      begin
                        FItems.Add(FText);
                        FFocusItem := Pred(FItems.Count);
                      end
                      else
                      begin
                        FNewItem:= False;
                        FFocusItem := -1;
                        FText:= '';
                      end;  { if/else }
                      Parent.ActivateWindow;
  