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: begin
  	inherited Create(AOwner);
  	FIsContainer := True;
  	FHorBar := TfpgScrollbar.Create(self);
  	FHorBar.Visible := False;
  	FHorBar.Orientation := orHorizontal;
  	FVerBar := TfpgScrollbar.Create(self);
  	FVerBar.Visible := False;
  	FVerBar.Orientation := orVertical;
  	PositionScrollBars;
  	FList := TList.Create;
  	FActiveWindow := nil;
  end;
  
  
negative.code: 		procedure TitleMouseExit(Sender: TObject);
  		procedure CloseMDIWindowClicked(Sender: TObject);
  		procedure SetActive(AValue: boolean);
      procedure ChildFormResized(Sender: TObject);
      procedure DoOnMove(const x, y: TfpgCoord);
  	protected
      procedure HandleMove(x, y: TfpgCoord); override;
  