Discussion :

[ddubois]

Voici le code qui me prend la tête depuis un non moment.
J'ai associé un composant TUpDown à un TImage pour afficher les icones d'un TImageList et pouvoir sélectionner l'icone désirée en naviguant dans le ImageList avec les flêches.
Le principe de base fonctionne (les icones s'affichent bien) mais les bornes minimum et maximum ne sont pas respectés, cela bloque avant la fin de la liste d'icones, et selon l'icone cliquée, pas au même endroit ! bref, la navigation dans le Timagelist est très aléatoire et dépend de la première l'icone sélectionnée... Je n'y comprend plus rien.

Voici mon 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
 
procedure TForm2.FormShow(Sender: TObject);
  UpDown1.Min := 0;
  UpDown1.Max := Form1.ImageList2.Count - 1;
  UpDown1.Increment := 1;
 
  Index := Infos^.FIcon;
    //UpDown1.Position := Index;   //Valeur en cours (???)
  DisplayIcon(Index);          //Call
end;
 
procedure TForm2.UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean;
  NewValue: SmallInt; Direction: TUpDownDirection);
begin
  if Direction=updUp then inc(Index,UpDown1.increment);
  if Direction=updDown then dec(Index,UpDown1.increment);
  if Direction=updNone then exit; 
  DisplayIcon(Index)                       
end;
 
Procedure TForm2.DisplayIcon(Index:Integer);
var Infos  : Pinfos;
begin
 {Vider l'image}
  Image1.Picture.Bitmap := nil;
 {Associer l'icone de la liste d'images dans TImage1 }
  Form1.ImageList2.GetBitmap(Index, Image1.Picture.Bitmap);
end;

D'avance merci,

Denis

[nuxtay]

Salut,
je dirais que le problème se situe probablement dans FormShow...
soit à la ligne "Index := Infos^.FIcon;" , vérifie que l'index correspond à la réalité ...
soit à la ligne "UpDown1.Position := Index;", actuellement elle est en commentaire donc index et position différent !!!???
@+

[Cl@udius]

Salut

Ta variable Index me semble inutile puisqu'elle représente la valeur de UpDown1.Position.

Pour simplifier j'utiliserais l'événement OnClick du TUpDown, ce qui réduit le code à ceci:

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.DisplayIcon(AIndex: Integer);
begin
 {Vider l'image}
  Image1.Picture.Bitmap := nil;
 {Associer l'icone de la liste d'images dans TImage1 }
  Form1.ImageList2.GetBitmap(AIndex, Image1.Picture.Bitmap);
//  Label1.Caption := Format('Image n°: %d', [AIndex]);
end;
 
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  DisplayIcon(UpDown1.Position);
end;

Quant à Infos, je te laisse le soin de gérer ça, puisqu'on ne sait pas trop ce que c'est.

@+ Claudius

[nuxtay]

Salut,
Cl@udius je suis tout à fait d'accord avec ta remarque,
mais le problème pour moi, c'est qu'il utilise un "multi-fenêtre" et qu'il veut lier son index à son composant TUpDown.
En plus je dirais qu'il modifie certainement son TImageList, qui est dans une autre fenêtre où il fait une sélection grâce à ...
Donc le problème ce situe certainement dans la gestion entre les fenêtres et composants...
ddubois exprimera certainement mieux son problème par rapport à nos remarques et nous dira à quoi correspond Infos...
@+

[Cl@udius]

Salut

mais le problème pour moi, c'est qu'il utilise un "multi-fenêtre"...

Ah ouais tiens, je n'avais pas remarqué qu'il y avait plusieurs Forms.

ddubois exprimera certainement mieux son problème par rapport à nos remarques ...

Wait and see.

@+

[ddubois]

Marche pas mieux mais pas moins bien !
Je vais répondre a vos questions :
1/ Oui "Infos^.FIcon" correspond bien a la réalité puisque la première icone sur chaque TListItem cliqué est bien la bonne.

On se dit qu'il suffirait d'incrementer/décrementer l'index du TImagelList pour que ca fonctionne ! et bien non !

2/ Effectivement, mon composant TUpDown ainsi que mon TImage est sur un TGroupBox (GroupBox2). Est ce que ca joue ?

J"ai intégré vos suggestions :

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
 
procedure TForm2.FormShow(Sender: TObject);
var
  ListItem : TListItem;
  Infos    : Pinfos;
begin
  ListItem := Form1.ListView1.Selected;
  Infos := Pinfos(ListItem.Data);
 
  UpDown1.Min := 0;
  UpDown1.Max := Form1.ImageList2.Count - 1;
  UpDown1.Increment := 1;
 
  DisplayIcon(Infos^.FIcon);    //Call
end;
 
procedure TForm2.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  DisplayIcon(UpDown1.Position);
end;
 
Procedure TForm2.DisplayIcon(AIndex:Integer);
var Infos  : Pinfos;
begin
 {Vider l'image}
  Image1.Picture.Bitmap := nil;
 {Associer l'icone de la liste d'images dans TImage1 }
  Form1.ImageList2.GetBitmap(AIndex, Image1.Picture.Bitmap);
end;

Merci,

Denis

[nuxtay]

Ok je comprend un peu mieux
Par contre je ne sais pas comment est structuré ton ListView Nombre d'éléments, groupes, colonnes...
Si tu n'as que des éléments sans groupe...et que tes numéros d'icônes correspondent au numéros d'éléments alors ceci suffit :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm2.FormShow(Sender: TObject);
begin
  UpDown1.Min := 0;
  UpDown1.Max := Form1.ImageList2.Count - 1;
  UpDown1.Increment := 1;
  UpDown1.Position := Form1.ListView1.Selected.ImageIndex;
  DisplayIcon(Form1.ListView1.Selected.ImageIndex);    //Call
end;

Mais s'ils sont dans le désordre ou que le ListView a une structure plus complexe,
alors va falloir faire un peu plus...
@+