Center Canvas and Window in Oracle Forms 11g

Center Canvas and Window in Oracle Forms 11g

Today I will present two dynamic procedure for centering canvas or windows in middle center of the screen.

We always want to show canvas at middle center in another canvas and also for window in oracle forms.

So I will produce today two generic procedures for centering canvas/window at middle center of others.


Centering Canvas

To implement displaying canvas at middle center of another canvas (Container canvas) I will create procedure has two parameters ( canvas [C1] and container canvas[C2] ) and procedure will change x,y coordination of canvas[C1] at middle center of canvas[C2]

PROCEDURE CENTER_VIEW (IN_VIEW_NAME VARCHAR2, IN_CONTAINER_VIEW VARCHAR2) 

 IS 

 BEGIN 

 SET_VIEW_PROPERTY (IN_VIEW_NAME, VIEWPORT_X_POS, (GET_VIEW_PROPERTY (IN_CONTAINER_VIEW, WIDTH) / 2 ) - (GET_VIEW_PROPERTY (IN_VIEW_NAME, WIDTH) / 2) ); 

 SET_VIEW_PROPERTY (IN_VIEW_NAME, VIEWPORT_Y_POS, (GET_VIEW_PROPERTY (IN_CONTAINER_VIEW, HEIGHT) / 2 ) - (GET_VIEW_PROPERTY (IN_VIEW_NAME, HEIGHT) / 2) );

 END;

Centering Window

To implement displaying window at middle center of another window (Container window ) I will create procedure has two parameters ( window[W1] and container window[W2] ) and procedure will change x,y coordination of window [W1] at middle center of window [W2]

PROCEDURE CENTER_WINDOW (IN_WIN_NAME VARCHAR2, IN_CONTAINER_WIN VARCHAR2) 

 IS BEGIN 

 SET_WINDOW_PROPERTY (IN_WIN_NAME, X_POS, (GET_WINDOW_PROPERTY (IN_CONTAINER_WIN, WIDTH) / 2 ) - (GET_WINDOW_PROPERTY (IN_WIN_NAME, WIDTH) / 2) ); 

 SET_WINDOW_PROPERTY (IN_WIN_NAME, Y_POS, (GET_WINDOW_PROPERTY (IN_CONTAINER_WIN, HEIGHT) / 2 ) - (GET_WINDOW_PROPERTY (IN_WIN_NAME, HEIGHT) / 2) ); 

 END; 

For example

Write code in when button pressed trigger

for window

center_window('NEW_WIN','MAIN_WIN');

show_window('NEW_WIN');

for canvas

center_view('VIEW_CAN','MAIN_CAN');

show_view('VIEW_CAN');