Discussion :

[Sabrina_of_darkness]

Bonjour,

Je travaille sous delphi, je voulais savoir comment tester si l'objet TImage contient une image, voilà mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TAutoFlash.Image1Click(Sender: TObject);
begin
If Image1.Picture=nil then
showmessage('Vide') else showmessage('Plein');
end;

mais le problème, même si le TImage contient une image, il me m'affiche "Vide"
y a peut être quelque chose qui m'a échappé, si quelqu'un a une idée, merci de me renseigner

[ShaiLeTroll]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If (Image1.Picture = nil) or (Image1.Picture.Graphic = nil) or (Image1.Picture.Graphic.Empty)  then
  showmessage('Vide') 
else
  showmessage('Plein');

Si ça fonctionne pas, essaye de lire les dimensions du Canvas

[Sabrina_of_darkness]

Merci ça marche nikel.... je suis contente!