Discussion :

[cuivre]

La question est dans le titre. Merci d'avance!!

[LadyWasky]

Tu charges ton image :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedureTForm1.TailleImage(NomRessource:string;var Largeur,Hauteur:integer);
var
BitMap1 :TBitMap;
begin
BitMap1 :=TBitMap.Create;
try
  BitMap1.LoadFromResourceName(HInstance,NomRessource);
  Largeur:=BitMap1.width; //récupération de la largeur
  Hauteur:=BitMap1.Height; //récupération de la hauteur
finally
  BitMap1.Free;
end;
end;

ou en plus court :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedureTForm1.TailleImage(NomRessource:string;var Largeur,Hauteur:integer);
begin
with TBitMap.Create do
try
  LoadFromResourceName(HInstance,NomRessource);
  Largeur:=Width; //récupération de la largeur
  Hauteur:=Height; //récupération de la hauteur
finally
  Free;
end;
end;

[cuivre]

C'était si simple
Ca marche merci!

[LadyWasky]

C'était si simple
Ca marche merci!

de rien