Discussion :

[Jipété]

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;

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;

FPC 2.6.2 Laz 1.4

Merci,

[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 ?

[Jipété]

Salut salut,

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,

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

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
  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,