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
» Panoramic et ses curiosités
par Jean Claude Aujourd'hui à 21:48

» Synedit Parameters
par Jean Claude Aujourd'hui à 21:15

» Utilitaire de suppression de fichiers
par Jean Claude Aujourd'hui à 21:11

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Hier à 21:16

» Compilateur FBPano
par jean_debord Hier à 9:56

» Bienvenue à Virtualalan !
par UltraVox Hier à 9:18

» Concours de Morpions
par jjn4 Hier à 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Pour coincer la bulle

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



Nombre de messages : 5882
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 : 5384
Age : 66
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 : 4933
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 : 5882
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 : 4933
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 : 5882
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 : 4933
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 : 5882
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 : 5882
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: