Bonjour à tous,

Avec le code suivant, ou "Suport" est un Timage, je rencontre un problème :

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
procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  ModifOption(12,arr);
  {position1}
  Nouvellepartie();
end;
 
{...}
 
procedure TForm1.Nouvellepartie();
begin
  {position2}
  Btnpause.Enabled:=true;
  Btnpause.Caption:='Pause';
  Tab1:=CarrayCube.create();
  timer1.Interval:=1000;
  timer1.Enabled:=true;
  nbdeLigne:=0;
 
  Suport.Canvas.Brush.Color:=clDuFond;
  Suport.Canvas.Rectangle(0,0,Suport.width,Suport.height);
 
  haz1 := Random(7);
  NvTetri();
end;
La propriétée width de suport est definie à 360 dans l'inspecteur d'objet.
Si je place la ligne à la position 1, j'obtient un Timage de largeur 360 à l'execution, alors que cette même ligne à la position 2 produit un Timage de largeur 600.
Pourquoi l'instruction n'est elle pas prise en compte dans le premier cas ?

Merci d'avance.