anchor.diff:      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
       procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
       procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
  +    procedure   HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
       procedure   HandleResize(awidth, aheight: TfpgCoord); override;
       procedure   HandlePaint; override;
       procedure   PaintInternalButton; virtual;
  
positive.code:   gfx_popupwindow;
  
  type
  
    TfpgBaseComboBox = class(TfpgWidget)
    private
  
negative.code:   end;
    
  
    { TfpgAbstractComboBox }
  
    TfpgAbstractComboBox = class(TfpgBaseComboBox)
    private
      FInternalBtnRect: TfpgRect;
  