EBS开发-文件夹自动扩展

--在form级触发器WHEN-WINDOW-RESIZED中添加如下代码，注意，把窗口、画布级数据库名字换成自己的
DECLARE
  L_X_POSITION NUMBER;
  L_WIDTH      NUMBER;
BEGIN
  IF :SYSTEM.EVENT_WINDOW IN ('MAIN')
  THEN
    APP_FOLDER.EVENT('WHEN-WINDOW-RESIZED');
    
    L_WIDTH := GET_VIEW_PROPERTY('MAIN', WIDTH);  
    SET_CANVAS_PROPERTY('MAIN', WIDTH, L_WIDTH);
    L_WIDTH      := GET_VIEW_PROPERTY('STACKED', WIDTH);
    L_X_POSITION := GET_VIEW_PROPERTY('STACKED', VIEWPORT_X_POS);
    L_X_POSITION := L_X_POSITION + L_WIDTH + 0.015;
    SET_BLOCK_PROPERTY('CUX_SHIPPING_PLAN',
                       BLOCKSCROLLBAR_X_POS,
                       L_X_POSITION);
  END IF;
END;