Position des objets d'un conteneur dans FBPano et Panoramic

' En Panoramic la position d'un objet lié à un conteneur
' est relative au conteneur

Dim container_top%, i%, a$
Label _arret
i% = 0

' Form 0
Top 0, 100
Left 0, 100
Width 0, 220
Height 0, 255

' Conteneur
container_top% = 10
Container 10
Caption 10, "   Conteneur du bouton "
Top 10, container_top%
Left 10, 30
Width 10, 140
Height 10, 140

' Bouton du conteneur
Button 20
Parent 20,10
Top 20, 50
Left 20, 30
Caption 20, "Bouton"

' Bouton Arrêt
Button 30
Top 30, 180
Left 30, 30
Width 30, 140
Caption 30, "Cliquer ici pour arrêter"
On_click 30, _arret
      
' Boucle pour déplacer verticalement le conteneur
While 1 > 0
  i% = 1 - i%
  container_top% = 10 + 20*(1 - i%)
  Top 10, container_top%
  Wait 1000
End_while
Terminate

' Pour arrêter le programme
_arret:
  Terminate
Return

' En FBPano la position d'un objet lié à conteneur est relative
' à la fenêtre qui contient le conteneur mais il se déplace avec lui

#Compile -gui
Set_scheme "plastic"

Dim container_top%, i%
i% = 0

' Form 0
Form 0, 100, 100, 210, 225

' Conteneur
container_top% = 10
Container 10, 20, container_top%, 150, 140,, FL_ALIGN_TOP + FL_ALIGN_INSIDE
Caption 10, " Containeur du bouton "
On_timer 10, container_timer
Container_begin 10
 ' Bouton du conteneur
  Button 20, 55, 60, 80, 30
  Caption 20, "Bouton"
Container_end 10

' Bouton Arrêt
Button 30, 25, 185, 150, 25
Caption 30, "Cliquer ici pour arrêter"
On_click 30, arret

Start 0      
End

' Pour arrêter le programme
Sub arret()
  End
End_sub

' Pour déplacer verticalement le containeur
Sub container_timer()  
  i% = 1 - i%
  container_top% = 10 + 20*(1 - i%)
  Set_coord 10, 30, container_top%
  Redraw
  Timer_interval 1
End_sub

Sub container_timer()  
  i% = 1 - i%
  container_top% = 10 + 20*(1 - i%)
  Set_coord 10, 30, container_top%
  Redraw
  
  dim x%, y%
  get_coord 20, x, y  ' Coordonnees du bouton du conteneur
  print x, y
  
  Timer_interval 1
End_sub