Bonsoir,
C'est possible une chose pareille ? La proc "Load" est appelée par un bête bouton qui passe le chemin d'un fichier codé en dur, et "img" est un bête TImage :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TForm1.Load(Filename: String); var Picture: TPicture; begin Picture := TPicture.Create; Picture.LoadFromFile(Filename); img.Picture.Assign(Picture); // fonctionne, image affichée Picture.Free end;FPC 2.6.2 Laz 1.4
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 procedure TForm1.Load(Filename: String); var Picture: TPicture; begin Picture := TPicture.Create; Picture.LoadFromFile(Filename); with img do begin Picture.Assign(Picture); // ne fonctionne pas : rien d'affiché end; Picture.Free end;
Merci,
Partager