Composant code barre 39-ean13-ean8

Soyez le premier à donner votre avis sur cette source.

Vue 15 267 fois - Téléchargée 2 158 fois

Description

J'ai réalisé ce composant, descendant de TgraphicControl, car j'en avais assez de devoir intégrer les polices codebarre dans mes projets.
C'est mon premier composant, il a sûrement des erreurs de syntaxe dans sa déclaration.

Voici les propriétés dont il dispose :
composant codebarre 39 EAN8 EAN13, redimensionnable
propriété BarCodeType : type du code barre
propriété BarWidth : largeur des barres de base
propriété BarWidthXL : largeur des barres larges
propriété Code : le code barre à afficher
propriété WithText : avec ou sans le code en texte clair
propriété bitmap : contient le bitmap du code barre
propriété printratio : facteur d'échelle pour la propriété bitmapforprint
propriété bitmapforprint : contient le bitmap du code barre mis à l'échelle avec printratio
propriété IsfixedWidth : force la largeur du codebarre (peut dégrader la qualité)

Conclusion :


Le zip contient le composant BarCode et un exemple d'utilisation

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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.
Messages postés
13
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
7 octobre 2007

tu as raison Hrod, il y avait un bug dans mon prog. C'est désormais résolu.

les propriétés du composant :
composant codebarre 39 EAN8 EAN13, redimensionnable
propriété BarCodeType : type du code barre
propriété BarWidth : largeur des barres de base
propriété BarWidthXL : largeur des barres larges
propriété Code : le code barre à afficher
propriété WithText : avec ou sans le code en texte clair
propriété bitmap : contient le bitmap du code barre
propriété printratio : facteur d'échelle pour la propriété bitmapforprint
propriété bitmapforprint : contient le bitmap du code barre mis à l'échelle avec printratio
propriété IsfixedWidth : force la largeur du codebarre (peut dégrader la qualité)

damien varrel
Afficher les 21 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.