How can I get the list of all canvas in the forms programatically?

Question

I want an exemple of how to do it. I really need it to put in a template.

Answer 1

This is the code.
You will see how to loop through every item of every blocks of the form:
PROCEDURE Get_Canvas_Names IS
  lc$blockDeb     varchar2(60); -- start block
  lc$block          varchar2(60); -- current block name
  lc$item               varchar2(60); -- current item
  lc$Type               varchar2(20); -- item type
  lc$itemdeb     varchar2(60); -- first item
  lc$canvas          varchar2(60); -- current canvas name
  lc$tabcan          varchar2(60); -- current tab canvas name
  lc$Acanvas     varchar2(60):= ' '; -- old canvas name
  lc$Atabcan     varchar2(60):= ' '; -- old tab canvas name
  ln$NbRec          pls_integer := 0 ;  -- number of records (for know if the block is multi-records)
BEGIN
  LC$BlockDeb := get_form_property( NAME_IN('System.Current_Form'), FIRST_BLOCK ) ;
  LC$Block := LC$BlockDeb ;
  Loop -- For each block of the form
  LN$NbRec   := get_block_property(LC$BLOCK, RECORDS_DISPLAYED) ;
  lc$itemdeb := get_block_property(LC$BLOCK, FIRST_ITEM) ;
  lc$item := LC$BLOCK || '.' || lc$itemdeb ;
  while lc$itemdeb is not null loop -- For each item
    -- visible item ? --
    IF GET_ITEM_PROPERTY(LC$Item , VISIBLE) = 'TRUE' Then
         -- Get the canvas and tab canvas name --
         lc$canvas := GET_ITEM_PROPERTY(LC$Item , ITEM_CANVAS ) ;
         lc$tabcan := GET_ITEM_PROPERTY(LC$Item , ITEM_TAB_PAGE ) ;
    End if ; -- GET_ITEM_PROPERTY(LC$Item , VISIBLE) = 'TRUE'   
    lc$itemdeb := get_item_property(lc$item, NEXT_NAVIGATION_ITEM );
    lc$item := LC$BLOCK || '.' || lc$itemdeb ;
  end loop ;
  LC$Block := get_block_property( LC$Block, NEXTBLOCK ) ; -- next block
  exit when LC$Block is null ;
  End loop ;
END Get_Canvas_Names;all you have to do is to save each different canvas names in a pl/sql table.
Francois