У меня разрешение экрана 1280*1024, а у пользователей 1024*768 и у них не помещается форма на экран.
Мне подсказали процедуру PROCEDURE SHOW_WINDOW_CENTERED , которая вызывается триггером when-new-form-instance, но не компилируется - пишет ошибку ошибочно число или типы аргументов при обращении к SHOW_WINDOW_CENTERED, подскажите пожалуйста или может другой способ!

ВОТ САМА ПРОЦЕДУРА
PROCEDURE SHOW_WINDOW_CENTERED ( win CHAR ) IS
win_id window;
win_x NUMBER;
win_y NUMBER;
win_w NUMBER;
win_h NUMBER;
display_w NUMBER;
display_h NUMBER;
height_offset NUMBER := 0;
BEGIN
IF Get_Application_Property(USER_INTERFACE)='MSWINDOWS' or
Get_Application_Property(USER_INTERFACE)='MSWINDOWS32'
THEN
height_offset := 100; -- inches;
END IF;
win_id := FIND_WINDOW(win);
IF ID_NULL(win_id) THEN
Raise Form_Trigger_Failure;
END IF;

display_h := TO_NUMBER(GET_APPLICATION_PROPERTY(DISPLAY_HEIGHT));
display_w := TO_NUMBER(GET_APPLICATION_PROPERTY(DISPLAY_WIDTH));

win_x := GET_WINDOW_PROPERTY(win_id, X_POS);
win_y := GET_WINDOW_PROPERTY(win_id, Y_POS);
win_w := GET_WINDOW_PROPERTY(win_id, WIDTH);
win_h := GET_WINDOW_PROPERTY(win_id, HEIGHT);


IF ( win_w >= display_w ) THEN
win_x := 0;
ELSE
win_x := (display_w - win_w) / 2;
END IF;

IF ( win_h >= display_h ) THEN
win_y := 0;
ELSE
win_y := (display_h - height_offset - win_h) / 2;
END IF;

-- Set window's new position
SET_WINDOW_PROPERTY(win_id, X_POS, win_x);
SET_WINDOW_PROPERTY(win_id, Y_POS, win_y);

SHOW_WINDOW(win_id);
END;