anchor.diff:    PaintInternalButton;
   end;
   
  +procedure TfpgAbstractComboBox.HandleMouseScroll(x, y: integer;
  +  shiftstate: TShiftState; delta: smallint);
  +var
  +  NewIndex: Integer;
  +begin
  +  if (FDropDown <> nil) and FDropDown.Visible then
  +    Exit;
  +  if Items.Count < 1 then
  +    Exit;
  +
  +  NewIndex := FocusItem + Delta;
  +
  +  if NewIndex > Items.Count then
  +    NewIndex := Items.Count;
  +    
  +  if NewIndex < 1 then
  +    NewIndex := 1;
  +    
  +  if NewIndex <> FocusItem then
  +  begin
  +    FocusItem := NewIndex;
  +    RePaint;
  +  end;
  +
  +end;
  +
   procedure TfpgAbstractComboBox.HandleResize(awidth, aheight: TfpgCoord);
   begin
     inherited HandleResize(awidth, aheight);
  
positive.code:   gfx_popupwindow;
  
  type
  
    TfpgBaseComboBox = class(TfpgWidget)
    private
  
negative.code:   end;
    
  
    { TfpgAbstractComboBox }
  
    TfpgAbstractComboBox = class(TfpgBaseComboBox)
    private
      FInternalBtnRect: TfpgRect;
  