COMPOSANT CODE BARRE 39-EAN13-EAN8

Signaler
-
Messages postés
250
Date d'inscription
lundi 9 novembre 2009
Statut
Membre
Dernière intervention
4 septembre 2020
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/43619-composant-code-barre-39-ean13-ean8

Messages postés
250
Date d'inscription
lundi 9 novembre 2009
Statut
Membre
Dernière intervention
4 septembre 2020

Personnellement, j'utilise la fonte Code39r.ttf téléchargeable gratuitement.
Je crée un TRichEdit dans lequel il est possible de choisir sa fonte, ligne par ligne.
par exemple:
SIDcong:= Edit1.Text;
RichEdit1.Clear;
RichEdit1.SelAttributes.Size:=30;
RichEdit1.SelAttributes.Name:='code39';
RichEdit1.SetSelText(SIDcong + #13#10); //impression du barcode
RichEdit1.SelAttributes.Size:=10;
RichEdit1.SetSelText(' '+SIDcong); //impression en format lisible
Richedit1.Visible:=True; //visu rapide avant impression; Richedit est visible:=False par défault
Richedit1.Print('My Document Name');
sleep(1500);
Richedit1.Visible:=False;

De plus il est possible de charger la fonte dynamiquement uniquement pour l'appli (sur form create):
//--------------chargement de la fonte barcode 39----------------------------------
AddFontResource('c:\code39r.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
puis déchargement quand on quitte (sur FormDestroy):
//--------------déchargement de la fonte barcode 39----------------------------------
RemoveFontResource('c:\code39r.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
Messages postés
13
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
7 octobre 2007

tu as raison pour l'icône, j'aurais du joindre le fichier barcode.dcr, qui contient l'icône pour la palette de composant. je mets à jour ceci, si tu veux que l'icône apparaisse, il te faut desinstaller le composant puis le réinstaller.

non, je ne suis pas un pro, seulement un peu touche à tout.
Messages postés
6
Date d'inscription
mercredi 22 novembre 2006
Statut
Membre
Dernière intervention
7 octobre 2007

Encore moi... pour dire : super ! J'ai enfin téléchargé cette bibliothèque "graphicex" et réinstallé le composant, tout fonctionne désormais à la perfection.

Bravo Damien, j'aimerais être capable de faire des choses pareilles.

Seul petit regret, c'est que l'icone du composant dans la palette ne soit plus la même. Comme je ne sais pas du tout comment la changer, elle restera ainsi.

En attendant, une fois encore, un grand MERCI.
Messages postés
6
Date d'inscription
mercredi 22 novembre 2006
Statut
Membre
Dernière intervention
7 octobre 2007

Merci Dvarrel, je suis un peu rassuré ! Et bravo pour ta rapidité d'intervention, c'est du "top moumoute". Professionnel ?

Je suis décidément très nul (ho oui!!!) mais maintenant je n'arrive pas à dégotter ce "graphicex.dcu" requis. Faut dire que quand il y a un gravier dans les lentilles, il est pour moi ! lol!

Merci encore pour ton aide en tous cas.
Afficher les 21 commentaires