anchor.diff:    gfx_popupwindow;
   
   type
  +
  +  { TfpgBaseComboBox }
   
     TfpgBaseComboBox = class(TfpgWidget)
     private
  
positive.code:   end;
    
  
    TfpgAbstractComboBox = class(TfpgBaseComboBox)
    private
      FInternalBtnRect: TfpgRect;
  
negative.code:   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);
  