السلام عليكم ورحمة الله وبركاته
ارجوا من الاخوة المساعدة حول امكانية تزويدي بكود او فنكشن جاهز يساعدني على عمل adjasment
للفورم بحيث اذا وضعت اعدادات الشاشة 1024في 768 يقوم بعمل ضبط للفورم بحيث يتناسب مع ابعاد الشاشة ويقوم بالعكس عند تقليل ابعاد الشاشة
يرجى المساعدة للاهمية

PROCEDURE CENTER_FORM(WIN VARCHAR2) IS
H NUMBER(10);
W NUMBER(10);
X NUMBER(10);
Y NUMBER(10);
BEGIN
H :=GET_WINDOW_PROPERTY(WIN,HEIGHT);
W :=GET_WINDOW_PROPERTY(WIN,WIDTH);
X := TRUNC(ABS(594-W)/2);
Y := (TRUNC(ABS(333-H)/2));---TRUNC(.2*(TRUNC(ABS(333-H)/2)));
SET_WINDOW_PROPERTY(WIN,POSITION,X,Y);
SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,WINDOW_STATE,MAXIMIZE);
END;