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....

NTTO, Animated gifs won't do the job, but this will:

First create to bitmaps, test1.bmp and test2.bmp. Create two image_items in your form, and put one on top of the other.

now create the following 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;

hope this helps
Frans Hovenkamp. Received on Fri Feb 25 2000 - 14:57:22 CET