Discussion :

[ero-sennin]

Bonjour,

Je débute en ce qui concerne l'utilisation de Canvas sous Delphi. Venons en à mon "problème".

Je dessine des rectangles sur mon canvas et je souhaiterai le redimensionner et aussi le déplacer.

Voici le code :

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; 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;
 
var
  Form1: TForm1;
  image :TBitmap;
  x0,y0:integer;
  clic:boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
image:=TBitmap.Create;
image.Width:=form1.Width;
image.Height:=form1.Height;
image.Canvas.Brush.Color:=clWhite;
image.Canvas.Brush.Style:=bsSolid;
canvas.Brush.Style:=bsClear;
DoubleBuffered:=true;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
canvas.Draw(0,0,image);
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
clic:=true;
image.Canvas.MoveTo(X,Y);
x0:=X;
y0:=Y;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
form1.Repaint;
if clic then
canvas.Rectangle(x0,y0,X,Y);
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
image.Canvas.Rectangle(x0,y0,X,Y);
Form1.Repaint;
clic:=false;
end;
 
end.

J'ai trouvé quelques choses sur le net qui est très intéressant; le seul problème c'est qu'il redimensionne et déplace un Panel :

Voici le code de cet exemple :

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
unit Unit1;
{ Comment rendre un TPanel redimensionnable et déplaçable
sans utiliser un composant dérivé (Serge Arbiol - 22/11/2001)
            =====================
Marche à suivre:
- Déposer un TPanel sur une fiche
- lui donner une bordure conséquente (BorderWidth:=4 ou 5):
      Le redimensionnement se fera en saisissant la bordure
      et le déplacement en saisissant l'intérieur du Panel
- Modifier le curseur selon la zone survolée
      (3 zones sensibles seulement dans cet exemple):
    . Bord droit --> curseur de redimensionnement horizontal
    . Bord inférieur --> curseur de redimensionnement vertical
    . Coin inférieur droit --> curseur de redimensionnement sur les 2 axes
====================================================
 La difficulté réside dans l'utilisation des événements:
 . onMouseMove (gestion du changement de curseurs
   et du redimensionnement si le bouton de la souris est enfoncé)
 . onMouseDown (mise à jour des variables destinées à être
    utilisées dans onMouseMove et déplacement)
====================================================
}
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Déclarations privées }
    BordDroit, PasBord, BordBas, Redim : Boolean;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
     // interdire réduction trop importante
     Panel1.Constraints.MinWidth:=20;
     Panel1.Constraints.MinHeight:=20;
     // Ne pas mettre de style de bordure
     Panel1.BorderStyle:=bsNone;
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     // changer de curseur selon la position (mettre BorderWidth à 4 au moins)
     // si on est sur le bord droit
     if (X>=Panel1.Width-Panel1.BorderWidth) then Panel1.Cursor:=crHsplit
     else if (X<Panel1.Width-Panel1.BorderWidth) then Panel1.Cursor:=crDrag;
     // si on est sur le bord inférieur
     if (Y>Panel1.Height-Panel1.BorderWidth) then Panel1.Cursor:=crVsplit;
     // si on est sur le coin inférieur droit (redimensionnement x et y)
     if (X>=Panel1.Width-Panel1.BorderWidth)
        and (Y>Panel1.Height-Panel1.BorderWidth) then
Panel1.Cursor:=crSizeAll;
     if ssleft in shift then
     begin
          if (BordDroit or Redim) then Panel1.Width:=x;
          if (BordBas or Redim) then Panel1.Height:=y;
     end;
end;
 
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     // si bouton enfoncé, mémoriser ce qu'il faut faire en fonction ducurseur
     PasBord:=False;
     if Panel1.Cursor=crHsplit then BordDroit:=True else BordDroit:=False;
     if Panel1.Cursor=crVsplit then BordBas:=True else BordBas:=False;
     if Panel1.Cursor=crDrag then PasBord:=True else PasBord:=False;
     if Panel1.Cursor=crSizeAll then Redim:=True else Redim:=False;
     if PasBord then // déplacement
     begin
           ReleaseCapture;
           panel1.Perform(WM_SYSCOMMAND, $F012, 0);
     end;
end;
 
end.

Pouvez vous me dire si cela est possible avec ce que je suis entrain de faire? Si non, comment dois-je m'y prendre? Merci de vos conseils.

