anchor.diff:    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;
  
positive.code: begin
    inherited Create(AOwner);
  
    FVisibleArea := TfpgFrame.Create(self);
    FVisibleArea.Left := 0;
    FVisibleArea.Top := 0;
  
    FContentFrame := ContentFrameType.Create(FVisibleArea);
    FContentFrame.Left := 0;
    FContentFrame.Top := 0;
    FContentFrame.ParentScrollFrame := self;
  end;
  
  
negative.code:     property ContentFrame : TfpgAutoSizingFrame read FContentFrame write FContentFrame;
    end;
  
  
  implementation
  
  
  { TfpgEmbeddingFrame }
  
  procedure TfpgEmbeddingFrame.HandleMouseScroll(x, y: integer; 
    shiftstate: TShiftState; delta: smallint);
  begin
    ParentScrollFrame.HandleMouseScroll(x, y, shiftstate, delta);
  end;
  
  procedure TfpgEmbeddingFrame.HandleMouseHorizScroll(x, y: integer; 
    shiftstate: TShiftState; delta: smallint);
  begin
    ParentScrollFrame.HandleMouseHorizScroll(x, y, shiftstate, delta);
  end;
  
  
  { TfpgAutoSizingFrame }
  
  