bonjour,

j'ai écrit ce 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
 
 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