Re: How to make the push button dynamically change after query data?
From: Vitaliy Mogilevskiy <vit100gain_at_earthlink.net>
Date: Tue, 16 Feb 1999 17:57:35 -0800
Message-ID: <7ad7l3$bvi$1_at_fir.prod.itd.earthlink.net>
Date: Tue, 16 Feb 1999 17:57:35 -0800
Message-ID: <7ad7l3$bvi$1_at_fir.prod.itd.earthlink.net>
[Quoted] Yes there is but not in "Set_Item_Instance_Property" IT'S SET_ITEM_PROPERTY!: /*
- Built-in: SET_ITEM_PROPERTY
- Example: Change the icon of an iconic button dynamically
- at runtime by changing its icon_name. The user
- clicks on this button to go into enter query
- mode, then clicks on it again (after the icon
- changed) to execute the query. After the query
- is executed the user sees the original icon
- again.
- Trigger: When-Button-Pressed
*/
DECLARE
it_id Item;
BEGIN
it_id := Find_Item('CONTROL.QUERY_BUTTON');
IF :System.Mode = 'ENTER-QUERY' THEN
/*
- Change the icon back to the enter query icon, and
- execute the query. */ Set_Item_Property(it_id,ICON_NAME,'entquery'); Execute_Query; ELSE /*
- Change the icon to the execute query icon and get
- into enter query mode. */ Set_Item_Property(it_id,ICON_NAME,'exequery'); Enter_Query; END IF; END;