anchor.diff:    fpg_button;
   
   type
  -	// forward declarations
  +
  +  TfpgMDIChildMoveEvent = procedure(Sender: TObject; const rec: TfpgMoveEventRec) of object;
  +
  +  // forward declarations
   	TfpgMDIChildForm = class;
   
   
  
positive.code: 		FIsMouseDown: boolean;
  		FLastPos: TPoint;
  		FActive: boolean;
  		procedure SetWindowTitle(AValue: TfpgString); reintroduce;
  		procedure TitleMouseMove(Sender: TObject; AShift: TShiftState; const AMousePos: TPoint);
  		procedure TitleMouseUp(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
  
negative.code: 		procedure TitleMouseExit(Sender: TObject);
  		procedure CloseMDIWindowClicked(Sender: TObject);
  		procedure SetActive(AValue: boolean);
      procedure DoOnMove(const x, y: TfpgCoord);
  	protected
      procedure HandleMove(x, y: TfpgCoord); override;
  		property Active: boolean read FActive write SetActive;
  	public
  		constructor Create(AOwner: TfpgMDIWorkArea); reintroduce;
  