Discussion :

[Gouyon]

Salut

Mon problème est le suivant:

J'ai crée un type d'objet qui s'affiche à l'écran en utilisant des Bitmaps en fonction de l'état de l'objet. Mon programme comporte plusieurs objets de ce type qui utilisent les mêmes Bitmaps d'ou l'idée de créer une TImageList avec mes Bitmaps. Par contre j'ai un soucis par rapport à l'attribution des bitmaps à chaque objet:

J'ai écrit le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
V1:=t_vaisseau.Create; //création de l'objet
 
 for i:=0 to 5 do
  begin
   Bmp:=TBitmap.Create;
   ImageList1.GetBitmap(i,Bmp);
   V1.SetBitmap(0,i,0,Bmp); //attribution du bitmap
  end;

avec

Code :

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

1
2
3
4
5
 
procedure T_vaisseau.SetBitmap(Z,D,ar:integer; Bmp:TBitmap);
begin
 FigBmp[Z,D,ar]:=Bmp;
end;

Dans ce code je me demande si je ne vais pas avoir une consomation excecive de mémoire du fait qu'à chaque objet t_vaisseau que je créer j'attribue des Bitmaps qui sont copiées à partir de la TImageList.

J'avais une solution similaire en CBuilder mais j'attribuais un pointeur sur les Bitmaps. Solution que je n'arrive pas bien à reconduire ici.

[ShaiLeTroll]

Pourquoi ne pas stocker l'index de l'image dans la liste ?

[Gouyon]

Effectivement c'est une idée mais je prefererais avoir un accès direct à la bitmap pour des questions de rapidité d'affichage

[ShaiLeTroll]

Effectivement c'est une idée mais je prefererais avoir un accès direct à la bitmap pour des questions de rapidité d'affichage

sinon, il suffit d'étudier le code de la TImageList, et l'on constate que c'est une copie ... ensuite, en fait ton Image List ne te sert donc à rien ... autant mettre les Images dans des Fichiers, qui seront chargés au démarrage du jeu, et avec une TObjectList tu manipule directement les TBitMap, ensuite stocker l'index ou une référence sur l'objet cela ne changera pas grand chose ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function TCustomImageList.GetBitmap(Index: Integer; Image: TBitmap): Boolean;
begin
  Result := (Image <> nil) and HandleAllocated and (Index > -1) and (Index < Count);
  if Result then
    with Image do
    begin
      Height := FHeight;
      Width := FWidth;
      Draw(Canvas, 0, 0, Index);
    end;
end;

[Gouyon]

sinon, il suffit d'étudier le code de la TImageList, et l'on constate que c'est une copie ... ensuite, en fait ton Image List ne te sert donc à rien ... autant mettre les Images dans des Fichiers, qui seront chargés au démarrage du jeu, et avec une TObjectList tu manipule directement les TBitMap, ensuite stocker l'index ou une référence sur l'objet cela ne changera pas grand chose ...

Effectivement j'étais arrivé à une conclusion identique mais je voulais en être bien sur. Je pense que je vais suivre ta suggestion et utiliser un TObjectList.

[Sub0]

Avec une TImageList, il faut que toutes les images aient les mêmes dimensions. Il vaut mieux utiliser un tableau dynamique :
http://pascal.developpez.com/cours/artdynarr/

[EDIT] Ce sujet pourrait peut-être te servir ...
http://www.developpez.net/forums/showthread.php?t=52438
Pour les jeux, je conseille DelphiX car bien plus rapide.

[Pedro]

Code :

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

1
2
3
4
5
 
procedure T_vaisseau.SetBitmap(Z,D,ar:integer; Bmp:TBitmap);
begin
 FigBmp[Z,D,ar]:=Bmp;
end;

les Bitmaps de FigBmp sont-ils créés? Si non laisse tel quel si oui, utilise Assign:

Code :

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

1
2
 
FigBmp{Z, D, ar].Assign(Bmp);

Sinon as-tu essayé de faire directement:

Code :

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

1
2
 
ImageList1.GetBitmap(i, FigBmp{Z, D, ar]);

Ca donne quoi?

[Gouyon]

les Bitmaps de FigBmp sont-ils créés? Si non laisse tel quel si oui, utilise Assign:

Code :

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

1
2
 
FigBmp[Z, D, ar].Assign(Bmp);

Non les FigBmp ne sont pas crées donc je laisse tel quel.
Est ce que ça veut dire que mes variables FigBmp vont pointer sur le TBitmap Bmp ou bien que Bmp est copié dans FigBmp ?

Sinon as-tu essayé de faire directement:

Code :

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

1
2
 
ImageList1.GetBitmap(i, FigBmp[Z, D, ar]);

C'est ca que j'avais fait dans un premeir temps mais ça m'obliger à créer un FigBmp pour chaque objet ce que je veux éviter.

[Gouyon]

J'ai adopté la solution suivante:

Dans la méthode Create de ma Form

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
 
 
    ListeFigurines := TList.Create;
    BmpProv := TBitmap.Create;
    BmpProv.LoadFromFile(NomFichier);
    Ro.Left := 0;
    Ro.Top := 0;
    Ro.Right := HexW[z];
    Ro.Bottom := HexH[z];
    for dir := 0 to 5 do
      begin
        Bmp := TBitmap.Create;
        Bmp.Transparent := true;
        Bmp.TransparentColor := RGB(255, 0, 255);
        Bmp.TransparentMode := tmFixed;
        Bmp.Width := HexW[z];
        Bmp.Height := HexH[z];
        Bmp.Canvas.CopyRect(Bmp.Canvas.ClipRect, BmpProv.Canvas, Ro);
        Ro.Left := Ro.Left + HexW[z];
        Ro.Right := Ro.Right + HexW[z];
        ListeFigurines.Add(Bmp);
      end;
    BmpProv.Free;

Dans mon 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
 
//dans la déclaration de l'objet 
FigBmp: array[ 0..5] of TBitmap;
 
//attributions des bitmaps
procedure T_vaisseau.SetBitmap( Liste: TList);
var
  i: integer;
begin
    for i := 0 to 5 do
    begin
      FigBmp[ i] := Liste.Items[i];    
    end;
end;

Ca marche bien.

A propos je pense que ça serait bien que ce genre de solution figure dans la FAQ