資料夾橫向排版

zhaouang發表於2022-04-12

塊:PROMPT,觸發器:WHEN-MOUSE-UP

app_folder.event('WHEN-MOUSE-UP');

--動態控制view大小

view_self_adaption;


-------------------------------------------

PROCEDURE view_self_adaption IS
  l_win_wid number := get_window_property('MAIN', width);
  l_x_pos number;
  l_view_wid number;
  l_margin number := .1;
  l_gap number := .35;
  l_scrollbar_wid number := .167;
  l_views_scope number;
  l_left_scale number := .65;
  procedure self_adaption(p_view varchar2, p_block varchar2, p_title_view varchar2, p_x_pos number, p_width number) is
  begin
    --set_canvas_property(p_view, width, p_width);
    set_view_property(p_view, width, p_width); 
    set_view_property(p_view, viewport_x_pos, p_x_pos);
    set_view_property(p_title_view, viewport_x_pos, p_x_pos);
    set_block_property(p_block, blockscrollbar_x_pos, p_width + p_x_pos + .015);
    set_item_property(p_block || '.CURRENT_RECORD', x_pos, p_x_pos - .1);
    set_item_property(p_block || '_PROMPT.FOLDER_OPEN', x_pos, p_x_pos);
    set_item_property(p_block || '_PROMPT.FOLDER_TITLE', x_pos, p_x_pos + .35);
  end self_adaption; 
  
BEGIN
  l_views_scope := l_win_wid - l_margin * 2 - .5 - l_scrollbar_wid - l_gap;
  -- left
  l_view_wid := trunc(l_views_scope * l_left_scale, 3);
  l_x_pos := .5;
  self_adaption('CAV_PO_INV', 'PO_INVOICE', 'CAV_PO_INV_TITLE', l_x_pos, l_view_wid);
  
  -- right
  l_x_pos := l_x_pos + l_view_wid + l_gap;
  l_view_wid := l_views_scope - l_view_wid;
  self_adaption('CAV_MATCH', 'MATCH', 'CAV_MATCH_TITLE', l_x_pos, l_view_wid);
END;




來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10104080/viewspace-2886605/,如需轉載,請註明出處,否則將追究法律責任。

相關文章