cs_Jean_Jean
Messages postés615Date d'inscriptiondimanche 13 août 2006StatutMembreDernière intervention13 décembre 2018
-
29 déc. 2006 à 16:24
cs_Jean_Jean
Messages postés615Date d'inscriptiondimanche 13 août 2006StatutMembreDernière intervention13 décembre 2018
-
29 déc. 2006 à 16:45
Bonjour,
Je n'ai pas trouvé de réponse à ma question sur le site et la doc...J'ai donc recours à vos lumières...
Je dessine Un fond sur le canevas directement de la fiche dans la méthode FormPaint. Le dessin comprend des petits carrés de couleurs et un texte dans ces petits carrés. or le texte est caché par le dessin du rectangle qu'il soit dessiné avant ou après le rectangle.
Qu'est-ce qui colle pas?
With Canvas do
begin
Font.Color := ClRed;
for N := 1 to NP do
For i:= 1 to NL do
begin
Brush.Color := CoulFdLed[i];
Pen.Color := CoulFdLed[i];
Rectangle(N * X, I * Y, A + N * X, B + I * Y);
TextOut(N*X+1,I * Y+5, 'Le texte');
end;
end;
à la place de TextOut j'utiliserai DrawText
ce qui donnerait pour toi ceci :
Var aRect : TRect;
With Canvas Do Begin ...
aRect := Rect(N *X, I * Y, A+ N* X, B + I *Y);
DrawText(Handle, 'Le texte', -1, aRect, DT_SINGLELINE or DT_CENTER or dt_VCENTER);
...
End ;
Ceci écrit le texte au centre du rectangle