Un petit comparateur de polices

Sujet: Un petit comparateur de polices Lun 6 Jan 2014 - 7:37

Bonjour à tous Smile

Parfois, lorsque je fais un programme, j'ai besoin d'utiliser des caractères spéciaux d'une police donnée. Et ce n'est pas facile de trouver le chr$ correspondant.
Voici un petit utilitaire que j'ai vite bricolé afin de retrouver plus aisément le caractère que je cherche.
Excusez-moi, mais il faut avoir un écran de 1600 pixels de large par 900 pixels de haut, et je n'ai pas cherché à l'adapter pour toutes les résolutions.
À droite s'affiche 2 list le premier en noir et le second en rouge et chacun contient les polices de votre ordi. Après les 256 caractères des polices sélectionnées dans les list vont s'afficher. Il ne vous reste plus qu'à sélectionner par exemple dans le premier list la police "Consolas", puis dans le second, la police "Wingdings 2". Dans cette seconde police, vous désirez utiliser les caractères qui représentent une imprimante et une poubelle. Vous repérez tout de suite qu'au dessus de la poubelle, c'est le chiffre "3" et de l'imprimante le chiffre "6" qui correspondent dans la police Consolas. Ainsi dans votre programme, si vous sélectionner par exemple:
font_name 1,"Wingdings 2"
pour afficher l'imprimante vous ferez:
caption 1,"6"
Dans cet utilitaire, vous pouvez aussi cliquer sur un caractère et en bas à droite s'affiche le chr$() correspondant.

Code:: label chr,reference,compare
dim c,tr,tc,pr$,pc$
tr=20
tc=20
pr$="Lucida Console"
pc$="Arial"

init()
end

chr:
   c=number_click-1
   if c>255 then c=c-256
   print_locate left(604),top(604)+height(604)+10
   print "chr$(";c;")";" "
return

reference:
   pr$=right_pos$(item_read$(601,item_index(601)),3)
   aff_reference()
   caption 602,pr$
return

compare:
   pc$=right_pos$(item_read$(604,item_index(604)),3)
   aff_compare()
   caption 605,pc$
return

sub init()
   dim_local i,j,k
   border_small 0
   full_space 0
   hide 0
   font_bold 0

   for i=1 to 512
   alpha i
   cursor_point i
   on_click i,chr
   next i

   dlist 600
   font_names_add 600

   list 601
   width 601,200
   left 601,width(0)-216
   height 601,(height(0)/2)-70
   top 601,40
   font_bold 601

   alpha 602
   left 602,left(601)
   top 602,top(601)-20
   font_bold 602

   picture 603
   hide 603

   list 604
   width 604,200
   left 604,left(601)
   height 604,height(601)
   top 604,top(601)+height(601)+40
   font_bold 604
   font_color 604,255,0,0

   alpha 605
   left 605,left(604)
   top 605,top(604)-20
   font_bold 605
   font_color 605,255,0,0

   for i=1 to count(600)
   if left$(item_read$(600,i),1)<>"@"
   font_name 603,item_read$(600,i)
   j=text_width("iiiiiiiiii",603)
   k=text_width("mmmmmmmmmm",603)
   if j=k
   item_add 601,"F "+item_read$(600,i)
   item_add 604,"F "+item_read$(600,i)
   else
   item_add 601," "+item_read$(600,i)
   item_add 604," "+item_read$(600,i)
   end_if
   end_if
   next i

   aff_reference()
   show 0
   aff_compare()

   on_click 601,reference
   on_click 604,compare
end_sub

sub aff_compare()
   dim_local i,j
   for i=1 to 225 step 32
   for j=i to i+31
   font_name j+256,pc$
   font_size j+256,tc
   font_bold j+256
   font_color j+256,255,0,0
   left j+256,left(j)
   top j+256,top(j)+height(j)+10
   caption j+256,chr$(j-1)
   next j
   next i
end_sub

sub aff_reference()
   dim_local x,y,i,j
   for i=1 to 225 step 32
   for j=i to i+31
   x=(j-i)*43.75
   font_name j,pr$
   font_size j,tr
   font_bold j
   left j,x
   top j,y
   caption j,chr$(j-1)
   next j
   y=y+105
   next i
end_sub

A+

Sujet: Re: Un petit comparateur de polices Lun 6 Jan 2014 - 8:40

J'ai une erreur ligne 19 (expression incorrecte) si je tente une sélection d'une police,

Code:: pr$=right_pos$(item_read$(601,item_index(601)),3)

A+

Sujet: Re: Un petit comparateur de polices Lun 6 Jan 2014 - 9:16

Bonjour Jean-Claude Smile

As-tu la dernière version de Panoramic, "PANORAMIC_EDITOR V0925i9" que tu trouves sur le webdav de Jack?
RIGHT_POS$(T,P) : retourne une chaine de caractères composée de la chaine de caractères T commençant à la position P.
C'est une des dernières fonctions implémentées dans Panoramic par Jack. Cela fonctionne très bien chez-moi.
Cette fonction est vraiment très pratique! Merci Jack Wink

A+

Sujet: Re: Un petit comparateur de polices Lun 6 Jan 2014 - 10:09

Bonjour Bignono.
Bonjour tout le monde.

Voila un petit utilitaire bien utile !
Merci Bignono.

@Jean Claude
Je te rappelle que nous sommes en 2014 (heu … c.à.d en Version 0.9.25i9) Laughing

Sujet: Re: Un petit comparateur de polices Lun 6 Jan 2014 - 10:44

Le pire, c'est que j'ai aussi la bonne version (la dernière). Forcément çà va mieux.. Very Happy

Utilitaire Pratique
Merci Bignono.

A+

» Polices fixes installées
» Aperçu des polices de caractères
» Lister les polices disponibles sur votre ordinateur
» passez à la loupe ses polices de caratères
» Editeur de polices avec typographie