Discussion :

[Topo38]

Bonjour,

je voudrais passer sur FMX une application de dessin que j'ai écrite avec Delphi 7. Je n'arrive pas à trouver comment écrire du texte sur une courbe de Bézier ou même plus simplement du texte incliné. Auriez-vous des solutions ?

Merci d'avance

[Paul TOTH]

sous FMX il faut penser aux matrices de transformations qui permettent de tout faire ou presque

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses
  System.Math.Vectors;
 
procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  Canvas.BeginScene();
  Canvas.MultiplyMatrix(TMatrix.CreateRotation(10 * PI/180)); // 10°
  Canvas.Fill.Color := TAlphaColorRec.Black;
  Canvas.FillText(ARect, 'Hello World', False, 1, [], TTextAlign.Center);
  Canvas.EndScene;
end;

[Topo38]

Merci pour votre réponse rapide.
Pour créer un texte sur une courbe, faut-il utiliser une matrice pour chaque caractère ou bien y a-il une méthode plus simple ?

[Paul TOTH]

Merci pour votre réponse rapide.
Pour créer un texte sur une courbe, faut-il utiliser une matrice pour chaque caractère ou bien y a-il une méthode plus simple ?

je ne pense pas qu'il existe une fonction crossplateforme pour le faire (faut pas oublier que FMX c'est pas que Windows)...par curiosité comment le gérez vous sous VCL ?

[Topo38]

j'ai récupéré le source sur http://angusj.com/delphitips/beziertext.php
Ca donne de bon résultats avec Delphi 7. Je vais essayer de voir si je peux l'adapter pour Fmx