Discussion :

[Laskar]

Bonjour,

J'ai une form avec un TImage en fond. J'aimerais, à la création de ma fiche, charger et afficher une image (qui se trouve sur le disque). La procédure 'LoadSprite' se lance dans l'évènement 'OnCreate' de ma fiche.
Voici mon code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    img_Fond: TImage;
    b_Quit: TButton;
    procedure b_QuitClick(Sender: TObject);
    procedure LoadSprite(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  Sprite : TBitMap;
 
implementation
 
{$R *.dfm}
 
//--------------------------------------------------
procedure TForm1.b_QuitClick(Sender: TObject);
begin
  Application.Terminate;
end;
 
//---------------------------------------------------
procedure TForm1.LoadSprite(Sender: TObject);
begin
    Sprite := TBitmap.Create;
    Sprite.LoadFromFile('Sprite.bmp');
end;
 
end.

Il doit manquer un truc ... Mon 'sprite' ne s'affiche pas. Pourquoi ?

Merci

[exoseven]

c'est normal que cela ne s'affiche pas, ta zone d'affichage c'est img_fond donc img_fond.picture.loadfromfile(...)

si tu tiens à passer par un TBitmap intermédiaire fais img_fond.Picture.assign(sprite);

n'oublie pas de libérer ton sprite lorsque tu ne t'en sers plus car là a chaque appel à LoadSprite tu as une belle fuite mémoire vue que tu recrées un sprite sans l'avoir libéré

donc au minimum teste si sprite n'existe pas avec un

if not assigned(sprite) then sprite := TBitmap.create;

tu devrais aussi déclarer sprite comme une variable de ta forme cela serait plus propre

[Laskar]

Bin, en fait, j'aimerais que mon sprite s'affiche SUR l'image de fond ...
N'est-il pas possible d'ajouter une image à ma form par programmation ?

[exoseven]

si mais alors tu crées une autre TImage auquel tu donnes le même parent que img_fond un truc dans le genre...

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
procedure TForm1.LoadSprite(Sender: TObject);
begin
 
 if not assigned (sprite) then
 begin
  sprite := TImage.create(self);
  sprite.Parent := img_fond.Parent;
  // sprite.Width  := ... // largeur
  // sprite.Height := ... // hauteur
  sprite.Left   := img_fond.Left + 10;
  sprite.Top   := img_fond.Top + 10;
  sprite.Transparent := true; // si tu veux un fond transparent
 end;
 
 Sprite.picture.LoadFromFile('Sprite.bmp');
end;

donc ton Sprite est un TImage et non pas un TBitmap !

tu peux aussi poser directement ton Sprite sur ton img_form depuis delphi donc tu n'auras pas à le créer par code.

si tu comptes faire un jeu ce genre de techniques n'est pas la plus optimale.