Discussion :

[dak_wattson]

Bonjour,

Dans Forms 6i, j'ai besoin de mettre en évidence une information et mon client me demande si je peux faire clignoter celle ci

merci de votre aide

[SheikYerbouti]

Vous pouvez réaliser ceci avec l'utilisation d'un timer répétitif.
Créez ce timer au chargement de la form, et dans le trigger When-Timer-Expired, utilisez une variable pour gérer le clignotement

When-New-Form-Instance:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Declare
    timer_id   Timer ;
Begin    
  :GLOBAL.ON := 'O' ;
  timer_id := Create_Timer( 'mon_timer', 500, REPEAT ) ;
End;

When-Timer-Expired:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Begin
If lower(Get_Application_Property( TIMER_NAME )) = 'mon_timer' Then
  If :GLOBAL.ON = 'O' Then
    :GLOBAL.ON := 'N' ;
    Set_Item_Property( 'blk.item', FOREGROUND_COLOR,
      Get_Item_Property( 'blk.item', BACKGROUND_COLOR) ) ;
  Else
    :GLOBAL.ON := 'O' ;
    Set_Item_Property( 'blk.item', FOREGROUND_COLOR, 'r0g0b0' );
  End if ;
End if ;
End;

[dak_wattson]

Merci beaucoup, cela fonctionne