Discussion :

[ero-sennin]

Bonjour,

Je suis entrain de faire un petit programme afin de me familiariser avec les Canvas, le redimensionnement d'image, etc. Je suis assez novice dans ce domaine. Mon programme serait de faire des Entités (Rectangle) qui seront reliés par des Relations (Ligne). Bien que je ne sais pas trop comment m'y prendre pour déplacer les formes que je dessine sur le Canvas de mon Bitmap (au passage si vous avez une idée, n'hésitez pas), je voudrais avoir quelques informations afin que la ligne qui relie 2 rectangles s'étire ou se rétrécie automatiquement lorsque je bouge un des rectanges.

Je vous poste mon code dans son intégralité afin que vous puissiez y jeter un oeil et si vous avez des critiques à faire, n'hésitez pas! (C'est comme cela que l'on progresse ).

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
unit UPrincipale;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, Buttons, ComCtrls, ToolWin, StdCtrls;
 
type
  TFPrincipale = class(TForm)
    Palette_Dessin: TPanel;
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Nouveau1: TMenuItem;
    Ouvrir1: TMenuItem;
    Enregister1: TMenuItem;
    Quitter1: TMenuItem;
    SpBtnEntite: TSpeedButton;
    SpBtnRelation: TSpeedButton;
    Edition1: TMenuItem;
    Copier1: TMenuItem;
    Affichage1: TMenuItem;
    PaletteOutils1: TMenuItem;
    BarredEtat1: TMenuItem;
    StatusBar: TStatusBar;
    ColorDialog1: TColorDialog;
    procedure Quitter1Click(Sender: TObject);
    procedure Panel_Zone_DessinMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Palette_DessinMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpBtnEntiteClick(Sender: TObject);
    procedure SpBtnRelationClick(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
//Déclaration des Constantes
const
Nbre_Maxi_Forme=50;
 
//Déclaration de Type
type TFormeDessine=record
  Point_Depart_Forme_X:integer;
  Point_Depart_Forme_Y:integer;
  Point_Arrive_Forme_X:integer;
  Point_Arrive_Forme_Y:integer;
  Point_Depart_Ellipse_X:integer;
  Point_Depart_Ellipse_Y:integer;
  Point_Fin_Ellipse_X:integer;
  Point_Fin_Ellipse_Y:integer;
  Largeur,Hauteur:integer;
  Forme_Dessinee:string[15];
  end;
 
 
//Déclaration des Fonctions et Procédures
function GetNumeroForme(X:integer;Y:integer) : integer;
procedure InitTabForme(var Tableau_Forme:TFormeDessine; Nbre_Maxi_Forme:integer);
 
var
  FPrincipale: TFPrincipale;
  Zone_Dessin:TBitmap;
  TabForme:array[1..Nbre_Maxi_Forme]of TFormeDessine;
  Tableau_Forme:TFormeDessine;
  Forme_Dessin:String;
  Clic,tracerligne:Boolean;
  Point_Depart_Forme_X:integer;
  Point_Depart_Forme_Y:integer;
  Point_Arrive_Forme_X:integer;
  Point_Arrive_Forme_Y:integer;
  Point_Depart_Ellipse_X:integer;
  Point_Depart_Ellipse_Y:integer;
  Point_Fin_Ellipse_X:integer;
  Point_Fin_Ellipse_Y:integer;
  Largeur,Hauteur:integer;
  Nbr_Forme,NumeroForme:integer;
 
implementation
 
{$R *.dfm}
//Fonction permettant de savoir sur si on a cliqué sur une forme ou non
//La fonction retourne 0 si ce n'est pas une forme sinon le numéro de la forme
//Elle reçoit en paramètre X et Y correspond à ceux de l'événement OnMouseDown
function GetNumeroForme( X:integer;Y:integer) : integer;
var
  continue : boolean;
  indice : integer;
  x1, y1, x2, y2 : integer;
begin
  continue := true;
  indice := 1;
  // Je parcours mes formes et je vérifie si j'ai cliqué sur l'une d'entre elle.
  while ((indice<=Nbr_Forme)and(continue)) do
  begin
    x1 := TabForme[indice].Point_Depart_Forme_X;
    y1 := TabForme[indice].Point_Depart_Forme_Y;
    x2 := TabForme[indice].Point_Arrive_Forme_X;
    y2 := TabForme[indice].Point_Arrive_Forme_Y;
    if (((X>=x1)and(X<=x2) or (X<=x1)and(X>=x2)) and ((Y>=y1)and(Y<=y2)or (Y<=y1)and(Y>=y2))) then
    begin
      continue :=false;
    end
    else
    indice := indice+1;
  end;
  if not continue then
    result := indice   // Numéro de la forme où j'ai cliqué
  else
    result := 0;   // Retourne 0 si je n'ai pas cliqué sur une forme
end;
 
//Procédure Initialisant Mon Tableau De Forme en affectant des
//0 aux integer et un blanc aux string
procedure InitTabForme(var Tableau_Forme:TFormeDessine;Nbre_Maxi_Forme:integer);
var
Indice_Tab:integer;
begin
for Indice_Tab:=1 to Nbre_Maxi_Forme do
begin
TabForme[Indice_Tab].Point_Depart_Forme_X:=0;
TabForme[Indice_Tab].Point_Depart_Forme_Y:=0;
TabForme[Indice_Tab].Point_Arrive_Forme_X:=0;
TabForme[Indice_Tab].Point_Arrive_Forme_Y:=0;
TabForme[Indice_Tab].Largeur:=0;
TabForme[Indice_Tab].Hauteur:=0;
TabForme[Indice_Tab].Point_Depart_Ellipse_X:=0;
TabForme[Indice_Tab].Point_Depart_Ellipse_Y:=0;
TabForme[Indice_Tab].Point_Fin_Ellipse_X:=0;
TabForme[Indice_Tab].Point_Fin_Ellipse_X:=0;
TabForme[Indice_Tab].Forme_Dessinee:='';
end;
end;
 
 
procedure TFPrincipale.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    if (((Forme_Dessin='Entite') or (Forme_Dessin='Relation'))and (NumeroForme =0)) then
    begin
      Clic:=false;
      Point_Arrive_Forme_X:=X;
      Point_Arrive_Forme_Y:=Y;
      if (Forme_Dessin='Entite') or (Forme_Dessin='Relation') then
      Nbr_Forme:=Nbr_Forme+1;
 
      TabForme[Nbr_Forme].Point_Depart_Forme_X:= Point_Depart_Forme_X;
      TabForme[Nbr_Forme].Point_Depart_Forme_Y:= Point_Depart_Forme_Y;
      TabForme[Nbr_Forme].Point_Arrive_Forme_X:= Point_Arrive_Forme_X;
      TabForme[Nbr_Forme].Point_Arrive_Forme_Y:= Point_Arrive_Forme_Y;
      TabForme[Nbr_Forme].Largeur:= Point_Arrive_Forme_X-Point_Depart_Forme_X;
      TabForme[Nbr_Forme].Hauteur:= Point_Arrive_Forme_Y-Point_Depart_Forme_Y;
      TabForme[Nbr_Forme].Forme_Dessinee:=Forme_Dessin;
      if (Forme_Dessin='Entite') then
      begin
        TabForme[Nbr_Forme].Point_Depart_Ellipse_X:=0;
        TabForme[Nbr_Forme].Point_Depart_Ellipse_Y:=0;
        TabForme[Nbr_Forme].Point_Fin_Ellipse_X:=0;
        TabForme[Nbr_Forme].Point_Fin_Ellipse_Y:=0;
        Zone_Dessin.Canvas.Brush.Style:=bsSolid;
        Zone_Dessin.Canvas.Rectangle(TabForme[Nbr_Forme].Point_Depart_Forme_X,TabForme[Nbr_Forme].Point_Depart_Forme_Y,TabForme[Nbr_Forme].Point_Arrive_Forme_X,TabForme[Nbr_Forme].Point_Arrive_Forme_Y);
        if (TabForme[Nbr_Forme].Point_Arrive_Forme_Y<TabForme[Nbr_Forme].Point_Depart_Forme_Y) then
        Zone_Dessin.Canvas.Polyline([Point((TabForme[Nbr_Forme].Point_Depart_Forme_X),(TabForme[Nbr_Forme].Point_Arrive_Forme_Y+20)),Point((TabForme[Nbr_Forme].Point_Arrive_Forme_X),(TabForme[Nbr_Forme].Point_Arrive_Forme_Y+20))])
        else
        Zone_Dessin.Canvas.Polyline([Point(TabForme[Nbr_Forme].Point_Depart_Forme_X,(TabForme[Nbr_Forme].Point_Depart_Forme_Y+20)),Point(TabForme[Nbr_Forme].Point_Arrive_Forme_X,(TabForme[Nbr_Forme].Point_Depart_Forme_Y+20))]);
      end
      else
      begin
        if (Forme_Dessin='Relation') then
        begin
        Point_Depart_Ellipse_X:=(Point_Depart_Forme_X+((Point_Arrive_Forme_X-Point_Depart_Forme_X) div 2))-40;
        Point_Depart_Ellipse_Y:=(Point_Depart_Forme_Y+((Point_Arrive_Forme_Y-Point_Depart_Forme_Y) div 2))-20;
        Point_Fin_Ellipse_X:=(Point_Depart_Forme_X+((Point_Arrive_Forme_X-Point_Depart_Forme_X) div 2))+40;
        Point_Fin_Ellipse_Y:=(Point_Depart_Forme_Y+((Point_Arrive_Forme_Y-Point_Depart_Forme_Y) div 2))+20;
        TabForme[Nbr_Forme].Point_Depart_Ellipse_X:=Point_Depart_Ellipse_X;
        TabForme[Nbr_Forme].Point_Depart_Ellipse_Y:=Point_Depart_Ellipse_Y;
        TabForme[Nbr_Forme].Point_Fin_Ellipse_X:=Point_Fin_Ellipse_X;
        TabForme[Nbr_Forme].Point_Fin_Ellipse_Y:=Point_Fin_Ellipse_Y;
        Zone_Dessin.Canvas.Polyline([Point(Point_Depart_Forme_X,Point_Depart_Forme_Y),Point(Point_Arrive_Forme_X,Point_Arrive_Forme_Y)]);
        Zone_Dessin.Canvas.Ellipse(Point_Depart_Ellipse_X,Point_Depart_Ellipse_Y,Point_Fin_Ellipse_X,Point_Fin_Ellipse_Y);
        end;
      end;
    end;
  end;
FPrincipale.Repaint;
end;
 
procedure TFPrincipale.Quitter1Click(Sender: TObject);
begin
Application.Terminate;
end;
 
procedure TFPrincipale.Panel_Zone_DessinMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
StatusBar.SimpleText:='X: '+IntToStr(X)+ ' ; Y: '+IntToStr(Y);
end;
 
procedure TFPrincipale.Palette_DessinMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
StatusBar.SimpleText:='';
end;
 
procedure TFPrincipale.FormCreate(Sender: TObject);
begin
Zone_Dessin:=TBitmap.Create;
DoubleBuffered:=True;
Zone_Dessin.Width:=FPrincipale.Width;
Zone_Dessin.Height:=FPrincipale.Height;
Zone_Dessin.Canvas.Brush.Color:=clwhite;
Zone_Dessin.Canvas.Brush.Style:=bsClear;
Zone_Dessin.Canvas.Pen.Width:=1;
Canvas.Brush.Style:=bsClear;
Forme_Dessin:='Entite';
tracerligne:=false;
Nbr_Forme:=0;
NumeroForme:=0;
end;
 
procedure TFPrincipale.FormPaint(Sender: TObject);
begin
FPrincipale.Canvas.Draw(0,0,Zone_Dessin);
end;
 
procedure TFPrincipale.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
Depart_Ellipse_X,Depart_Ellipse_Y,Fin_Ellipse_X,Fin_Ellipse_Y : integer;
begin
StatusBar.SimpleText:='X: '+IntToStr(X-Palette_Dessin.Width)+ ' ; Y: '+IntToStr(Y);
FPrincipale.Repaint;
 
if (Clic) then
begin
 if (Forme_Dessin='Entite') then
 begin
 Canvas.Rectangle(Point_Depart_Forme_X,Point_Depart_Forme_Y,X,Y);
 if (Y<Point_Depart_Forme_Y) then
 Canvas.Polyline([Point((X),(Y+20)),Point((X+(Point_Depart_Forme_X-X)),(Point_Depart_Forme_Y-(Point_Depart_Forme_Y-Y)+20))])
 else
 Canvas.Polyline([Point(Point_Depart_Forme_X,(Point_Depart_Forme_Y+20)),Point(X,(Point_Depart_Forme_Y+20))]);
 end;
 if (Forme_Dessin='Relation') then
 begin
 Depart_Ellipse_X:=(Point_Depart_Forme_X+((X-Point_Depart_Forme_X) div 2))-40;
 Depart_Ellipse_Y:=(Point_Depart_Forme_Y+((Y-Point_Depart_Forme_Y) div 2))-20;
 Fin_Ellipse_X:=(Point_Depart_Forme_X+((X-Point_Depart_Forme_X) div 2))+40;
 Fin_Ellipse_Y:=(Point_Depart_Forme_Y+((Y-Point_Depart_Forme_Y) div 2))+20;
 Canvas.Polyline([Point(Point_Depart_Forme_X,Point_Depart_Forme_Y),Point(X,Y)]);
 Canvas.Brush.Style:=bsSolid;
 Canvas.Brush.Color:=clWhite;
 Canvas.Ellipse(Depart_Ellipse_X,Depart_Ellipse_Y,Fin_Ellipse_X,Fin_Ellipse_Y);
 end;
end;
end;
 
procedure TFPrincipale.SpBtnEntiteClick(Sender: TObject);
begin
Forme_Dessin:='Entite';
Zone_Dessin.Canvas.Brush.Style:=bsSolid;
Zone_Dessin.Canvas.Pen.Width:=1;
Zone_Dessin.Canvas.Pen.Color:=clBlack;
FPrincipale.Canvas.Pen.Color:=clBlack;
end;
 
procedure TFPrincipale.SpBtnRelationClick(Sender: TObject);
begin
Forme_Dessin:='Relation';
Zone_Dessin.Canvas.Brush.Style:=bsSolid;
Zone_Dessin.Canvas.Pen.Width:=1;
Zone_Dessin.Canvas.Pen.Color:=clBlack;
FPrincipale.Canvas.Pen.Color:=clBlack;
end;
 
procedure TFPrincipale.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
NumeroForme :=GetNumeroForme(X,Y);
 if(Nbr_Forme<Nbre_Maxi_Forme)then
 begin
   if (NumeroForme=0) then
   begin
   Clic:=true;
     if ((Forme_Dessin='Entite') or (Forme_Dessin='Relation')) then
     begin
     Point_Depart_Forme_X:=X;
     Point_Depart_Forme_Y:=Y;
     end;
   end;
 end
 else
 ShowMessage('Nombre de forme maximum atteinds');
end;
 
end.

Désolé si le code est long mais je préfère tous vous donner
Merci

[Sub0]

Salut!

Désolé, pas le courage d'analyser ton code ! (je ne dois pas être le seul)

Pour le redimensionnement d'image, je serai tenté de te conseiller d'utiliser mon unité de redimensionnement avec filtres anti-aliasing que j'ai réalisé à partir du code du composant Graphics32 pour s'éviter d'installer ce compo juste pour ça... Voici ma démo avec le code source :

http://sub0.developpez.com/delphi/AAlias.zip

La fonction utilise des bitmaps mais il est très facile de créer dynamiquement 2 TBitmaps pour contenir temporairement l'arrière-plan et ton canvas... à+

[ero-sennin]

Merci pour ton bout de code, je vais étudier tout cela.

Je mets ce topic en délestage. Je pense que je devrais déouper les étapes que de tout poster comme ca, ca doit en décourager plus d'un quand il boit mon post

Je vais ouvrir un autre sujet qui sera ciblé sur un et un seul problème, donc ce sujet peux être supprimer car je pense que j'en demande trop et je ne cible pas très bien mon problème

Merci