Re: forms 6 and flashing stuff

ntto heeft geschreven in bericht <57gt4.35$rF1.6695_at_news.enterprise.net>...
>Quick question -
>
>have a forms 6 application (three tier) and I want a flashing symbol / text
>on a canvas - but I cant find a way of doing it at all.
>
>Anybody got any ideas???
>
>ta
>
>even an animated gif would do the job....
>
YES,
Animated gifs won't work, but this will:

first create to bitmap images.
Then create in your form the next two triggers on form level:

When-new-form-instance:

   DECLARE
 timer_id Timer;
 one_second NUMBER(4) := 1000;
BEGIN
 :global.dummy := '1';
 READ_IMAGE_FILE('c:\users\frans\images\test1.bmp', 'BMP', 'image1');  READ_IMAGE_FILE('c:\users\frans\images\test2.bmp', 'BMP', 'image2');

 timer_id := CREATE_TIMER('FLASH_TIMER', one_second); END; When-timer-expired:

declare
 v_number number;

begin
v_number := to_number(:global.dummy);
if v_number = 1 then

   SET_ITEM_PROPERTY('IMAGE2', DISPLAYED, PROPERTY_FALSE);    SET_ITEM_PROPERTY('IMAGE1', DISPLAYED, PROPERTY_TRUE); else

   SET_ITEM_PROPERTY('IMAGE1', DISPLAYED, PROPERTY_FALSE);    SET_ITEM_PROPERTY('IMAGE2', DISPLAYED, PROPERTY_TRUE); end if;
 v_number := - v_number;

:global.dummy := to_char(v_number);
end;

When you use more timers you have to check the name of the timer.

hope this helps,

Frans Hovenkamp

>
Received on Fri Feb 25 2000 - 15:01:07 CET