Forcer les dimensions d'une image
bonjour,
j'ai écrit ce code
Code:
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
|
try
Image1.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'photo-timbre/' + enregcollec.photo);
//cacul du ratio image pour l'affichage
hauteur:=Image1.Picture.Height;
largeur:=Image1.Picture.Width;
if (largeur>210) xor (hauteur>210) then
begin
if largeur>hauteur then
begin
ratio:=largeur/210;
hauteur:=hauteur/ratio;
largeur:=210;
end;
if largeur<hauteur then
begin
ratio:=hauteur/210;
largeur:=largeur/ratio;
hauteur:=210;
end;
end;
Image1.Picture.Height:=hauteur;
Image1.Picture.Width:=largeur;
//affichage image
//Image1.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'photo-timbre/' + enregcollec.photo);
except
Image1.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'photo-timbre/0000.bmp');
end; //fin try |
Mon problème c'est que je n'arrive pas donner les nouvelles valeurs de hauteur et largeur
sur cette ligne "Image1.Picture.Height:=hauteur;" j'ai une erreur : affectation impossible à une propriété en lecture seule.
Merci de votre aide