[ero-sennin]

J'ai réussi à déplacer un rectangle simple (c'est à dire sans qu'il y ait de choses à l'intérieur). J'ai en faite redessiner le rectangle sur lequel j'ai cliqué, puis, j'ai supprimé le rectangle de départ.

Maintenant, j'ai mis un texte à l'intérieur de ce rectangle. Ce que je cherche à faire, c'est de copier une partie de l'image.

Par exemple, mon rectangle lorsque je dessine est comme ceci :

Code :

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

image.Canvas.Rectangle(100,100,200,300);

et il y a marqué bonjour dedans. Peut-on copier juste la zone (100,100,200,300)? Si oui comment faire s'il vous plait?

Merci

[poly128]

Va voir du coté de la fonction CopyRect(). Tu y trouvera sans doute ton bonheur.

[ero-sennin]

Justement je suis entrain de voir de ce coté, mais j'ai un peux de mal à comprendre comment faire.

Je dessine sur un Bitmap qui s'appelle image.

Ce que je souhaite faire, c'est copier le rectangle que j'ai dessiné (avec tout ce qu'il contient à l'intérieur) et de le coller à un autre endroit sur mon Bitmap image.

Je vais chercher encore, je vais bien finir par y arriver

En tout cas merci de cette réponse

[ero-sennin]

C'est bon, j'ai compris le fonctionnement du CopyRect !
Je me mélangeais les pinceaux entre le TRect de Source et le TRect de Destination

Bonne Soirée

[ero-sennin]

Rebonsoir,

J'ai crié victoire trop vite je pense. J'arrive bien à copier mon image en question, ce qui est déjà pas mal !
Je dessine un rectangle et je le déplace (pour l'instant je le duplique car je n'ai pas encore trouvé le moyen de remplacer la zone initiale par du blanc).

Je me retouve avec 2 rectangles : celui initial et le dupliqué (chose normale pour l'instant vu que je n'ai pas réussi à effacer le rectangle initial).

Lorsque je dessine un Ellipse dans le rectangle initial, et que je me mets en "mode déplacement", mon rectangle 2 se modifie lui aussi alors qu'il ne devrait pas !!!

Bref, je pense que vous comprenez rien, donc le mieux à faire si le coeur vous en dis, c'est de tester par vous même le programme et de voir comment il réagit

Je mets ci dessous mon code et en rouge, les passages qui concerne la "duplication" :

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
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
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;
    SpBtnMove: TSpeedButton;
    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);
    procedure SpBtnMoveClick(Sender: TObject);
  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;
  deplacement : boolean;
  XDeplacement,YDeplacement:integer;
  Zone_Source,Zone_Dest:TRect;

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;
    if (Forme_Dessin='Move')then
    begin
    //Zone_Dessin.canvas.Rectangle(X-(XDeplacement-TabForme[NumeroForme].Point_Depart_Forme_X),Y-(YDeplacement-TabForme[NumeroForme].Point_Depart_Forme_Y),X-(XDeplacement-TabForme[NumeroForme].Point_Depart_Forme_X)+TabForme[NumeroForme].Largeur,Y-(YDeplacement-TabForme[NumeroForme].Point_Depart_Forme_Y)+TabForme[NumeroForme].Hauteur);
    deplacement:=false;
    Zone_Dest:=Rect(X-(XDeplacement-TabForme[NumeroForme].Point_Depart_Forme_X),Y-(YDeplacement-TabForme[NumeroForme].Point_Depart_Forme_Y),X-(XDeplacement-TabForme[NumeroForme].Point_Depart_Forme_X)+TabForme[NumeroForme].Largeur,Y-(YDeplacement-TabForme[NumeroForme].Point_Depart_Forme_Y)+TabForme[NumeroForme].Hauteur);
    Zone_Dessin.Canvas.CopyRect(Zone_Dest,Zone_Dessin.Canvas,Zone_Source);
    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;
