salut
j'ai fais une recherche et j'ai trouvé un post interessant :
http://www.developpez.net/forums/vie...&highlight=png
j'ai donc utilisé ceci :
AFFICHAGE DE L'IMAGE - Il suffit d'assigner la propriété Picture d'un TImage pour afficher l'image source :
Code:
...
Image1.AutoSize := True;
Image1.Picture.Assign(png);
...
or j'ai le msg d'erreur qui s'arrête sur mon "Image1.Picture.Assign(png);"
[Erreur] Unit1.pas(119): Types incompatibles : 'TPersistent' et 'TPNGObject'
je pense avoir tout fait
qqun peut m'aider ?
mon doe complet est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TForm1.Button3Click(Sender: TObject); begin png := TPNGObject.Create; png.LoadFromFile('C:\image.png'); Image1.AutoSize := True; Image1.Picture.Assign(png); Image1.Picture.LoadFromFile(png); end;
Partager