Oracle Forms Developer – Form Builder Reference, Volume 1

** Example: Change the visual attribute of each item in the
** current record.
*/
DECLARE
cur_itm VARCHAR2(80);
cur_block VARCHAR2(80) := :System.Cursor_Block;
BEGIN
cur_itm := Get_Block_Property( cur_block, FIRST_ITEM );
WHILE ( cur_itm IS NOT NULL ) LOOP
cur_itm := cur_block||’.’||cur_itm;
Display_Item( cur_itm, ’My_Favorite_Named_Attribute’);
cur_itm := Get_Item_Property( cur_itm, NEXTITEM );
END LOOP;
END;
93