bonjour,
j'ai écrit ce code
Mon problème c'est que je n'arrive pas donner les nouvelles valeurs de hauteur et largeur
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
sur cette ligne "Image1.Picture.Height:=hauteur;" j'ai une erreur : affectation impossible à une propriété en lecture seule.
Merci de votre aide
Partager