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
» Simuler l’appui de n’importe quelle touche.
par papydall Hier à 23:54

» Le Forum est en vacances.
par JL35 Hier à 21:20

» Une autre façon de terminer une application.
par JL35 Mar 22 Aoû 2017 - 14:27

» Compilateur FBPano
par Mike Lun 21 Aoû 2017 - 23:17

» Pb 20 (en analyse): plantage à l'appel d'un SUB
par Jack Lun 21 Aoû 2017 - 21:58

» Pb 19 (en analyse): libellé d'erreur dans des IF imbriqués
par Jack Lun 21 Aoû 2017 - 21:55

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Lun 21 Aoû 2017 - 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Lun 21 Aoû 2017 - 5:01

» Mettre en windows en veille
par papydall Lun 21 Aoû 2017 - 4:15

» Stretch_on ne stretch plus...
par papydall Dim 20 Aoû 2017 - 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Dim 20 Aoû 2017 - 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Pour coincer la bulle

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



Nombre de messages : 5928
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Pour coincer la bulle   Jeu 6 Avr 2017 - 18:51

Promis juré je n'ai pas copié sur Klaus...
Quelque chose de beaucoup moins sophistiqué que ce qu'a fait l'ami Klaus, pour désigner et commenter un point précis d'une image (ici dans un picture): un cadre avec un texte et une flèche vers le point, sous la forme d'une sub.
Code:
DIM txt$,x%,y%,pos%,typ%,rc$,x2%,y2%
rc$ = CHR$(13)+CHR$(10)
width 0,660: height 0,520: border_small 0
PICTURE 1: WIDTH 1,640: HEIGHT 1,480
FILE_LOAD 1,"C:\GRAPH\JPG\goldgate.jpg": ' image 640 x 480 (exemple)
txt$ = "San Francisco: pont du Golden Gate"+rc$+"qui relie la baie au Pacifique."
typ% = 1: pos% = 4: x% = 250: y% = 100: ' rectangle arrondi
Bulle(1,x%,y%,pos%,typ%,txt$)
txt$ = "Ceci est"+rc$+"un petit voilier"
typ% = 3: pos% = 8: x% = 530: y% = 360: ' ellipse
Bulle(1,x%,y%,pos%,typ%,txt$)
txt$ = "Mille sabords !"+rc$+"Y a-t'il quelqu'un"+rc$+"à bord ?"
typ% = 1: pos% = 3: x% = 565: y% = 270: ' cercle
Bulle(1,x%,y%,pos%,typ%,txt$)
x% = 320: y% = 240: typ% = 1: ' différentes positions
pos% = 1: x% = 200: y% = 240: Bulle(1,x%,y%,pos%,typ%,"- "+STR$(pos%)+" -")
pos% = 2: x% = 200: y% = 220: Bulle(1,x%,y%,pos%,typ%,"- "+STR$(pos%)+" -")
pos% = 3: x% = 220: y% = 220: Bulle(1,x%,y%,pos%,typ%,"- "+STR$(pos%)+" -")
pos% = 4: x% = 240: y% = 220: Bulle(1,x%,y%,pos%,typ%,"- "+STR$(pos%)+" -")
pos% = 5: x% = 240: y% = 240: Bulle(1,x%,y%,pos%,typ%,"- "+STR$(pos%)+" -")
pos% = 6: x% = 240: y% = 260: Bulle(1,x%,y%,pos%,typ%,"- "+STR$(pos%)+" -")
pos% = 7: x% = 220: y% = 260: Bulle(1,x%,y%,pos%,typ%,"- "+STR$(pos%)+" -")
pos% = 8: x% = 200: y% = 260: Bulle(1,x%,y%,pos%,typ%,"- "+STR$(pos%)+" -")
END
' ====================
SUB Bulle(p%,x%,y%,pos%,typ%,txt$)
  ' Apposer un texte txt$ en forme de bulle sur le picture p%
  ' typ% = 0: rectangle, = 1: rectangle arrondi, = 2: cercle, = 3: ellipse
  ' NB: rectangle coins arrondis non codé :
  ' Flèche pointant en x%,y%
  ' pos% = position de la bulle par rapport au point cible x%,y%
  '   =1 à gauche, =2 en haut à gauche, =3 au dessus à gauche, =4 en haut à droite
  '   =5 à droite, =6 en bas à droite,  =7 au dessous,         =8 en bas à gauche
  ' A moduler: couleurs de trait et de fond, épaisseur trait, taille texte, etc.
  DIM_LOCAL rc$,i%,k%,nl%,tx$(10),wt%,hl%,ht%,wb%,hb%,xb%,yb%,d%,x1%,y1%,ra%,xc%,yc%
  DIM_LOCAL an%,a1%,a2%,a%,ol%,oh%,et%
  rc$ = CHR$(13)+CHR$(10)
  2D_TARGET_IS p%: PRINT_TARGET_IS p%: FONT_SIZE p%,10: ' police/taille à moduler
  k% = INSTR(txt$,rc$): wt% = 0
  WHILE k% > 0
      nl% = nl%+1: tx$(nl%) = LEFT$(txt$,k%-1): txt$ = RIGHT_POS$(txt$,k%+2)
      i% = TEXT_WIDTH(tx$(nl%),p%): IF i% > wt% THEN wt% = i%
      k% = INSTR(txt$,rc$)
  END_WHILE
  nl% = nl%+1: tx$(nl%) = txt$
  i% = TEXT_WIDTH(tx$(nl%),p%): IF i% > wt% THEN wt% = i%
  hl% = TEXT_HEIGHT(tx$(1),p%): ht% = hl%*nl%: ' hauteur totale du texte
  wb% = wt%+20: hb% = ht%+10: ' dimensions du cadre extérieur
  IF typ% = 2 THEN i% = MAX(wb%,hb%): wb% = i%: hb% = i%: ' cercle
  d% = 40: ' longueur du segment flèche
  SELECT pos%
      CASE 1: xb% = x%-wb%-d%: yb% = y%-hb%/2
      CASE 2: xb% = x%-wb%-d%: yb% = y%-hb%-d%
      CASE 3: xb% = x%-wb%/2: yb% = y%-hb%-d%
      CASE 4: xb% = x%+d%: yb% = y%-hb%-d%
      CASE 5: xb% = x%+d%: yb% = y%-hb%/2
      CASE 6: xb% = x%+d%: yb% = y%+d%
      CASE 7: xb% = x%-wb%/2: yb% = y%+d%
      CASE 8: xb% = x%-wb%-d%: yb% = y%+d%
  END_SELECT
  xc% = xb%+wb%/2: yc% = yb%+hb%/2: ' centre de la bulle
  ' Tracé de la flèche
  IF xc% = x% THEN xc% = xc%+1
  IF yc% = y% THEN yc% = yc%+1
  2D_PEN_WIDTH 3: 2D_PEN_COLOR 255,0,0: 2D_LINE xc%,yc%,x%,y%: ' Tracé de l'axe de la flèche
  DEGREES
  an% = ATN((y%-yc%)/(x%-xc%)): ' inclinaison de l'axe de la flèche
  d% = 15: a% = 30: ' longueur et écartement (angle) des ailes de la flèche
  a1% = an%-a%: a2% = an%+a%
  IF x%>xc% AND y%<yc% THEN a1% = a1%+180: a2% = a2%+180
  IF x%>xc% AND y%>yc% THEN a1% = a1%+180: a2% = a2%-180
  x1% = d%*COS(a1%)+x%: y1% = d%*SIN(a1%)+y%: 2D_LINE x%,y%,x1%,y1%
  x1% = d%*COS(a2%)+x%: y1% = d%*SIN(a2%)+y%: 2D_LINE x%,y%,x1%,y1%
  2D_FILL_COLOR 255,255,0: ' couleur de fond
  et% = 3: 2D_PEN_WIDTH et%: ' épaisseur et couleur de trait
  SELECT typ%
      CASE 0: 2D_RECTANGLE xb%,yb%,xb%+wb%,yb%+hb%
      CASE 1: ra% = 8: ' rectangle coins arrondis, rayon arbitraire de l'arrondi
              2D_PEN_COLOR 255,255,0: 2D_RECTANGLE xb%+et%-2,yb%+ra%-1,xb%+wb%-et%+3,yb%+hb%-ra%+1
              2D_RECTANGLE xb%+2*et%-2,yb%+et%-1,xb%+wb%-2*et%+3,yb%+hb%-et%+2
              2D_PEN_COLOR 255,0,0
              xc% = xb%+ra%: yc% = yb%+ra%: 2D_POLY_FROM xb%,yb%+ra%
              FOR a% = 180 TO 270 STEP 45: 2D_POLY_TO xc%+ra%*COS(a%),yc%+ra%*SIN(a%): NEXT a%
              2D_POLY_TO xb%+wb%-ra%,yb%
              xc% = xb%+wb%-ra%
              FOR a% = 270 TO 360 STEP 45: 2D_POLY_TO xc%+ra%*COS(a%),yc%+ra%*SIN(a%): NEXT a%
              2D_POLY_TO xb%+wb%,yb%+hb%-ra%
              yc% = yb%+hb%-ra%
              FOR a% = 0 TO 90 STEP 45: 2D_POLY_TO xc%+ra%*COS(a%),yc%+ra%*SIN(a%): NEXT a%
              2D_POLY_TO xb%+ra%,yb%+hb%
              xc% = xb%+ra%
              FOR a% = 90 TO 180 STEP 45: 2D_POLY_TO xc%+ra%*COS(a%),yc%+ra%*SIN(a%): NEXT a%
              2D_POLY_TO xb%,yb%+ra%
      CASE 2: 2D_CIRCLE xc%,yc%,wb%/2
      CASE 3: wb% = wb%*12/10: hb% = hb%*12/10
              DLL_ON "gdi32.dll": k% = HANDLE_CANVAS(p%)
              i% = DLL_CALL5("Ellipse",k%,xb%,yb%,xb%+wb%,yb%+hb%)
              DLL_OFF
  END_SELECT
  x% = xb%+(wb%-wt%)/2: y% = yb%+(hb%-ht%)/2: ' centrage du texte
  FOR i% = 1 TO nl%: PRINT_LOCATE x%,y%: PRINT tx$(i%): y% = y%+hl%: NEXT i%
