Discussion :

[madjid90]

salut tt le monde
( je suis un débutant en delphi )
j'ai déclarer JPEG dans "USES" et une variable de type TJpegImage
et :

Code :

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

1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
begin
     image := TJpegImage .Create;
     image.LoadFromFile('expert.jpeg');
     Form1.Canvas.Draw(0,0,image);
end;

mais rien ne s'affiche dans la Forme
help !

[redoran]

Slt, pourquoi ce compliquer la vie , si j'ai compris ton message : alors utilise un timage et dans les propriétés clique sur picture et la tu, importera ton image..
ensuite tu utilise les deux propriétés 1- strech pour que ton image prend la forme du timage et 2-size si je me rappel bien pour que le timage prend la forme de ta fiche..

[Droïde Système7]

Salut,

http://www.developpez.net/forums/d15...er-tjpegimage/

@+

[Andnotor]

Le problème est que le canevas n'est pas maintenu.

Il faut déplacer ton code (Draw) dans l'événement OnPaint pour que ton image soit redessinée à chaque demande de rafaîchissement.

[Droïde Système7]

Code :

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

image := TJpegImage .Create;

J'espère au moins qu'au Destroy, la libération arrive

[madjid90]

Merci Beaucoup Pour Votre Aide
maintenant , l'image s'affiche normalement