Bonjour à tous,
Avec le code suivant, ou "Suport" est un Timage, je rencontre un problème :
La propriétée width de suport est definie à 360 dans l'inspecteur d'objet.
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;
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part suport.Width:=600;
Pourquoi l'instruction n'est elle pas prise en compte dans le premier cas ?
Merci d'avance.
Partager