Utilisation d'un TImageList

Version imprimable

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:

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:

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.

24/05/2007, 16h57
ShaiLeTroll

Pourquoi ne pas stocker l'index de l'image dans la liste ?
24/05/2007, 17h11
Gouyon

Effectivement c'est une idée mais je prefererais avoir un accès direct à la bitmap pour des questions de rapidité d'affichage
24/05/2007, 17h15
Pedro
Citation:
Envoyé par Gouyon

Code:

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:

1 2 FigBmp{Z, D, ar].Assign(Bmp);
Sinon as-tu essayé de faire directement:
Code:

1 2 ImageList1.GetBitmap(i, FigBmp{Z, D, ar]);
Ca donne quoi?
24/05/2007, 17h29
Gouyon
Citation:
Envoyé par Pedro

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

Code:

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 ?
Citation:
Envoyé par Pedro

Sinon as-tu essayé de faire directement:

Code:

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.

Citation:

Envoyé par Gouyon

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:

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;

24/05/2007, 18h23
Gouyon

Citation:

Envoyé par ShaiLeTroll

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.
24/05/2007, 18h57
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.

J'ai adopté la solution suivante:

Dans la méthode Create de ma Form

Code:

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:

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