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
» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par Yannick Aujourd'hui à 22:13

» Le mot le plus long
par Yannick Aujourd'hui à 17:59

» Le Forum Panoramic a 10 ans
par jjn4 Aujourd'hui à 17:02

» Pour le plaisir des yeux.
par papydall Aujourd'hui à 14:30

» bug ON_MOVE N,L : actif que sur form 0
par Jack Aujourd'hui à 12:07

» bug number_events : toujours égal à 0
par Jack Aujourd'hui à 12:04

» Ludothèque panoramic
par jjn4 Hier à 15:35

» KGF_dll - nouvelles versions
par Yannick Sam 27 Mai 2017 - 13:17

» @Klaus
par Yannick Sam 27 Mai 2017 - 13:06

» Compilateur FBPano
par jean_debord Sam 27 Mai 2017 - 11:47

» Form [formulaires annexes]
par Jean Claude Sam 27 Mai 2017 - 1:39

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Jeu 25 Mai 2017 - 22:50

» KG.dll - nouveautés en cours de préparation
par Klaus Jeu 25 Mai 2017 - 22:48

» Outils couleurs
par Yannick Jeu 25 Mai 2017 - 19:22

» Testez vos connaissances
par Yannick Mar 23 Mai 2017 - 13:37

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2017
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Petit outils pour icones

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

avatar

Nombre de messages : 7687
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Petit outils pour icones   Ven 16 Déc 2016 - 1:50

En attendant que JL35 nous fasse un super outil en Panoramic,
je viens de trouver un petit outil gratuit pour créer des icônes,
et cela peut même inspirer notre ami.

C' est là : http://iconion.com/fr/

Comme je suis plus que nul en dessin... Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Petit outils pour icones   Ven 16 Déc 2016 - 17:43

Salut ygeronimi,

C'est assez séduisant, et semble gratuit, certes, mais il faut donner son email et je n'aime pas trop, est-ce qu'il n'y a pas quelque chose derrière ?

Des éléments pour faire des icônes cliquables soi-même à partir des polices de caractères symboles existantes:
- l'affichage des polices symboles (pour choisir son icône)
- la sub de création du bouton icône
Tout ça est du vite fait, mais ça peut donner des idées:
Code:
LABEL Afpol,Clikico
DIM pic%,pol$(10),fn$,p%,a$,i%,k%,x%,y%,wc%,hc%,nbc%,pr%,dr%
DIM op%,lf%,c%,r%,tpc%,car%
' Liste des polices 'symboles'
DATA "Bookdings","Webdings","Wingdings","Wingdings 2","Wingdings 3"
DATA "F"

WIDTH 0,880: HEIGHT 0,740: COLOR 0,180,255,255: BORDER_SMALL 0
    CAPTION 0,"   -   POLICES   SYMBOLES   -
CONTAINER 1: TOP 1,-8: LEFT 1,0: WIDTH 1,WIDTH(0)-20: HEIGHT 1,38
FONT_SIZE 1,10: FONT_BOLD 1
READ a$: i% = 0: op% = 1 : lf% = 20
WHILE a$<>"F"
    i%=i%+1: pol$(i%) = a$
    op%=op%+1: OPTION op%: PARENT op%,1: TOP op%,15: LEFT op%,lf%: lf% = lf%+110
    CAPTION op%,a$: READ a$
END_WHILE
FOR k% = 2 TO op%: ON_CLICK k%,Afpol: NEXT k%
MARK_ON 2
pic% = 10: PICTURE pic%: TOP pic%,30: WIDTH pic%,WIDTH(0)-20: HEIGHT pic%,HEIGHT(0)-130
           ON_CLICK pic%,Clikico
ALPHA 20: TOP 20,TOP(pic%)+HEIGHT(pic%)+20: LEFT 20,20: FONT_NAME 20,"Arial": FONT_SIZE 20,12
pr% = 33: dr% = 255: ' 1er et dernier caractères à afficher
GOSUB Afpol
END
' ==============================================================================
Afpol:
  FOR i% = 2 TO 6: IF CHECKED(i%) = 1 THEN EXIT_FOR
  NEXT i%
  p% = i%-1
  fn$ = pol$(p%)
  a$ = " Police: "+fn$+" ": FONT_NAME pic%,"Arial": FONT_SIZE pic%,16
  PRINT_TARGET_IS pic%
  2D_TARGET_IS pic%: CLS: 2D_FILL_COLOR 255,255,0
  i% = TEXT_WIDTH(a$,pic%): PRINT_LOCATE (WIDTH(pic%)-i%)/2,0: PRINT a$
  FONT_NAME pic%,fn$: FONT_SIZE pic%,28: 2D_FILL_COLOR 255,255,255
  wc% = 0: hc% = 0
  FOR i% = pr% TO dr%
      k% = TEXT_WIDTH(CHR$(i%),pic%): IF k%>wc% THEN wc% = k%
      k% = TEXT_HEIGHT(CHR$(i%),pic%): IF k%>hc% THEN hc% = k%
  NEXT i%
  tpc% = 25
  x% = 0: y% = tpc%
  nbc% = 16: ' nb de colonnes d'affichage
  FOR i% = pr% TO dr% STEP nbc%
      FOR k% = i% TO i%+nbc%-1
          IF k% > dr% THEN EXIT_FOR
          PRINT_LOCATE x%,y%: PRINT CHR$(k%)
          x% = x%+wc%
      NEXT k%
      y% = y%+hc%: x% = 0
  NEXT i%
