anchor.diff:      function    HasText: boolean; virtual;
       procedure   SetText(const AValue: string); virtual;
       procedure   HandleResize(AWidth, AHeight: TfpgCoord); override;
  -    procedure   HandleSetFocus; override;
       procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override;
       procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: Boolean); override;
       procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
  
positive.code:     constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
      procedure   Clear;
      procedure   Update;
      property    NewText: boolean read FNewItem;
    end;
  
negative.code:   inherited HandleResize(AWidth, AHeight);
    if FSizeIsDirty then
      CalculateInternalButtonRect;
  end;
  
  procedure TfpgBaseEditCombo.HandleKeyChar(var AText: TfpgChar;
  