anchor.diff:  	end;
   end;
   
  +procedure TfpgMDIChildForm.ChildFormResized(Sender: TObject);
  +begin
  +  SendDebug('ChildFormResize');
  +end;
  +
   procedure TfpgMDIChildForm.DoOnMove(const x, y: TfpgCoord);
   var
     rec: TfpgMoveEventRec;
  
positive.code: 	frm := TfpgMDIChildForm.Create(self);
  	Result := AWindowClass.Create(frm.bvlClientArea);
  	frm.SetClientFrame(Result);
  	FList.Add(frm);
  	ActiveWindow := frm;
  end;
  
negative.code: begin
  	inherited Create(AOwner);
  	FIsContainer := True;
    FScrollingHorizonal := False;
  
    FHorBar := TfpgScrollbar.Create(self);
  	FHorBar.Visible := False;
  	FHorBar.Orientation := orHorizontal;
    FHorBar.OnScroll := @HorizontalScrollBarScrolled;
  
    FVerBar := TfpgScrollbar.Create(self);
  	FVerBar.Visible := False;
  	FVerBar.Orientation := orVertical;
  
    PositionScrollBars;
  
    FList := TList.Create;
  	FActiveWindow := nil;
  end;
  
  