Discussion :

[colorid]

Bonjour,

Mon problème est de traçer un rectangle de sélection sur un TImage.
J'ai trouvé des routines qui utilisent des fonctions Windows telles que :

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
 
procedure TForm1.RemoveTheRect;
var
  R : TRect;
begin
  R := NormalizeRect(Rect(MaskRect.TopLeft.X,MaskRect.TopLeft.Y,MaskRect.BottomRight.X,MaskRect.BottomRight.Y));  // Rectangle might be flipped
  InflateRect(R,1,1);                     // Make the rectangle 1 pixel larger
  InvalidateRect(Handle,@R,True);         // Mark the area as invalid
  InflateRect(R,-2,-2);                   // Now shrink the rectangle 2 pixels
  ValidateRect(Handle,@R);                // And validate this new rectangle.
  // This leaves a 2 pixel band all the way around
  // the rectangle that will be erased & redrawn
  UpdateWindow(Handle);
end;
 
procedure TForm1.DrawTheRect;
begin
  // Determines starting pixel color of Rect
  Counter := CounterStart;
  // Use LineDDA to draw each of the 4 edges of the rectangle
  LineDDA(MaskRect.TopLeft.X,MaskRect.TopLeft.Y,MaskRect.BottomRight.X,MaskRect.TopLeft.Y,@MovingDots,LongInt(Canvas));
  LineDDA(MaskRect.BottomRight.X,MaskRect.TopLeft.Y,MaskRect.BottomRight.X,MaskRect.BottomRight.Y,@MovingDots,LongInt(Canvas));
  LineDDA(MaskRect.BottomRight.X,MaskRect.BottomRight.Y,MaskRect.TopLeft.X,MaskRect.BottomRight.Y,@MovingDots,LongInt(Canvas));
  LineDDA(MaskRect.TopLeft.X,MaskRect.BottomRight.Y,MaskRect.TopLeft.X,MaskRect.TopLeft.Y,@MovingDots,LongInt(Canvas));
end;

Ces routines sont appelées à partir des évenements OnMouseDown et OnMouseMove d'un TImge

Le problème est simple :

Si TImage se trouve directement sur TForm cette routine marche sans problème.

Si TImage se trouve sur un TPanel lui même sur TForm elle ne marche plus !

Quelqu'un sait-il pourquoi ?

[ShaiLeTroll]

Cela ne fonctionne donc jamais, puisque tu as toujours un TForm, derrière ...

Sinon, si tu dois faire un Rectangle de selection, pourquoi ne pas superposer deux Timages l'un sur l'autre, en transparence ... je sais c'est moyen, mais cela évite de modifier l'autre image, et de devoir gérer un XOR sur le trait de selection ...

[colorid]

Quand tu dis "Cela ne fonctionne donc jamais..." c'est pas tout à fait vrai puisque ca marche sans le TPanel entre le TImage et le TForm.

Dans l'application que je développe le TPanel est incontournable !

N'y a t'il vraiment pas moyen de faire fonctionner cette routine sur un TImage qui se trouve sur un TPanel lui-même sur un TForm ?

[ShaiLeTroll]

Oups, j'ai mal lu, ...

En fait, tu manipule la forme en direct avec

Code :

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

InvalidateRect(Handle, ...)

c'est le Handle de la fenêtre, remplace cela par

Code :

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

InvalidateRect(Image.Parent.Handle)

de même pour

Code :

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

..., LongInt(Canvas));

c'est comme faire

Code :

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

..., LongInt(Self.Canvas));

ou

Code :

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

..., LongInt(Form1.Canvas));

remplace par

Code :

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

..., LongInt(Image.Canvas));

parfois, je me demande si le Self implicite n'est pas une difficulté pour la compréhension ...

[colorid]

Le rectangle se dessine mais ne s'efface pas ! = > Clignotement et sétie de rectangles les uns dans les autres

Voici le source de l'effacement

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 TForm1.RemoveTheRect;
var
  R : TRect;
begin
  R := NormalizeRect(Rect(MaskRect.TopLeft.X,MaskRect.TopLeft.Y,MaskRect.BottomRight.X,MaskRect.BottomRight.Y));  // Rectangle might be flipped
  InflateRect(R,1,1);                     // Make the rectangle 1 pixel larger
  InvalidateRect(Image1.Parent.Handle,@R,True);         // Mark the area as invalid
  InflateRect(R,-2,-2);                   // Now shrink the rectangle 2 pixels
  ValidateRect(Image1.Parent.Handle,@R);                // And validate this new rectangle.
  // This leaves a 2 pixel band all the way around
  // the rectangle that will be erased & redrawn
  UpdateWindow(Image1.Parent.Handle);
end;

Qu'est-ce qui cloche ?

[Archimède]

c'est bien compliqué pour un simple rectangle sur un Timage...
Dessine ton rectangle à la souris dans le canvas d'un bitmap et utilise copymode pour combiner le canvas de ton timage avec celui du bitmap.
j'avais répondu à l'équivaent d'un stabilo jaune sur un timage avec un post il y a quelque temps. Le principe est le même...
fais une recherche...

[Archimède]

voici le lien: http://www.developpez.net/forums/sho...d.php?t=444110

[Gilbert Geyer]

Bonjour,

Tu peux trouver ici : http://www.developpez.net/forums/sho...71#post2980971
dans mon message d'aujourd'hui (22/02/2008, 12h46) un code allégé qui permet de tracer/effacer un Rectangle de sélection dans le canvas d'un TImage.

A+