TImage.Width : instruction non prise en compte ?
Bonjour à tous,
Avec le code suivant, ou "Suport" est un Timage, je rencontre un problème :
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
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.
