Change the color of text item after execute query

Question

Dear friends
I would like to know how can I make a tabular form like grid and chang the color of text item when (for exp in emp table) the value of sal column between 2000$ and 4000$.
I used the SE_IEM_PROPERTY command but it change all of the text items of sal column.
please help me
thanks a lot

Answer 1

Highlight the Existing Record in Forms
(Compatible with 4.x, 5.x, 6.x & 9i)
Step 1: Create a New Visual Attribute(BLUE_VA) (Color of highlighted record)
          Font – Arial
          Size – 8
          Style – Plain
          Font width - Normal
          Font Weight - Bold
          Foreground Color – Black
          Background Color – Blue
          Fill Pattern – Transparent
Step 2: Create another Visual Attribute (WHITE_VA) (Default Color of the record)
          Font – Arial
          Size – 8
          Style – Plain
          Font width - Normal
          Font Weight - Bold
Foreground Color – Black
          Background Color – White
          Fill Pattern – Transparent
Step 3: Add Following code to Block-level Trigger WHEN-NEW-RECORD- INSTANCE, POST-BLOCK
(Add to the block, which has these records)
-- Following code will only highlight an item
DISPLAY_ITEM(<block_name>.<item_name>,'BLUE_VA');
-- Following code will highlight complete Record (ref: DISPLAY_ITEM example)
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, 'BLUE_VA');
cur_itm := Get_Item_Property( cur_itm, NEXTITEM );
END LOOP;
END;
Step 4: Add Following code to Block-level Trigger PRE-RECORD, PRE-BLOCK
(Add to the block, which has these records)
-- Following code will only highlight an item
DISPLAY_ITEM(<block_name>.<item_name>,'WHITE_VA');
-- Following code will highlight complete Record (ref: DISPLAY_ITEM example)
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, 'WHITE_VA');
cur_itm := Get_Item_Property( cur_itm, NEXTITEM );
END LOOP;
END;
I am using the above code in one of my forms and I so far haven't seen any problem