Discussion :

[ghima]

Bonjour à tous et merci de m'avoir accepté dans ce forum.

Voici un aperçu du fichier texte dont je dispose.

x y

-180 -83.83
-178 -84.33
-174 -84.5
-170 -84.67
(J'ai près de 1000 points dans le fichier)

J'arrive déjà à les importer dans delphi et il s'affiche dans un combox. Le problème est que je n'arrive pas à les afficher sur une grille (un quadrillage) de manière à ce qu'un polygone se dessine.

Merci et bon week end.

[Nil_ct]

Bonjour,

Il me semble qu'ils sont dans l'ordre (pour les 4 premiers points) pour former un polygone convexe - est-ce le cas ? C'est afficher des points qui pose problème ? Des lignes entre les points ?

Nil

[Gilbert Geyer]

Salut,

Tu peux utiliser la procedure Polygon(Points: array of TPoint); qui dessine dans le canvas d'un truc (Form, ou BitMap, etc) la suite de lignes connectant les points spécifiés et ferme la figure en connectant le dernier point au premier point. Exemple pour dessiner sur le canvas de la Form:

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
 
var       monArrayDePoints : array of TPoint;
const     nbPoints = 888;
 
procedure CreeEtChargeMonArray;
var       i : integer;
begin     SetLength(monArrayDePoints,1000); //< allocation de mémoire pour les max 1000 points
          Randomize;
          for i:=0 to nbPoints-1 do
          begin monArrayDePoints[i].X:=Random(500); // génère des coordoonées X
                monArrayDePoints[i].Y:=Random(200); // et Y aléatoires incluses dans un rectangle de 500x200 pixels
          end;
end;
 
procedure TForm1.btnDessineClick(Sender: TObject);
begin
          Canvas.Brush.Color := clNavy;
          Canvas.Polygon([Point(15, 10), Point(10, 25), Point(100, 30), Point(220, 120)]); // <- cas d'un tracé élémentaire
          CreeEtChargeMonArray;
          Canvas.Polygon(monArrayDePoints); // cas d'un tracé à partir d'un array créé au préalable et chargé de coordonnées.
end;

... tu peux aussi tracer ton polygone sur un BitMap invisible avec MonBitMap.Canvas.Polygon(monArrayDePoints); puis le rendre visible en l'affichant dans un TPaintBox ou un TImage par exemple.
... et comme tes données sont des valeurs avec des décimales ne pas oublier de faire X:=trunc(valeur); ou X:=Round(valeur) pour tes corrdonnées.

A+

[LadyWasky]

Bonjour à tous et merci de m'avoir accepté dans ce forum.

Voici un aperçu du fichier texte dont je dispose.

x y

-180 -83.83
-178 -84.33
-174 -84.5
-170 -84.67
(J'ai près de 1000 points dans le fichier)

OK

J'arrive déjà à les importer dans delphi et il s'affiche dans un combox.

Excellent !
mais arrives tu a mettre les valeurs dans un tableau de points tel que te le suggère Gilbert ?

Le problème est que je n'arrive pas à les afficher sur une grille (un quadrillage) de manière à ce qu'un polygone se dessine.

C'est à dire, qu'as-tu essayé ? Avec un TImage (on est mal ...) ou avec un TPaintbox (<-- c'est tout couillon à faire avec ça) ?

[Tardiff Jean-François]

Bonjour,

si vous voulez réellement tracer un polygone (courbe fermer), l'ordre polygon est en effet à utiliser.

Si vous voulez tracer une courbe, ce serait plutôt un moveto suivit de lineto.

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 traceCourbe(const Points: array of TPoint);
var
  I: Integer;
IMin, IMax: Integer;
begin
 IMin := Low(Points);
 IMax := High(Points);
if (IMax - IMin) < 1 then exit; // au moins 2 point pour une courbe
Canvas.Moveto(Points[IMin].X, Points[IMin].Y);
 
for i := IMin+1 to IMax do
  Canvas.Moveto(Points[I].X, Points[I].Y);
end;

Grosse modo votre code devrait ressembler à ce que je vient de taper (attention je ne l'ai pas tester).

Attention, j'ai vue que vous aviez des chiffres négatif dans vos points. ILS NE PEUVENT PAS ÊTRES AFFICHER.

Votre canvas peut être représenter comme un rectangle, d'une taille Width et d'une hauteur Height.
Vous pouvez dessiner depuis l'adresse 0, 0 jusqu'a l'adresse (Width - 1)/ (Height - 1)

Si vous désirez dessinez une courbe commençant en (-10, -20) vous devez vous créer un zéro virtuelle en 10/20 et décaler tous vos points en conséquence.

[Speed41]

Salut

OK
C'est à dire, qu'as-tu essayé ? Avec un TImage (on est mal ...) ou avec un TPaintbox (<-- c'est tout couillon à faire avec ça) ?

Pourquoi "on est ma"l avec un TImage ?? et pas avec un Tpaintbox

[LadyWasky]

Salut

Pourquoi "on est ma"l avec un TImage ?? et pas avec un Tpaintbox

Parce que contrairement à ce qu'on pourrais penser de prime abord, c'est plus facile à faire avec un TPaintBox (qui est fait pour ça), plutôt qu'avec un TImage qui est plutôt un composant fait pour le "décorum" (que je ne critique donc pas, surtout pour ce rôle qui lui va à merveille )...

Pour dessiner sur le Canvas d'un TImage, c'est d'un bazar !!! (voir dans la FAQ "Comment dessiner sur le vrai Canvas d'un TImage sans modifier l'image qu'il contient (Picture) ?" )

En tout cas, joyeux Noël à tous !!!