deplacement:=false;
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;
if (Forme_Dessin='Move') then
 begin
 if deplacement then
 //canvas.Rectangle(X-(XDeplacement-TabForme[NumeroForme].Point_Depart_Forme_X),Y-(YDeplacement-TabForme[NumeroForme].Point_Depart_Forme_Y),X-(XDeplacement-TabForme[NumeroForme].Point_Depart_Forme_X)+TabForme[NumeroForme].Largeur,Y-(YDeplacement-TabForme[NumeroForme].Point_Depart_Forme_Y)+TabForme[NumeroForme].Hauteur);
 Zone_Dest:=Rect(X-(XDeplacement-TabForme[NumeroForme].Point_Depart_Forme_X),Y-(YDeplacement-TabForme[NumeroForme].Point_Depart_Forme_Y),X-(XDeplacement-TabForme[NumeroForme].Point_Depart_Forme_X)+TabForme[NumeroForme].Largeur,Y-(YDeplacement-TabForme[NumeroForme].Point_Depart_Forme_Y)+TabForme[NumeroForme].Hauteur);
 Canvas.CopyRect(Zone_Dest,Zone_Dessin.Canvas,Zone_Source);
 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
   else
   begin
    if (Forme_Dessin='Move')  then
    begin
    deplacement:=true;
    XDeplacement:=X;
    YDeplacement:=Y;
    Zone_Source:=Rect(TabForme[NumeroForme].Point_Depart_Forme_X,TabForme[NumeroForme].Point_Depart_Forme_Y,TabForme[NumeroForme].Point_Arrive_Forme_X,TabForme[NumeroForme].Point_Arrive_Forme_Y);
    end;
   end;
 end
 else
 ShowMessage('Nombre de forme maximum atteinds');
end;

procedure TFPrincipale.SpBtnMoveClick(Sender: TObject);
begin
Forme_Dessin:='Move';
end;

end.

J'ai passais mon aprem et la soirée à travailler sur le déplacement de ce rectangle et je me débrouiller pas si mal sauf que là, je ne comprends pas du tout ! Si vous pouvez prendre le temps de bien vouloir tester ce bon de programme et de corriger mon (mes) erreur(s) concernant ce déplacement, ce serait vraiment très gentil de votre part!

Désolé pour la longueur du message et de ce que je vous demande, mais ce projet est assez important !

Merci et encore merci

[blondelle]

Pour effacer ton rectangle il faut le redessiner avec la couleur de fond je ne pense pas qu'il y est d'autre solution.

Pour deplacer ton rectangle je recopierais
- 1 le rectangle
- 2 le dessin associe
- 3 effacer dessin ancien emplacement
- 4 effacer rectangle ancien emplacement

Quand tu dessine le rectangle la couleur de fond recouvre ce qui est a l'interieure.

[blondelle]

Un lien sur le Forum BCB Builder.

http://www.developpez.net/forums/sho...light=copyrect

en esperant que cela puisse t'aider

[ero-sennin]

J'arrive bien à copier le rectangle et tout ce qu'il contient mais quand je dessine sur le rectangle que je viens de "déplacé", le rectangle déplacé contient lui aussi le motif que j'ai dessiné dans le rectangle

Je ne sais pas comment m'expliquer autrement, et apparemment peut de personnes se penchent sur mon problème !

Dans le OnMouseDown, je fais ceci :

Code :

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

Zone_Source:=Rect(X1,Y1,X2,Y2);

Dans le OnMouseMouve, je fais ceci :

Code :

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

1
2
Zone_Dest:=Rect(X3,Y3,X4,Y4);
Canvas.CopyRect(Zone_Dest,Zone_Dessin.Canvas,Zone_Source);// Afin de voir sur mon bitmap le déplacement

Dans le OnMouseUp, je fais cela :

Code :

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

1
2
Zone_Dest:=Rect(X3,Y3,X4,Y4);
Zone_Dessin.Canvas.CopyRect(Zone_Dest,Zone_Dessin.Canvas,Zone_Source);

Est ce que pour vous cela est correct?
Merci de votre aide !

[poly128]

Quest que tu veu faire avec ce rectangle?
Veut tu le déplacer avec la souris ou quelque chose comme ca?

[ero-sennin]

Vous connaissez le logiciel DB Designer? c'est pour créer des MEA. En faites, les rectangles représentent des entités et les lignes les relations.

Dans un premier temps, je souhaite pouvoir déplacer mon rectangle (à la souris) d'un endroit à un autre. J'y arrive mais j'ai un problème de "redessinage" du rectangle. Je ne sais pas trop comment expliquer mon problème...