END_SUB
' ====================
Le rectangle/bulle se dimensionne automatiquement en fonction du texte inclus.
On peut faire partir la flèche des 4 coins, ou du haut ou du bas de la bulle.
Pour modifier les paramètres annexes: police, taille, couleur, enrichissements, couleur du fond, épaisseur du trait, il faut intervenir dans le code, je ne l'ai pas mis dans les paramètres d'appel à la sub pour ne pas compliquer, mais tout est possible.
Et tout en Panoramic.

Il serait facile d'envisager d'autres formes d'enveloppe un peu plus artistiques que le rectangle, cercle ou ellipse par exemple, avec un paramètre supplémentaire...

Edit: petite simplification de la sub.
Edit 7/4: ajout des rectangles à coins arrondis, ellipses et cercles. Ça complique un peu, mais bon, qui peut le plus peut le moins.


Dernière édition par JL35 le Sam 8 Avr 2017 - 16:13, édité 5 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5523
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Pour coincer la bulle   Jeu 6 Avr 2017 - 19:40

Spoiler:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Pour coincer la bulle   Jeu 6 Avr 2017 - 21:15

@Papydall,
A priori, tu as compris le fonctionnement du programme de JL35 et surtout tu lui a trouvé une utilité. Razz

@JL35,
Sauf erreur tu as déjà publié ce code, qu'elles sont les nouveautés ?

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5928
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Pour coincer la bulle   Jeu 6 Avr 2017 - 21:16

