La question est dans le titre. Merci d'avance!!
La question est dans le titre. Merci d'avance!!
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;
Bidouilleuse Delphi
de rienEnvoyé par cuivre
Bidouilleuse Delphi
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager