Discussion :

[JP CASSOU]

Bjr à tous et merci pour votre aide quant à mes démêlés avec le dessin sur FMX Android. J'arrive enfin à mes souhaits:



Maintenant, mon projet comporte un outil à main levée et lorsqu'il est activé, je désire que la trace de mon doigt / souris apparaisse sur ma vue, qui est un TPanel

Dans le OnMouseMove:

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
22
23
24
25
 
 
procedure TTabbedForm.pnlPlanMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Single);
var
  NewPos: TPoint2Df;
  MousePos: TPointF;
begin
  if (not FDocTopoOpenedAndReady) then exit;
  case FModeTravailVuePlan of
    mtpREADY           : pass;
    mtpNEW_ANNOTATION  : pass;
    mtpNEW_POLYLINE    : pass;
    mtpDRAWING_POLYLINE:
    begin
      MousePos.X := X;
      MousePos.Y := Y;
      pnlPlan.Canvas.DrawLine(FMousePos .X, FMousePos .Y, MousePos.X, MousePos.Y, 1); // /!\ L'opacité est définie sur [0.0; 1.0] et non [0; 255]
      FMousePos := MousePos; // sauvegarde de la position actuelle de la souris
    end;
    mtpDELETE_POLYLINE  : pass;
    mtpDELETE_ANNOTATION: pass;
  else
    pass;
  end;
end;

Dois-je créer un TImage temporaire ? Autres méthodes

Quel est le rôle de TCanvas.BeginScene / TCanvas.EndScene puisque mon code de tracé du dessin (événement TPanel.OnPaint) fonctionne sans ?

Trace laissée par la souris après armement du mode 'Dessin à main levée' dans un OnMouseDown:


Après désarmement dans un OnMouseUp et redessin:



cdlt

[anapurna]

salut

pour ma part etant partisant de la separation des donnée et de l'affichague je te conseillerais
de conserver temporairement les points et de les desinner dans le onpaint
ce qui devrais te permetre de revenir sur ces fameux point et d'agir dessus

[Paul TOTH]

Begin/EndScene

1) il ne faut pas oublier que FMX utilise des API graphiques différentes entre les OS...donc ce qui peut fonctionner sous un OS quand on ignore une étape, peux ne pas fonctionner sur d'autres

2) ces appels permettent d'initialiser le Canvas...lors du premier appel à BeginScene, et de le finaliser lors du dernier appel à EndScene...donc il n'est pas grave de l'appeler trop de fois.

BeginScene:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
begin
  FClippingChangeCount := 0;
  FSavingStateCount := 0;
 
  Stroke.Thickness := 1;
  Stroke.Cap := TStrokeCap.Flat;
  Stroke.Join := TStrokeJoin.Miter;
  Stroke.Dash := TStrokeDash.Solid;
  Stroke.Kind := TBrushKind.Solid;
  Fill.Kind := TBrushKind.Solid;
  SetMatrix(TMatrix.Identity);
end;

EndScene

Code :

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

1
2
3
4
5
 
begin
  if FBitmap <> nil then
    FBitmap.BitmapChanged;
end;

on a donc - au minimum - de l'initialisation au début, et de la notification de modification en fin.

[JP CASSOU]

salut

pour ma part etant partisant de la separation des donnée et de l'affichague je te conseillerais
de conserver temporairement les points et de les desinner dans le onpaint
ce qui devrais te permetre de revenir sur ces fameux point et d'agir dessus

Le but ici est de visualiser le passage de la souris ou du doigt. Les points obtenus partent bien sûr en structure de données (BDD mémoire) qui va régénérer le plan lors du OnPaint du TPanel

[anapurna]

salut

Le but ici est de visualiser le passage de la souris ou du doigt. Les points obtenus partent bien sûr en structure de données (BDD mémoire) qui va régénérer le plan lors du OnPaint du TPanel

donc aucun interet de dessinner une ligne dans le onmousevent
vu que tu le redessine dans le onpaint ...

[JP CASSOU]

salut



donc aucun interet de dessinner une ligne dans le onmousevent
vu que tu le redessine dans le onpaint ...

Donc le OnPaint est déclenché par chaque MouseMove ?

[anapurna]

salut

a toi de le gerer
tu peut le declencher toi meme le redessin avec un truc du genre

Code :

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

pnlPlan.repaint;