Bonjour à toutes et à tous,
Reprenant une ancienne source pour une petite application personnelle, je cale sur le remplacement d'un TopenDialog (Bdimage) par les items de TListBox qui s'affichent un par un dans un Timage.
Le TopenDialog est repris souvent dans la conversion des formats.
Voici le code :
Si quelqu'un a une idée, merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 if not Bdimage.Execute then exit else begin { initialisation } BMPLoaded := false; { recuperation de l'extention } Ext := LowerCase(ExtractFileExt(Bdimage.FileName)); { creation du bitmap temporaire } BMP := TBitmap.Create; JPGBis := TJPegImage.create; try { si c'est un jpeg } if (ext = '.jpg') or (ext ='.jpeg') then begin { creation d'une image jpeg } JPG := TJPegImage.Create; try { charge a partir du fichier } JPG.LoadFromFile(Bdimage.FileName); { convertion JPG > BMP } ..
@+,
cincap
Partager