Discussion :

[stfanny31]

salut
je voudrais écrire au milieu d'une Ellipse
alors j'ai fais le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Form1.Canvas.TextOut(x+20,y+20,edit.Text);

le probléme est que edit.text change a chaque fois de langueur et le texte n'est pas toujour au milieu
j'ai cherché dans les propriété de .TextOut mais
si vous pouvé m'aidé

[droggo]

Hia,

Il faut commencer par calculer la dimension de la sortie du texte en pixel (avec quelque chose comme Canvas.TextExtent), et ajuster la position x,y de sortie.

Ou jouer avec les options d'alignement, Center (pas exactement ça, je ne sais plus), etc., mais je ne sais plus si ça existe directement pour le Canvas de Delphi. Si ça n'existe pas, voir du côté des API Windows concernées.

[petitcoucou31]

Salut stFanny31,

tu dois utiliser les méthodes textwidth et textheight, comme dans l'exemple ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
procedure TForm33.Button1Click(Sender: TObject);
var H,W,X1,X2,Y1,Y2:integer;
begin
    X1:=20;
    Y1:=20;
    X2:=120;
    Y2:=60;
    with paintbox1.canvas do
    begin
        // ellipse
        ellipse(x1,y1,x2,y2);
        W:=textwidth(edit1.Text);// donne largeur du texte
        H:=textheight(edit1.Text);// donne hauteur du texte
        // calcule la position
        W:=(X1+(X2-X1) div 2)-(W div 2);
        H:=(Y1+(Y2-Y1) div 2)-(H div 2);
 
        textout(W,H,edit1.text)
    end;
end;

[stfanny31]

merci Mr petitcoucou31
votre code marche trés bien