Discussion :

[chourmo]

Bonjour,
mon appli propose à l'utilisateur de positionner des images (genre triangle) sur une carte (image bmp ou jpg). Certains de ces triangles seront reliés entre eux par une double flèche qui peut changer de couleur.
Après maintes lecture de tutoriel et sujets de forum, est-ce que quelqu'un pourrait m'aider à découvrir le graphisme sous DELPHI.
Ma situation actuelle : j'ai suivi ce tutoriel c'est à dire placer un paintbox, puis dessiner des formes dans des "rect". je relies ces formes avec "Lineto". Or lorsque je bouges mes triangles, les lignes précédemment tracées s'effacent. De plus, je ne peux plus modifier la couleur des lignes une fois celles ci tracées. Enfin, je ne sais pas comment dessssiner sur une carte (image bmp ou jpg). pour l'instant, je me fais la main sur du fond blanc
Merci pour tout aide
Seb, débutant en delphi
PS : pas mal le nouveau forum, ça change

[chourmo]

Je rajouterai que je souhaiterais pouvoir identifier chaque ligne afin de pourvoir l'effacer ou la déplacer si les triangles bougent

[basnifo]

Si ca peux t'aider ...

Code :

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

http://pagesperso.laposte.net/holyview/coding/mes_progs/Generateur_regions_poly.rar

[Matt2094]

Ce que tu pourrais faire, c'est un base de donnée avec tous les éléments de ton image (trinagles, formes, flèches, ...) et d'actualiser l'image quand tu en a besoin avec ces bases de données.

[chourmo]

Ce que tu pourrais faire, c'est un base de donnée avec tous les éléments de ton image (trinagles, formes, flèches, ...) et d'actualiser l'image quand tu en a besoin avec ces bases de données.

je pense que je vais suivre ta proposition.
Reste désormais à savoir comment dessiner chauqe élément sans effacer l'image de fond, et faire en sorte que les flèches suivent les positions

[Matt2094]

Tu dois pour cela définir un ordre d'affichage des différents éléments. A ce moment là, ils se supperposent ; tu n'as qu'à afficher l'image de fond en premier ...
Pour le fait que les flèches suivent des éléments, il suffie de mettre dans tes base de donnée une variable qui dit quelle élément la flèche suit. Ensuite, il suffit de calculer la direction et la longueur de la flèche, puis de l'afficher ...

[chourmo]

T; tu n'as qu'à afficher l'image de fond en premier ...

et d'un point de vue code, ça ressemble à quoi ?

[anapurna]

salut

Code :

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

Canvas.Draw(x,y,Bitmap);

@+ Phil

[LadyWasky]

je pense que je vais suivre ta proposition.
Reste désormais à savoir comment dessiner chauqe élément sans effacer l'image de fond, et faire en sorte que les flèches suivent les positions

L'astuce, c'est de copier ton image de fond dans un TBitmap vide qui te serve d'image intermédiaire sur laquelle tu peux te permettre de dessiner.

En gros, si tu utilises un PaintBox, dans son OnPaint tu n'auras a recopier que ce Bitmap, je te livre ici une approche algorithmique :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
TForm1=class(TForm)
private
  TaCarte,TonBitmap:TBitmap;
...
public
  procedure MetAJourDessin;
  procedure MetAJourAffichage;
end;
 
...
procedure TForm1.Form1OnCreate();
begin
  TonBitmap:=TBitmap.Create;
  TaCarte:=TBitmap.Create;
  TaCarte.LoadFromFile('UneCarte.bmp';
 
  //dimensionner TonBitmap en fonction de TaCarte :
  TonBitmap.Width:=TaCarte.Width;
  TonBitmap.Height:=TaCarte.Height;
end;
 
procedure TForm1.Form1OnDestroy();
begin
  TonBitmap.Free;
  TaCarte.Free;
end;
 
procedure TForm1.MetAJourDessin;
begin
   //1) copier ton image de fond (ta carte) dans TonBitmap :
   TonBitMap.Canvas.Draw(0,0,TaCarte
   //2) Dessiner les éléments dans TonBitmap (en fonction de ce que tu as mis dans une liste, un tableau ou une base de données).
   for i:=0 to NbreElements-1 do
   begin
      //dessin du ième élément
      TonBitMap.Canvas.Rectangle()
      TonBitMap.Canvas.Circle()
   end;
end;
 
procedure TForm1.MetAJourAffichage;
begin
   MetAJourDessin;
   PaintBox1.Repaint;
end;
 
procedure TForm1.PaintBox1OnPaint();
begin
   //Dessine TonBitmap dans la PaintBox (c'est un exemple)
   PaintBox1.Canvas.StretchDraw(PaintBox1.ClientRect,TonBitMap);
end;

Et quand tu ajoutes ou supprimes un élément, tu utilises la procédure MetAJourAffichage

Normalement, tu devrais t'en sortir avec cette structure.