Puce s'ajustant en fonction de la largeur d'un label [version composant]

Description

Ça fait déjà quelques jours que j'ai réalisé cette source
et je me suis enfin décidé à vous en faire profiter
si toute fois ça intéresse encore quelqu'un (Delphiprog semblait trouver l'idée intéressante)

Ce composant et une alternative à la méthode proposée par Japee,
http://www.delphifr.com/codes/PUCE-AJUSTANT-FONCTION-LARGEUR-LABEL_39969.aspx
afin de réaliser un Label avec des "puces" qui se repositionnent
en fonction de la taille du texte, qui fait elle même suite à une
question posée sur le forum :
http://www.delphifr.com/infomsg_ALIGNER-ELEMENTS-AVEC-ANCHORS_829323.aspx#5

Voilà pour la petite histoire :)

Conclusion :


Un composant dérivé de TCustomLabel avec quatre propriétés supplémentaires :

- ImageList : j'ai opté pour une ImageList pour des raisons évidentes
d'économies de ressources

- ImgIndexLeft : défini l'index de la puce de gauche

- ImgIndexRight : défini l'index de la puce de droite

- Marge : défini un espace entre le texte et les puces

Il n'est pas nécessaire d'installer le composant pour pouvoir compiler la Démo
Le Label est crée dynamiquement
Deux ImageList contenant chacune 3 images
- une en 16x16
- une en 24x24

Pour passer d'une ImageListe à l'autre il suffit de cliquer sur le bouton "Change ImageList"

Le code est, normalement, suffisamment commenté

Codes Sources

A voir également

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.