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
» ajouter des blancs dans un TXT
par lepetitmarocain Aujourd'hui à 13:00

» Planétarium virtuel.
par Oscaribout Hier à 19:45

» 11 (en analyse): commandes sur TAB et SUB_MENU.
par Jack Hier à 14:10

» 10 (en analyse): Erreur sur variable locale.
par Jack Hier à 14:05

» Métamatière, éternité et renouvellement
par Oscaribout Hier à 12:40

» De retour...
par Yannick Lun 13 Aoû 2018 - 15:11

» bug SEVERE fnc+sub : (35)name already defined
par Oscaribout Dim 12 Aoû 2018 - 23:55

» Encadrement
par Jean Claude Dim 12 Aoû 2018 - 11:53

» Des rectangles...
par JL35 Dim 12 Aoû 2018 - 10:53

» TRIGGER_KEY_COMBINED_TOUCH
par Jean Claude Mar 7 Aoû 2018 - 20:58

» ITEM_SELECT N,L pour synedit
par Jean Claude Mar 7 Aoû 2018 - 19:11

» amélioration panoramic
par silverman Dim 5 Aoû 2018 - 18:34

» Commande file_readln.
par Pedro Alvarez Dim 5 Aoû 2018 - 17:08

» Klaus ?
par Jack Sam 4 Aoû 2018 - 22:48

» Défragmentation du disque dur
par JL35 Sam 4 Aoû 2018 - 21:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2018
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
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 : 818
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
-
» Ajout d'un nouveau type d'objet dans une form Panoramic !
» [resolu] copier/coller un ensemble d'objets
» Modification de la position d'un waypoint dans basecamp (résolu)
» Comment faire pour exporter des objets bibliothèques Dosh sous Artlantis Studio?
» Liens inactifs dans Outlook Express

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: