Bonjour,
J'ai crée un composant shapeLabel (TShapeLabel = class(TShape)), comme son nom l'indique j'ai rajouté un label dans un TShape. Le label est de type TBoundLabel. J'ai une fonction DrawLabel qui me permet de centrer mon label dans le Shape. Elle est appelé dans le constructeur et SetLabelPosition.
J'ai besoin dans une fiche d'un ShapeLabel de taille très petite par rapport à la normale (heightShape=10). Mais lors de l'affichage, le texte du label dépasse (en hauteur) celle du Shape. Du coup, je ne vois pas le texte du Label en entier vu que le bas est coupé. Si je met une hauteur de 15,20 je vois le texte en entier (cf piece jointe).
J'ai essayé de jouer sur Font.Size en mettant à 3, par exemple, après le create mais ca n'a rien changé. Idem, j'ai changé dans la fonction DrawLabel du shapeLabel qui n'a rien donné (FEditLabel.Font.Size:=Self.Font.Size-2).
Merci de votre aide.
Partager