Bel exemple d'application, en effet ! (enfin... je devrais plutôt dire sans effets...)

Bonsoir Jean Claude... j'ai déjà publié ça moi ? je viens juste de l'écrire...
Et je ne me souviens pas d'avoir déjà fait la même chose... scratch
Est-ce que je radote sans m'en rendre compte ? En tout cas, ni sur le forum ni chez moi je ne trouve rien de semblable...

Par contre l'image de fond, oui, je m'en sers tout le temps !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Pour coincer la bulle   Jeu 6 Avr 2017 - 22:09

J'ai pourtant l'impression que tu avais déjà fait quelque-chose de similaire scratch
J’essaierais de retrouver. Mais tu as peut-être raison, c'est l'image qui ma "enduit d'erreur" ! Very Happy

Bravo quand même, c'est du 100% Panoramic sous forme de SUB. cheers

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5928
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Pour coincer la bulle   Jeu 6 Avr 2017 - 22:58

J'ai déjà fait du texte sur image sous diverses formes, peut-être même dans un cadre, mais pas avec la flèche, je ne crois pas du moins (pas facile de faire la pointe de flèche...).
J'ai déjà fait de la moto aussi (autrefois, très occasionnellement), mais pas comme papydall, sans passager(e), et c'est pas le pilote le mieux placé. Enfin, il vaut mieux qu'il regarde la route...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Pour coincer la bulle   Jeu 6 Avr 2017 - 23:23

Exact ! c'est du texte dans un encadré et dans la photo que tu avais déjà publié.

question moto: comme disais ma grand mère, "Ah! ces jeunes, y s'ont rien à se foutre sur le cul, mais ils se payent des grosse motos"
lol!


Dernière édition par Jean Claude le Ven 7 Avr 2017 - 19:53, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5928
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Pour coincer la bulle   Ven 7 Avr 2017 - 17:42

J'ai ajouté les rectangles arrondis, cercles et ellipses.
Ça remplace le code antérieur.
Pour le code postérieur, voir plutôt avec papydall Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5928
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Pour coincer la bulle   Sam 8 Avr 2017 - 16:14

Petits ajouts.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Pour coincer la bulle   

Revenir en haut Aller en bas
 
Pour coincer la bulle
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Comment mettre des infos bulle pour le staff?
» Profil réduit avec rool box + info bulle pour feuille de personnage.
» info bulle pour définition d'un mot
» Codes pour infobulle
» Code pour Infobulle..

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: