Discussion :

[Thierry_74]

Bonjour,
Mon besoin est simple , j'ai une Form en FMX qui possede un TPanel et je veux dessiner une ligne dans le TPanel.
Mon TPanel possede les props suivantes
Width = 300
Height = 200


La procedure qui dessine est la suivante :

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
procedure TForm3.Button1Click(Sender: TObject);
var
    aCanvas:TCanvas;
begin
   aCanvas := Panel1.Canvas;
   if aCanvas.BeginScene then
  try
    aCanvas.Stroke.Thickness := 1.5;
    aCanvas.Stroke.Kind := TBrushKind.bkSolid;
    aCanvas.Fill.Color := TAlphaColorRec.Black;
    aCanvas.Fill.Kind := TBrushKind.bkSolid;
    aCanvas.DrawLine(PointF(0, 0),   PointF(300, 200),1);
  finally
    aCanvas.EndScene;
  end;
end;

On part bien de 0,0 qui devrait etre l'origine du composant Panel et aller au point opposé en bas à droite. Cette procédure devrait dessiner une diagonale.

Or le résultat est que la droite dessinée part bien de 0,0 mais celui de la Form propriétaire du TPanel et pas du TPanel lui-même.




De plus quand on redimensionne la fenetre, le trait precedement tracé disparait.

Question 1) Chaque composant ne possede t il pas son propre Canvas ou bien partage il celui de la Form en dessous
Question 2) Y a t il un moyen de changer la gestion de l origine du Canvas d un composant sans faire un changement de repere à la mano
Question 3) Que faire pour persister le trait pour qu il ne disparaisse pas lors d'un redimensionement de fenetre

Merci d'avance.

[ShaiLeTroll]

Je ne connais pas FMX donc je répondrais qu'au point 3)
Il faut le faire dans un OnPaint d'un TControl pour que la ligne soit redessinée et le paramètre Canvas du TOnPaintEvent doit être utilisable en se basant sur ARect

[SergioMaster]

Bonjour et bienvenue,

Un simple petit code

Code :

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

1
2
3
4
5
6
7
 
var
    aCanvas:TCanvas;
    fcanvas : Tcanvas;
begin
   fcanvas:=Canvas;
   aCanvas := Panel1.Canvas;

montre que fcanvas=acanvas.


Je procéderai différement, puisqu'un composant peut être parent d'un autre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
begin
  with Tline.Create(self) do
   begin
    parent:=Panel1;
    Stroke.Thickness:=1.5;
    Width:=300;
    Height:=200;
   end;
end;

[ALWEBER]

J'ai mis un Timage dans le TPanel
ET j'ai préchargé l'image avec une image blanche de 50x50



L'image peut être générée dynamiquement.

Ensuite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Image1.Bitmap.Canvas do
  begin
    BeginScene ;
    Stroke.Thickness := 1.5;
    Stroke.Kind := TBrushKind.bkSolid;
    Fill.Color := TAlphaColorRec.Black;
    Fill.Kind := TBrushKind.bkSolid;
    DrawLine(PointF(0, 0),   PointF(50, 50),1);
    EndScene ;
  end;
end;

[SergioMaster]

Effectivement mais, là, tu travailles sur le Canvas d'un Bitmap, plus vraiment d'un composant

[ALWEBER]

Effectivement mais, là, tu travailles sur le Canvas d'un Bitmap, plus vraiment d'un composant

Oui, j'ai regardé dans mes exemples fmx, c'est toujours le cas chez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Image1.Bitmap := TBitmap.Create(round(Panel1.Width), round (Panel1.Height));
  Image1.Bitmap.Clear (TAlphaColor (0));
  with Image1.Bitmap.Canvas do
  begin
    BeginScene ;
    Stroke.Thickness := 1.5;
    Stroke.Kind := TBrushKind.Solid;
    Fill.Color := TAlphaColorRec.Black;
    Fill.Kind := TBrushKind.bkSolid;
    DrawLine(PointF(0, 0),   PointF((Panel1.Width),  (Panel1.Height)),1);
    EndScene ;
  end;

[Thierry_74]

Merci pour vos solutions qui fonctionnent très bien.

Je ne connaissais pas le composant TLine qui simplifie le problème.

Pour conclure, pourquoi la solution d'AWeber solutionne le probleme de la position de l'origine par rapport à ce que j'avais ecrit au départ ?

Merci pour votre expertise en tout cas.

[SergioMaster]

Je ne connaissais pas le composant TLine qui simplifie le problème.

et il y a beaucoup d'autres shapes (rectangle étant celle que j'utilise le plus) mais les RadiantShapes en ajoute pas mal

Pour conclure, pourquoi la solution d'AWeber solutionne le probleme de la position de l'origine par rapport à ce que j'avais ecrit au départ ?

parce qu'il travaille sur un Bitmap.Canvas pas sur un composant au sens strict

J'ai essayé aussi ce que Graig Chapman propose https://chapmanworld.com/2015/08/05/...g-tcanvas-fmx/ mais je pense que les versions récentes n'aiment pas car cela ne fonctionne pas. J'avais déjà pensé à récupéré le Canvas de l'évènement OnPaint avec le même dépit.

Maintenant il s'agit peut-être d'une option GDI qu'il faudrait forcer

[ALWEBER]

Merci pour vos solutions qui fonctionnent très bien.

Je ne connaissais pas le composant TLine qui simplifie le problème.

Pour conclure, pourquoi la solution d'AWeber solutionne le probleme de la position de l'origine par rapport à ce que j'avais ecrit au départ ?

Merci pour votre expertise en tout cas.

Parce que nous ne sommes pas dans le même canvas je pense
Panel1.Canvas; et Image1.Bitmap.Canvas
ET aussi le Align

Code :

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

1
2
3
4
5
6
7
 
    object Image1: TImage
      MultiResBitmap = <
        item
        end>
      Align = Client
    end

[SergioMaster]

ne pas oublier le du bas de page

[Thierry_74]

Merci pour vos réponses rapides et précises.