anchor.diff:    TfpgScrollFrame = class (TfpgFrame)
     private
       FContentFrame : TfpgAutoSizingFrame;
  -    FVisibleArea : TfpgFrame;
  +    FVisibleArea : TfpgEmbeddingFrame;
       FHScrollBar : TfpgScrollBar;
       FVScrollBar : TfpgScrollBar;
       FScrollBarStyle : TfpgScrollStyle;
  
positive.code:   RecalcFrameSize;
  end;
  
  procedure TfpgAutoSizingFrame.UpdatePos;
  begin
    UpdateWindowPosition;
    if ParentScrollFrame is TfpgScrollFrame then
      ParentScrollFrame.UpdateScrollbars;
  end;
  
  procedure TfpgAutoSizingFrame.HandleMouseScroll(x, y: integer; 
    shiftstate: TShiftState; delta: smallint);
  begin
    ParentScrollFrame.HandleMouseScroll(x, y, shiftstate, delta);
  end;
  
  procedure TfpgAutoSizingFrame.HandleMouseHorizScroll(x, y: integer; 
    shiftstate: TShiftState; delta: smallint);
  begin
    ParentScrollFrame.HandleMouseHorizScroll(x, y, shiftstate, delta);
  end;
  
  procedure TfpgAutoSizingFrame.AdjustDimsFor (w: TfpgWidget; updatewp: boolean = true);
  var
    new_w, new_h: integer;
  
negative.code:   
    TfpgScrollFrame = class;
  
    { TfpgEmbeddingFrame }
  
    TfpgEmbeddingFrame = class (TfpgFrame)
    // The purpose of the EmbeddingFrame is to pass scroll events to the ParentScrollFrame
    private
      FParentScrollFrame : TfpgScrollFrame;
    protected
      procedure HandleMouseScroll(x, y: integer; shiftstate: TShiftState;
          delta: smallint); override;
      procedure HandleMouseHorizScroll(x, y: integer; shiftstate: TShiftState; 
          delta: smallint); override;
    public
      property ParentScrollFrame : TfpgScrollFrame read FParentScrollFrame write FParentScrollFrame;
    end;
  
    { TfpgAutoSizingFrame }
  
    TfpgAutoSizingFrame = class (TfpgEmbeddingFrame)
    private
      FMarginBR : integer;
      procedure SetMarginBR (AValue: integer);
    public
      procedure AdjustDimsFor (w : TfpgWidget; updatewp: boolean = true);
      procedure AdjustDimsWithout (w : TfpgWidget);
      procedure RecalcFrameSize;
      property MarginBR : integer read FMarginBR write SetMarginBR; // bottom-right margin
    end;
  
    TfpgASFrameClass = class of TfpgAutoSizingFrame;
  