Discussion :

[sys1]

Bonjour,
Je crée un jeu style pacman, et j'ai pour ça besoin de couvrir ma Form de "tiles", c'est à dire d'une multitude de petites images qui ont toutes la même dimension et qui servent à délimiter les bords et les couloirs du jeu.

J'ai donc 2 tiles de base, des images au format BMP, puis j'ai essayé de faire en sorte que ce soit le plus simple à coder pour la partie "décor".
J'ai pour l'instant créer des TImages vides sur la Form, et je veux maintenant définir une image pour chacune des Timages.
Dans la mesure où il y a des dizaines de Timages, le travail est trop long pour être fait manuellement.
J'ai donc tenté ceci, avec seulement les 4 premières tiles, histoire de tester:

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
 
...
var level:Array [1..30] of Array [1..40] of Integer;
....
var level1:String=    
'101111111111111111111111111
111100000000000000000000000
......
......
1000011110011111000000000000';
 
procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
  for i := 1 to 4 do
    begin        
        if level1[i]='1' then 
          Form1.findcomponent('Image'+IntToStr(i))as                       Timage.Picture.LoadFromFile(Appdir+'tile.bmp');
        if level1[i]='2' then Form1.FindComponent('Image' + IntToStr(i)) as Timage.Picture.LoadFromFile(Appdir+'tile2.bmp');
    end;
 
end;

Erreur à la compilation : "Property picture inaccessible here"

Je ne comprends pas, j'ai fait la même chose que sur d'autres codes mis en démonstration sur le net...
Merci de m'éclairer!

[tourlourou]

Code :

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

1
2
3
if level1[i]='2' then 
with Form1.FindComponent('Image' + IntToStr(i)) as Timage 
do Picture.LoadFromFile(Appdir+'tile2.bmp');

[guillemouze]

c'est juste un problème de parenthèses :

Code :

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

1
2
3
4
5
6
    begin        
        if level1[i]='1' then 
          (Form1.findcomponent('Image'+IntToStr(i))as                       Timage).Picture.LoadFromFile(Appdir+'tile.bmp');
        if level1[i]='2' then (Form1.FindComponent('Image' + IntToStr(i)) as Timage).Picture.LoadFromFile(Appdir+'tile2.bmp');
    end;

Sinon il essaye d'appeler Picture sur la classe TImage, alors que ce n'est pas une propriete de classe mais d'instance

[sys1]

guillemouze : Merci! Ca marche!!