Declare
 MDI_Win_Width  Number;
 MDI_Win_Height	Number;
 Canvas_width 	Number;
 Canvas_Height 	Number;
 mWindowTitle		varchar2(30);
 mFromTitle		varchar2(30);
 mCanvasName		varchar2(30);
 mWindowName		varchar2(30); 
Begin
	mWindowTitle	:= 'About Us Form';
	mFromTitle	:= 'Any Group';
	mWindowName	:= 'WINDOW1';
	mCanvasName	:= 'About';
	
		
/*  This module is to maximize window1 and displays the data canvas in the *\
\*  center of MDI window.                                                  */

     Set_Window_Property(Forms_MDI_Window,Window_State,Maximize);
     Set_Window_Property(Forms_MDI_window,Title,mWindowTitle);
    
     MDI_Win_width         	:= Get_Window_Property(Forms_MDI_Window,Width);
     MDI_Win_Height        	:= Get_Window_Property(Forms_MDI_Window,Height);
     Canvas_Width  					:= Get_Canvas_Property(mCanvasName,Width);
     Canvas_Height 					:= Get_Canvas_Property(mCanvasName,Height);
     Set_Window_Property(mWindowName,Width,Canvas_Width);
     Set_Window_Property(mWindowName,Height,Canvas_Height);
     Set_Window_Property(mWindowName,TITLE,mFromTitle);
     
     Move_Window(mWindowName,(MDI_Win_width-Canvas_width)/2,
                           (MDI_Win_Height-Canvas_Height)/2);

		 :System.Message_Level := '25';
End;