RETURN
' ==============================================================================
Clikico:
  x% = MOUSE_X_LEFT_DOWN(pic%): y% = MOUSE_Y_LEFT_DOWN(pic%)
  IF y%<tpc% THEN RETURN
  c% = INT(x%/wc%): r% = INT((y%-tpc%)/hc%)
  car% = pr%+r%*nbc%+c%
  CAPTION 20, "Caractère "+STR$(car%): ' n° du caractère cliqué
  x% = 140: y%=TOP(pic%)+HEIGHT(pic%)+2
  IF OBJECT_EXISTS(30) = 1 THEN DELETE 30
  Icone(30,fn$,car%,x%,y%,60,16711680,1): ' affichage de l'icône, en rouge par exemple
RETURN
' ==============================================================================
SUB Icone(obj%,p$,n%,x%,y%,w%,rgb%,cad%)
  ' Icône cliquable obj%, police p$, caractère n%, en x%,y%, dimensions w% x w%
  ' de couleur rgb% (R*65536 + G*256 + B)
  ' si cad% = 1: encadrement de l'icône
  DIM_LOCAL npt%,n2d%,r%,g%,b%,wc%,hc%,mg%,mh%,i%
  n2d% = NUMBER_2D_TARGET: npt% = NUMBER_PRINT_TARGET
  r% = INT(rgb%/65536): g% = BIN_AND(rgb%,65280)/256: b% = BIN_AND(rgb%,255)
  PICTURE obj%: WIDTH obj%,w%: HEIGHT obj%,w%: TOP obj%,y%: LEFT obj%,x%
  FONT_NAME obj%,p$: FONT_COLOR obj%,r%,g%,b%: i% = w%
  FONT_SIZE obj%,i%: wc% = TEXT_WIDTH(CHR$(n%),obj%): hc% = TEXT_HEIGHT(CHR$(n%),obj%)
  WHILE wc%>w% OR hc%>w%
      i% = i%-1: FONT_SIZE obj%,i%
      wc% = TEXT_WIDTH(CHR$(n%),obj%): hc% = TEXT_HEIGHT(CHR$(n%),obj%)
  END_WHILE
  PRINT_TARGET_IS obj%: PRINT CHR$(n%)
  IF cad% = 1
      2D_TARGET_IS obj%: 2D_FILL_OFF: 2D_RECTANGLE 0,0,w%,w%
  END_IF
  2D_TARGET_IS n2d%: PRINT_TARGET_IS npt%
END_SUB
' ==============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7687
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Ven 16 Déc 2016 - 23:55

Je prends et je regarderai à tête reposée.
Pour l' instant, j' ai pas plus de pub que d' habitude en leur ayant donné mon mail... Laughing
J' ai trouvé simple de faire des icônes pour les barres d' outils avec ce petit logiciel et 
c' est pour cela que je vous ai donné l' adresse.
Cela doit être faisable en Panoramic + KGF. Twisted Evil
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Petit outils pour icones   Sam 17 Déc 2016 - 0:38

J'ai installé ton outil ci-dessus (Iconion), pour voir, mais impossible de le lancer, pas d'erreur, mais il ne se passe rien... (sous W7)
Ça marche chez toi ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7687
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 17 Déc 2016 - 5:30

Chez moi cela fonctionne très bien (w10).
scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Petit outils pour icones   Sam 17 Déc 2016 - 16:23

Ca ne veut toujours rien savoir chez moi, tant pis, je laisse tomber Iconion.
Et j'ai retrouvé ça: http://panoramic.free-boards.net/t982-editeur-d-icones?highlight=ic%F4nes ça peut intéresser.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7687
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re   Sam 17 Déc 2016 - 21:04

Je l ai vu, il mérite que tu lui apporte un coup de jeune
Et quelques petites améliorations...
C' un bon, très bon outil.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7687
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 18 Déc 2016 - 14:00

Embarassed c' était pas le même, celui là a un souci.

Une variable déclaré deux fois qui empêche l' exécution.
Et, j' y ai vu une variable "pi" qui est devenu un mot clé du langage pour sa signification "3.14......"

Sad l' image de preview était sympa en tout cas.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Petit outils pour icones   Dim 18 Déc 2016 - 16:00

La variable déclarée 2 fois c'est justement le pi, qui n'existait pas à l'époque (en 2010) comme mot-clé.
Il suffit de le supprimer dans les DIM.
Et dans le code où il y a quelque part pi = 4*ATN(1) à supprimer (dans le s/p Clic)

Sinon, pour le coup de jeune et les améliorations, je ne vois pas trop quoi ajouter...

A ce propos j'ai essayé de me replonger dans le format .ICO , mais autant le format .BMP est simple, autant le .ico est tarabiscoté, sachant qu'en plus un fichier .ico peut contenir plusieurs icônes...
J'avais écrit des subs de conversion bmp -> ico et ico -> bmp, et je m'aperçois que ça ne marche pas à tous les coups... c'est désespérant Neutral

Edit:
J'y vois un peu plus clair dans le format .ico
Si ça t'intéresse (ou d'autres), je peux fournir une sub qui donne la structure d'une ico (icône Windows) sous forme de dump en hexa avec commentaires.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Petit outils pour icones   

Revenir en haut Aller en bas
 
Petit outils pour icones
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» petit probleme pour afficher un image sur mon forum...
» Petit soucis pour une map monde des inscrit
» Petit soucis pour le nom de mon " nouveau " Forum
» Sites pour Icones
» Comment Faire pour donner aux modérateurs les outils pour modérer le forum

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 :: Présentation et bavardage-
Sauter vers: