Discussion :

[Bleys]

Bonsoir tout le monde,

Ma question est tout bête et je pense que la réponse aussi mais je n'ai pas réussi à la trouver seul.
Soit un Timage sur une forme, disons Image1.
Si une première fois je fais :

Code :

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

1
2
3
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.Pen.Color:=clBlack;
Image1.Canvas.Rectangle(0,0,100,100);

et que par la suite je redessine un nouveau rectangle (enfin carré ...) comme ceci :

Code :

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

Image1.Canvas.Rectangle(20,20,150,150);

là où mes deux rectangles se croisent, c'est en fait le dernier dessiné qui prend le dessus ... et ça m'efface toute la partie contenu dans mon nouveau dessin ... or moi je voudrais pouvoir voir mes deux carrés totalement sans soucis ...

D'une façon représentative (mais non fonctionnelle évidemment) ce que je voudrais pouvoir faire en gros c'est :

Code :

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

Image1.Canvas.Brush.Color:=Transparent;

Par avance Merci pour votre aide

[philnext]

Ce n'est pas très clair : tu voudrais voir quoi à l'intersection de tes 2 carrés ?

[Bleys]

Bonsoir,

En gros voila tout en image :


le carré 1 + la bordure en bleu est le premier carré dessiné ...

le carré nommé 2 est le deuxième dessiné sauf que à sa création, les traits que j'ai représenté en bleus du carré 1 disparaissent ... Or moi j'aimerais que ces derniers persistent ... Comment faire ?



quoiqu'il en soit merci de m'aider

[Fabrice ROUXEL 1]

Bonsoir

Voici la solution:

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
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids, DBGrids, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Image1.Canvas.Brush.Color:=clWhite;
  Image1.Canvas.Pen.Color:=clBlack;
  Image1.Canvas.Pen.Mode := pmMask;
  Image1.Canvas.Rectangle(0,0,100,100);
  Image1.Canvas.Rectangle(20,20,150,150);
end;

end.

[Bleys]

Merci beaucoup,

je fais confiance je clos immédiatement et je test


Merci encore

[LadyWasky]

Sinon tu avais aussi Canvas.FrameRect() au lieu de Canvas.Rectangle()

[Bleys]

Sinon tu avais aussi Canvas.FrameRect() au lieu de Canvas.Rectangle()

Merci pour l'info mais ce qu'il y a c'est que pour l'exemple j'avais prit des rectangles mais en réalité ça peut également être des cercles .... à moins qu'il existe FrameEllipse .... ^^

Merci tout de même pour l'info c'est toujorus bon a prendre