Скачать или смотреть How to Oracle Forms Windows Center in 10g, 11g | Muhammad Abdul Quium (V-74)

Declare
v_window varchar2(100):='WINDOW1';
v_width number(4);
v_height number(4);
vw number(4);
vh number(4);

BEGIN
SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,WINDOW_STATE,MAXIMIZE);
SET_WINDOW_PROPERTY('WINDOW1',WINDOW_STATE,MAXIMIZE);
set_window_property(forms_mdi_window,title,'ABC LIMITED BARANDING MATERIALS MANAGEMENT SYSTEM');

vw:=gET_application_PROPERTY(DISPLAY_WIDTH)-50;
vh :=gET_application_PROPERTY(DISPLAY_HEIGHT)-180;

v_width := Get_Window_Property(v_WINDOW, WIDTH);
v_height:= Get_Window_Property(v_WINDOW, HEIGHT);

Set_Window_Property(v_WINDOW, POSITION, (vw-v_width)/2, (vh-v_height)/2) ;
/* SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,WINDOW_STATE,MAXIMIZE);
SET_WINDOW_PROPERTY('WINDOW1',WINDOW_STATE,MAXIMIZE);
set_window_property(forms_mdi_window,title,:global.COMP_MODULE);

SET_ITEM_PROPERTY('CON.CUT_BTN',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('CON.COPY_BTN',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('CON.CQUERY_BTN',ENABLED,PROPERTY_FALSE);
*/

END;