| display_item [message #306716] |
Sun, 16 March 2008 02:41  |
thomasscaria
Messages: 21
Registered: July 2007
Location: Kuwait
|
Junior Member |
|
|
/*
sample code to set background display of a record based on a check bok value
*/
DECLARE
cur_itm VARCHAR2(80);
cur_block VARCHAR2(80) := :System.Cursor_Block;
BEGIN
IF :fld6 = '1' THEN
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, 'HILIGHT');
cur_itm := Get_Item_Property( cur_itm, NEXTITEM );
END LOOP;
ELSE
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, 'NORMAL');
cur_itm := Get_Item_Property( cur_itm, NEXTITEM );
END LOOP;
END IF;
END;
|
|
|
|
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
