Discussion :

[qi130]

Afin de dessiner des rectangles, j'utilise un TImage inscrit dans une Scrollbox.

Code :

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

1
2
3
4
point:=Im.ScreenToClient(Mouse.CursorPos);
Im.Canvas.Brush.Color:=clYellow;
Im.Canvas.Pen.Color:=clRed;
Im.Canvas.Rectangle(point.X,point.Y,point.X+100,point.Y+80);

hors, si point.X+100 est supérieur à l'image, il me manque un bout du dessin

Pour éviter ça, je retaille l'image:

Code :

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

1
2
3
4
if Im.Width<point.X+110 then begin
   Im.Width:=Max(Im.Width,point.X+110);
   Im.Height:=Max(Im.Height,point.Y+90);
end;

Je constate que l'image est redimensionnée, mais le rectangle est toujours incomplet (malgré Refresh/Repaint de l'image)

Donc, le pb doit venir du TCanvas qui ne "s'étend" pas (?)

Comment faire pour retailler le TCanvas aux dimensions du TImage ?

[neilbgr]

Il faudrait plutot jouer avec le canvas du bitmap au lieu du canvas du TImage.

Avec ce code, il me semble que cela donne l'effet escompté :

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
procedure TForm1.ImMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with Im.Picture.Bitmap do
    begin
      with ScreenToClient(Mouse.CursorPos) do
        begin
          Canvas.Brush.Color:=clWhite;
          if Width<X+100 then
            Width := X+100;
          if Height<Y+80 then
            Height := Y+80;
          Canvas.Brush.Color:=clYellow;
          Canvas.Pen.Color:=clRed;
          Canvas.Rectangle(X,Y,X+100,Y+80);
        end;
 
    end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  with Im, Picture.Bitmap do
    begin
      AutoSize := True;
      Width := 500;
      Height := 500;
    end;
end;

[qi130]

Ouep, sauf que je n'ai pas de Picture, juste le TImage...

Je m'inspire d'un tuto Developpez ("Le graphisme"), mais l'inspiration n'est peut-être pas bonne par rapport à mes ambitions :http://www.developpez.net/forums/sho...d.php?t=129764

[Pedro]

Picture est une propriété de TImage...

[qi130]

Quel je fais...

[qi130]

Après quelques tâtonements supplémentaires, voici ce qui répond complètement à ma problématique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
point:=Im.ScreenToClient(Mouse.CursorPos);
Im.Width:=Max(Im.Width,point.X+110);
Im.Height:=Max(Im.Height,point.Y+90);
with Im.Picture.Bitmap do begin
  with ScreenToClient(Mouse.CursorPos) do begin
     Canvas.Brush.Color:=clWhite;
     Width := Im.Width;
     Height := Im.Height;
     Canvas.Brush.Color:=clYellow;
     Canvas.Pen.Color:=clRed;
     Canvas.Rectangle(point.X,point.Y,point.X+100,point.Y+80);
  end;

Merci de vos tuyaux