Si tu veux voir l'erreur que cela "marque", envoie moi ton adresse mail en MP et je t'envoie la source et l'exe.

Voilà!
Merci de t'intéressé à ce Post

[poly128]

Tu peut me l'envoyer.

[poly128]

Je ne réussi pas a crée la premiere erreur c'est a dire:

1) Tracé un rectangle n'importe où
2) Cliqué sur le bouton move
3) Cliqué (en restant appuyé) sur le rectangle et le déplacer
4) Tracé une Ellipse sur le Rectangle initial (déjà là, mon "nouveau" rectangle déplacé disparait)


L'erreur que je voit est:

1)Je crée un rectangle.
2)Je le déplace avec move.
3)Je crée une elipse ou un rectangle dans le rectangle initial.
4)Je clic sur move et je passe la souris sur la fiche
Et alors l'élipse et copié dans le deuxieme rectangle.

Est que c'est une erreur ou est que c'est ce que tu veut?

[ero-sennin]

ah oui, tiens c'est bizzard, je n'arrive plus à recréer la première erreur ! Enfin peut m'importe car c'est l'autre qui me dérange le plus.

Donc oui, c'est bien cette erreur là que je n'arrive pas à traiter

[edam]

regarde ici:http://www.phidels.com/php/index.php...2d1e04f431dd96
il vous donne quelque idée,

[edam]

ou :http://www.phidels.com/php/index.php...zip.php3&id=46

[ero-sennin]

Merci pour ce lien edam

Je regarderai ca. Je rencontre encore un truc que je ne comprends pas!
Je crée un Bitmap dans le OnCreate :

Code :

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

1
2
3
4
5
6
7
8
9
10
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;
end;

Dans le OnPaint, j'ai ceci:

Code :

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

1
2
3
4
procedure TFPrincipale.FormPaint(Sender: TObject);
begin
FPrincipale.Canvas.Draw(0,0,Zone_Dessin);
end;

Si je comprends bien, à chaque fois que j'écris sur le Canvas de Zone_Dessin, l'événement OnPaint se charge de redessiner tout le Canvas.

Petit truc que j'ai fait et qui ne fonctionne pas (je trouve pas pourquoi)

Code :

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

1
2
3
4
5
6
7
procedure TFPrincipale.Button1Click(Sender: TObject);
begin
//RedessinerForme(Tableau_Forme,Nbr_Forme);
Zone_Dessin.Canvas.Font.Color:= clRed;
Zone_Dessin.Canvas.TextOut(50,50,'Cool');
FPrincipale.Repaint;
end;

J'arrive pas à comprendre le fonctionne de tous ces Canvas!
Le OnPaint sert à quoi exactement? C'est quoi la différence avec un Refresh et un Repaint?
Oui, désolé si je ne comprends rien, mais plus je cherche à comprendre en lisant l'aide de Delphi, plus j'ai l'impression (et si seulement ce n'était qu'une impression ) de me noyer !

Un petit coup de pouce serait le bienvenue

Merci et bonne soirée

[poly128]

C'est peut etre qu'il manque un begin et un end dans la procedure:

Code :

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

procedure TFPrincipale.FormMouseMove(Sender: TObject; Shift: TShiftState);

Code :

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

1
2
3
4
5
6
7
8
9
if (Forme_Dessin='Move') then
  begin
     if deplacement then
       begin
       ...
       ...
       ...
       end;
  end;

En esperant que c'est ca.

[edam]

j'ai déjà essayé la meme chose sans succée(réfréche,repaint, message m_paint,..)
car pour windows rien ne se passe pour qu'il repaint la forme
fait passé une fiche devant et voir l'effet

[ero-sennin]

Le code que j'ai essayé et qui est simple fonctionnement. Je ne sais pas pourquoi, il n'affichait rien avant (un reboot du PC et c'est reparti).

Rien ne fait que je galère avec mon projet !
Je pense que je vais devoir reprendre tout depuis le début ! Raaa rien que d'y penser ca m'énerve

Maintenant, ce que je cherche à faire, c'est lorsque le clic sur un bouton, c'est de "Repaindre" tous le Bitmap Zone_Dessin en blanc, ou une autre couleur.
J'essaie de passer par le brush, mais rien y fait!

Please

Bonne Soirée (déjà 1h ! Oua, ca défile lol)
Bonne Nuit