Discussion :

[F.F.]

salut,
j'essaie de faire une visionneuse,
quand je la selctionne l'image s'affiche bien, mais je n'arrives pas faire en sorte que rien ne soit affiché losrque je supprime l'image...
si quelqu'un pourrait essayer de m'eclairer...

voila une partie du code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
        {
        ListeFichiers = new TStringList ;
        }
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)     //bouton ajouter
    {
     OpenDialog1->Title = "ouverture de fichier";
     if (OpenDialog1->Execute())
         {
         int index;
            ListeFichiers->Sort(); //find ne marche que sur les listes triées
        if (ListeFichiers->Find((OpenDialog1->Files)->Strings[0],index))
               {
                  Application->MessageBox("Ce fichier existe deja", NULL, MB_OKCANCEL) ;
                }
           else
                {
                ListeFichiers->Add((OpenDialog1->Files)->Strings[0]);
                CreationListe();
                }
          }
    }
//---------------------------------------------------------------------------
 
void TForm1::CreationListe()     //sert a remplir liste fichier
{
    for (int i = ListBox1->Items->Count - 1; i >= 0 ; i--)
        {                                      //retire les elements de listbox
             ListBox1->Items->Delete(i);
        }
    int ImagePosition = 10;
 
    for (int i=0; i<ListeFichiers->Count; i++)
            {             //mets les elements de liste fichiers dans la listbox1
 
        AnsiString Extension = ExtractFileExt(ListeFichiers->Strings[i]).LowerCase();
        TImage *Image = Image1;
        Image->Top = ImagePosition;
        Image->Left = 10;
             if (Extension==".bmp")                     //si c'est un .bmp
                     {
                Image->Picture->LoadFromFile(ListeFichiers->Strings[i]);
                     }
ListBox1->Items->Add(ExtractFileName(ListeFichiers->Strings[i]));  //ajoute nom dans listbox1
             }
}
void __fastcall TForm1::Button2Click(TObject *Sender)         //bouton supprimer
{
for (int i = ListBox1->Items->Count - 1; i >= 0 ; i--)
    {
        if (ListBox1->Selected[i])
            {
             ListeFichiers->Delete(i);
             ListBox1->Items->Delete(i);
             Label1->Caption="";
             ListBox2->Items->Delete(i);// vider listbox2
             Image1->Refresh();
             }               
    }
}

les images sont affichés dans liste 2

[ourk]

As tu essayé en faisant un refresh de la listbox et pas seulement de l'image ?

[F.F.]

ca change rien, l'image persiste, mais je n'y avais pas pensé...

[bartak]

Salut, il est normal que l'image persiste car la suppression dans ta listbox n'entraîne en rien la libération de l'image chargée en mémoire par le TImage.

La méthode Refresh redessine donc l'image contenue en mémoire.

il faut que tu utilises l'instruction suivante pour libérer l'image

Code :

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

1
2
 
Image1->Picture->Bitmap->FreeImage();

De plus, pour vider une list box tu peux utiliser

Code :

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

ListBox1->Clear()

A+

[F.F.]

arf, j'y croyais en plus mais elle veut pas partir...
au pire je vais faire un bitmap vide pour le charger
mais bon ca le fait pas...

[bartak]

Cela suffit pour une image jpeg mais pas pour du BMP.

Inscrit cette séquence à l'endroit de la suppression de l'image et cela devrait fonctionner cette fois-ci:

Code :

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

1
2
3
    Image1->Picture->Bitmap->FreeImage();
    Image1->Picture->Bitmap->ReleaseHandle();
    Image1->Refresh();

A+

[F.F.]

hourra elle a disparu ! !
sinon j'avais carrément fais ca :

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
 
void __fastcall TForm1::Button2Click(TObject *Sender)         //supprimer
{
for (int i = ListBox1->Items->Count - 1; i >= 0 ; i--)
    {
        if (ListBox1->Selected[i])
            {
             ListeFichiers->Delete(i);
             ListBox1->Items->Delete(i);
             Label1->Caption="";
             TImage *Image = Image1;
             Image->Parent = ListBox1;
 
             }               //trouver vider listbox2
    }
}

mais ta méthode est plus propre je trouve, je te remercie