Discussion :

[Invité]

Bonjour,

Sur un TImage, à chaque clic je crée un trait avec le point précédent.
A la fin mon point final est mon point de départ de sorte a avoir une forme fermée.

Je remplis un "array of TPoint" avec les points de ma courbe.

Quand je fais un canvas.polybezier(ptPlan) cela ne m'affiche rien.. à moins de mettre énormément de point de contrôle..

Pouvez vous m'aider ?

Merci

[Archimède]

Bonjour,

Sur un TImage, à chaque clic je crée un trait avec le point précédent.
Merci

Mieux vaut utiliser polyline dans ce cas non ?

[Archimède]

Un truc comme ça :

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
26
27
28
29
30
31
32
33
 
  private
    { Déclarations privées }
    dimtab:integer;
    tabpoints:array of TPoint;
    Procedure Addline(pt:Tpoint);
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Procedure TForm1.Addline(pt:Tpoint);
var i:integer;
begin
  inc(dimtab);
  setlength(tabpoints,dimtab);
  tabpoints[dimtab-1]:=pt;
  for i:=0 to dimtab-1 do canvas.polyline(tabpoints);
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Addline(point(x,y));
end;
 
end.

@+

[Invité]

Merci, mais le fait d'utiliser un polyline revient au même nan?

Pour lisser les angles je dois forcement faire un polybezier, a moins que je n'est pas compris ?

[Archimède]

non :

La première courbe est dessinée à partir du premier point jusqu'au quatrième point, en utilisant le deuxième et le troisième points comme points de contrôle

il est normal de ne pas obtenir une courbe à chaque click avec polybézier...

@+

[Invité]

Enfaîte je construit pas courbe et je remplis mon tableau de TPoint.

Une fois que la courbe est tracé je fais un polybezier(tabPT) mais c'est la que j'obtiens rien..

Je vais ressayer avec polyline pour voir