Graphisme rectangle de sélection sur TImage

Version imprimable

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:

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 ?

21/02/2008, 15h16
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 ...
21/02/2008, 15h35
colorid

J'avoue ne pas comprendre

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 ?
21/02/2008, 17h32
ShaiLeTroll

Oups, j'ai mal lu, ...

En fait, tu manipule la forme en direct avec

Code:

InvalidateRect(Handle, ...)

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

Code:

InvalidateRect(Image.Parent.Handle)

de même pour

Code:

..., LongInt(Canvas));

c'est comme faire

Code:

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

ou

Code:

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

remplace par

Code:

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

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

Ca ne marcha pas tout à fait correctement

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:

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 ?

21/02/2008, 18h42
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...
21/02/2008, 18h59
Archimède

voici le lien: http://www.developpez.net/forums/sho...d.php?t=444110
22/02/2008, 12h59
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+ :D