With objet do ne fonctionne pas avec TImage

Version imprimable

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:

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;

Code:

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;

FPC 2.6.2 Laz 1.4

Merci,

17/11/2016, 01h08
Roland Chastain

Bonsoir Jipété ! Je pense que si tu relis ton code demain à tête reposée le problème te sautera aux yeux. ;)

Indice : que représente le mot Picture dans ton code ?

Salut salut,

Citation:

Envoyé par Roland Chastain

Bonsoir Jipété ! Je pense que si tu relis ton code demain à tête reposée le problème te sautera aux yeux. ;)

Indice : que représente le mot Picture dans ton code ?

Proverbe : c'est quand on a le nez dessus qu'on ne voit plus ce qu'on regarde, :ptdr:

Bien vu, Roland ! C'est le cas de le dire. Et merci pour l'indice :ccool:
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Load(Filename: String); var Pict: TPicture; // /!\ begin Pict := TPicture.Create; Pict.LoadFromFile(Filename); with img do begin Picture.Assign(Pict); // fonctionne très bien grâce à Roland end; Pict.Free end;
L'erreur d'origine est dans ce post, ah, les méfaits du copier/coller à pas d'heure...
Bonne journée, grand merci,