Discussion :

[Bourak]

Salut

J'ai utilisé la propriete canvas.textout dans une image pour dessiné un text d'un angle veritcale et autre ,mais je voudrais habillé un cercle par un text ou ecrire un text dans un arc ou dans une ligne de demi cercle.

merci d'avance

[Graffito]

Bonjour,

Des p'tits bouts de code - non testés- pour écrire un mot ou des des lettres non horizontales :
http://www.hitekdev.com/delphi/rotatetext.html
http://www.latiumsoftware.com/en/delphi/00046.php

[OutOfRange]

Bonjour

A mon sens, c'est juste un problème de calcul de coordonnées du textout
Voici un petit exemple de code qui écrit "en rond"

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
procedure TForm1.FormPaint(Sender: TObject);
var
  compteur:byte;
  texte:string;
  xcentre,ycentre,rayon:integer;
  angle:extended;
begin
   xcentre:=form1.width div 2;
   ycentre:=form1.Height div 2;
   rayon:=100;
   angle:=10;
   texte:='EXEMPLE DE TEXTE CIRCULAIRE';
   for compteur:=length(texte) downto 1 do
   begin
      form1.Canvas.TextOut(xcentre+trunc(sin(angle-compteur/(pi*2))*rayon),
                                ycentre+trunc(cos(angle-compteur/(pi*2))*rayon),
                                midstr(texte,compteur,1));
   end;
end;

[Bourak]

Bonjour les developpeurs

Merci Graffito & OutOfRange pour votre aide. Je vais maintenant tester ces codes et merci.