Discussion :

[Ben_Le_Cool]

Bonjour,

Voici un petit code pour montrer le proleme que j'ai:

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
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ScrollBox1: TScrollBox;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Width :=  Image1.Width + 100;
  Image1.Canvas.Rectangle(0,0,Image1.Width-1, Image1.Height);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Width :=  Image1.Width - 100;
  Image1.Canvas.Rectangle(0,0,Image1.Width-1, Image1.Height);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Width := 0;
end;

Le probleme c'est qu'en augmentant la taille de l'image une 2eme fois, j'ai l'impression que la taille de mon canvas ne change pas.

[ShaiLeTroll]

Je pense effectivement, que lors du 1er Rectangle cela alloue l'objet Bitmap qui n'existait pas avant (via l'accesseur TImage.Picture.Canvas qui doit par défaut créer un objet Bitmap)
Lors du 2nd Rectangle, comme l'objet Bitmap existe, il ne le récréé pas !

Force comme ceci

Code :

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

1
2
Image1.Width :=  Image1.Width + 100;
Image1.Picture.Bitmap.Width :=  Image1.Width;

// l'accesseur Bitmap va créer l'objet la 1ère fois, et l'accesseur de Width va le réallouer pour effectuer le changement de taille !
Ne pas confondre TImage.Width et TBitmap.Width, ces deux propriétés sont indépendante à la base !

[Ben_Le_Cool]

Je pense effectivement, que lors du 1er Rectangle cela alloue l'objet Bitmap qui n'existait pas avant (via l'accesseur TImage.Picture.Canvas qui doit par défaut créer un objet Bitmap)
Lors du 2nd Rectangle, comme l'objet Bitmap existe, il ne le récréé pas !

Force comme ceci

Code :

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

1
2
Image1.Width :=  Image1.Width + 100;
Image1.Picture.Bitmap.Width :=  Image1.Width;

// l'accesseur Bitmap va créer l'objet la 1ère fois, et l'accesseur de Width va le réallouer pour effectuer le changement de taille !
Ne pas confondre TImage.Width et TBitmap.Width, ces deux propriétés sont indépendante à la base !

Merci cher Troll!! Ca marche bien