FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Planétarium virtuel.
par Pedro Alvarez Aujourd'hui à 8:41

» Biomorphe de Pickover
par Jack Aujourd'hui à 7:17

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Aujourd'hui à 0:59

» Virus/Antivirus
par JL35 Hier à 21:11

» Calculatrice
par papydall Ven 21 Sep 2018 - 22:45

» Orbites de l’ensemble de Mandelbrot
par Minibug Ven 21 Sep 2018 - 21:32

» Demande pour Jack concernant PanExpress
par Minibug Ven 21 Sep 2018 - 11:04

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Position des objets d'un conteneur dans FBPano et Panoramic

Aller en bas 
AuteurMessage
Navigateur

avatar

Nombre de messages : 29
Age : 69
Localisation : Les Clayes-sous-bois 78340
Date d'inscription : 02/09/2016

MessageSujet: Position des objets d'un conteneur dans FBPano et Panoramic   Ven 6 Juil 2018 - 1:48

En Panoramic, comme le montre l'exemple suivant, un objet lié à conteneur a une position relative au conteneur et se déplace évidemment avec lui :

Code:
' 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, un objet lié à un conteneur a une position relative à la fenêtre qui contient le conteneur, mais il se déplace avec lui comme l'illustre le programme suivant :

Code:
' 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jean_debord

avatar

Nombre de messages : 822
Age : 64
Localisation : Limoges
Date d'inscription : 21/09/2008

MessageSujet: Re: Position des objets d'un conteneur dans FBPano et Panoramic   Ven 6 Juil 2018 - 9:23

Oui le bouton se déplace avec le conteneur (heureusement !) mais ses coordonnées sont toujours exprimées par rapport à la fenêtre et donc elles changent constamment.

Tu peux t'en rendre compte en modifiant le sous-programme comme suit (et en enlevant le #compile -gui) :

Code:

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.unilim.fr/pages_perso/jean.debord/index.htm
Navigateur

avatar

Nombre de messages : 29
Age : 69
Localisation : Les Clayes-sous-bois 78340
Date d'inscription : 02/09/2016

MessageSujet: Re: Position des objets d'un conteneur dans FBPano et Panoramic   Ven 6 Juil 2018 - 12:59

J'ai effectivement vérifié que les coordonnées du bouton changent avec le déplacement du conteneur.

Cette différence de fonctionnement par rapport à Panoramic va peut-être compliquer la réalisation d'un EDI pour les objets FBPabo/FLTK (j'imagine).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Position des objets d'un conteneur dans FBPano et Panoramic   

Revenir en haut Aller en bas
 
Position des objets d'un conteneur dans FBPano et Panoramic
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Position texte/description de l'auteur dans un sujet
» Ajout d'un nouveau type d'objet dans une form Panoramic !
» Gérer la position des smileys et images dans les messages
» Position du profil dans les messages (excepté phpBB2)
» Modification de la position d'un waypoint dans basecamp (résolu)

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Grands projets réalisés avec Panoramic :: Compilateur FBPANO-
Sauter vers: