Discussion :

[FOCUS77]

Bonjour à tous

On veut manipuler l'affichage d'un paquet d'images de types quelconques.(On doit d'abord télécharger et installer le pack Graphics32 depuis sourceforge).

Sur une fiche on ajoute:
-Un composant bitmap32List1
-Une image32_1 qu'on nomme image32.
-Trois boutons qu'on nomme respectivement: Suivant,Precedent et ImageNum.
-Un composant Edit1 qu'on mets son text à 0.

On clique sur Bitmap32List1, et on ajoute trois items: (Vous pouvez ajouter autant que vous voulez).
On implémente le bitmap de chaque item par une image (de votre choix).

On clique sur Image32, et on attribue une même valeur 400 (p.ex) à ses quatre Constraints,
et smStretch à ScaleMode. // afin de garantir l'uniformité des apparences de toutes les images.
finalement, on ajoute les codes suivants.

1-Déclaration de la variable i.

Code :

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

1
2
3
var
  Form1: TForm1;
  i:integer; //public: pour faire un lien entre les deux codes:SuivantClick(Sender: TObject) et precedentClick(Sender: TObject);

2-Initialisation de i.

Code :

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

1
2
3
4
procedure TForm1.FormActivate(Sender: TObject);
begin
  i:=0; //Initialisation de i avec chaque activation de Form1.
end;

3-Afficher l'image Num n.
Pour afficher l'image Num n, on édite n dans Edit1 puis on clique sur le bouton ImageNum.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.ImageNumClick(Sender: TObject);
begin
  i:=StrToInt(Edit1.Text) ;
  if i<0 then
   Begin i:=0; Edit1.Text:='0' end;
 
 if i>2 then
   Begin i:=2; Edit1.Text:='2' end ;
  image32.Bitmap.Assign(Bitmap32List1.Bitmap[i])  ;
end;

4-Avancer d'une image:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.SuivantClick(Sender: TObject);
begin
  image32.Bitmap.Assign(Bitmap32List1.Bitmap[i])  ;
  if i<2 then
   i:=i+1
   else
   i:=0;
end;

5-Reculer d'une image:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.precedentClick(Sender: TObject);
begin
 image32.Bitmap.Assign(Bitmap32List1.Bitmap[i])  ;
  if i>0 then
   i:=i-1
   else
   i:=2;
end;

NB: Si le nombre Max des Items est 5 (p.ex), vous devez remplacer 2 par 5 dans les codes précédents.

J'ai ajouté un opendialog1 à ma fiche, et j'ai implémenté un bouton Ajouter qui ajoute des items (en mode RunTime), cependant,
une fois l'application est ré-exécutée, ces items disparaissent
ya t-il un moyen de les sauvegarder d'une façon permanente?

Code :

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

1
2
3
4
5
6
procedure TForm2.AjouterClick(Sender: TObject);
begin
      if not opendialog1.Execute then
  Bitmap32list1.Bitmaps.Create(Opendialog1,TBitmap32Item) ;
  Bitmap32list1.Bitmaps.Add.Bitmap.LoadFromFile(OpenDialog1.FileName) ;
end;

merci à tous.

[Roland Chastain]

Bonjour !

Y a-t-il un moyen de les sauvegarder d'une façon permanente ?

Vous pourriez mettre les noms des images dans un fichier (un fichier INI par exemple) que l'application lirait à chaque fois qu'elle s'exécute. Les images seraient alors ajoutées à la liste.

Autre possibilité: mettre toutes vos images dans un même dossier. Lorsqu'elle s'exécute, l'application fouille dans ce dossier et charge toutes les images qu'elle y trouve.

[FOCUS77]

Bonjour Roland

J'aimerai bien vous proposer cette méthode.
Dans le dossier 'C:/Images', j'ai placé des images de type PNG appelées: Image1, Image2, Image3......Imagen. (n<=100).
et j'ai ajouté les codes suivants:

Code :

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

1
2
3
var
  Form1: TForm1;
  i,max:integer;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormCreate(Sender: TObject);
  var i:integer;str:String;
  begin
    i:=1;max:=0;
    For i:=1 to 100 do
    try
     Str:='C:/Images/Image'+IntTostr(i)+'.png';
     Bitmap32list1.Bitmaps.Add.Bitmap.LoadFromFile(Str) ;
     max:=max+1
    except
      Abort
    end;
  end;

Comme j'ai modifié les codes précédents:

1-Avancer d'une image:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.SuivantClick(Sender: TObject);
begin
  if i< max then
   begin
  image32.Bitmap.Assign(Bitmap32List1.Bitmap[i])  ;
  Edit1.Text:=Inttostr(i);
   i:=i+1;
   end
   else
   i:=0;
   end;

2-Reculer d'une image:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.precedentClick(Sender: TObject);
begin
  if i>0 then
   begin
  image32.Bitmap.Assign(Bitmap32List1.Bitmap[i])  ;
  Edit1.Text:=Inttostr(i) ;
   i:=i-1;
   end
   else
   i:=Max-1;
end;

3- Afficher l'image Num n:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.ImageNumClick(Sender: TObject);
begin
  i:=StrToInt(Edit1.Text) ;
  if i<0 then
   Begin i:=0; Edit1.Text:='0' end;
  if i>=max then
   Begin i:=max-1; Edit1.Text:=inttostr(max-1) end ;
  image32.Bitmap.Assign(Bitmap32List1.Bitmap[i])  ;
end;

merci pour votre aide.

[Roland Chastain]

Oui, cette méthode fonctionne. Mais on pourrait imaginer une méthode moins rigide, par exemple en utilisant la fonction FindAllFiles() de l'unité FileUtil. Voici un exemple rapide pour montrer le principe :

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
var
  Form1: TForm1;
  gIndex: integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := 'C:\Users\Roland\Pictures\';
  gIndex := 0;
end;
 
procedure TForm1.ButtonLoadPicturesClick(Sender: TObject);
var
  list: TStringList;
  i: integer;
begin
  list := FindAllFiles(Edit1.Text, '*.bmp;*.jpg;*.png', FALSE);
  Label1.Caption := Format('%d images trouvées', [list.Count]);
  for i := 0 to list.Count - 1 do
    Bitmap32List1.Bitmaps.Add.Bitmap.LoadFromFile(list.Strings[i]);
  list.Free;
end;
 
procedure TForm1.ButtonShowNextPictureClick(Sender: TObject);
begin
  Image32_1.Bitmap.Assign(Bitmap32List1.Bitmap[gIndex]);
  gIndex := (gIndex + 1) mod Bitmap32List1.Bitmaps.Count;
end;

En tout cas merci pour votre contribution, qui m'a permis de découvrir la bibliothèque Graphics32, que je ne connaissais pas et qui semble valoir le détour. L'exemple Sprites est impressionnant !

[FOCUS77]

Bonsoir Roland

A vrai dire, votre méthode est parfaite mais surtout pratique.

merci infiniment.
Cependant la combinaison entre les 2 méthodes à généré une meilleure méthode dont voici les codes:

1-Déclaration

Code :

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

1
2
3
var
  Form1: TForm1;
 indexp,indexv,indexr:integer;

2-Initialisation

Code :

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

1
2
3
4
5
6
procedure TForm1.FormCreate(Sender: TObject);
  begin
  Edit1.Text := 'C:\Images\';
  indexv := 0;
  indexr:=0;
  end;

3-Chargement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.chargementClick(Sender: TObject);
  var
    list: TStringList;
    i: integer;
  begin
    list := FindAllFiles(Edit1.Text, '*.bmp;*.jpg;*.png', FALSE);
    Label1.Caption := Format('%d images trouvées', [list.Count]);
    for i := 0 to list.Count - 1 do
      Bitmap32List1.Bitmaps.Add.Bitmap.LoadFromFile(list.Strings[i]);
    list.Free;
  end;

4-Avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.suivanteClick(Sender: TObject);
begin
  Image32.Bitmap.Assign(Bitmap32List1.Bitmap[indexv]);
  indexv := (indexv + 1) mod Bitmap32List1.Bitmaps.Count;
  if indexv=0 then
  edit2.Text:=IntToStr(Bitmap32List1.Bitmaps.Count-1)
  else
  edit2.Text:=IntToStr(indexv-1) ;
  indexr:=indexv-2;
  if indexr<0 then
   indexr:=0;
end;

5-Recul

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.precedenteClick(Sender: TObject);
begin
  try
  Image32.Bitmap.Assign(Bitmap32List1.Bitmap[Indexr]);
   Indexr := (Indexr - 1) mod Bitmap32List1.Bitmaps.Count;
  Except
  Image32.Bitmap.Assign(Bitmap32List1.Bitmap[Bitmap32List1.Bitmaps.Count-1]);
  Indexr:=Bitmap32List1.Bitmaps.Count-2
  end;
  edit2.Text:=IntToStr(indexr+1) ;
  indexv:=indexr+2
end;

6-Recherche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.ImageNumClick(Sender: TObject);
begin
  indexp:=StrToInt(Edit2.Text) ;
  if indexp<0 then
   Begin indexp:=0; Edit2.Text:='0' end;
  if indexp>=Bitmap32List1.Bitmaps.Count then
   Begin indexp:=Bitmap32List1.Bitmaps.Count-1; Edit2.Text:=inttostr(Bitmap32List1.Bitmaps.Count-1) end ;
  image32.Bitmap.Assign(Bitmap32List1.Bitmap[indexp])  ;
  indexv:=indexp+1;
  indexr:=indexp-1;
end;

merci beaucoup.