selection dans listbox ne se fait pas

Bonjour,

je fais un deplacement dans une listbox puis j essaye de reselectionner les elements qui l etaient precedemment. Mais ca ne fonctionne pas. Le chanement a bien lieu mais pas la selection.

j ai cherche un peu partout et il est dit sur internet que pour faire une selection on doit faire un selected[index]:=true dans le cas d un multiselect sinon un itemindex:=index.
Mon code est le suivant


for i:=0 to form2.ListBox1.Items.Count-1 do begin
if i<liste_image.Count then begin
for j:=0 to image_selectionnee.Count-1 do begin
if liste_image[i]=image_selectionnee[j] then begin
if form2.ListBox1.MultiSelect then
form2.ListBox1.Selected[i]:=true
else
form2.ListBox1.ItemIndex:=i;
break;
end;
end;
end;
end;

merci d avance

Salut,

commence par indenter ton code correctement ... ça te permettra d'y voir plus clair:

---

for i := 0 to form2.ListBox1.Items.Count - 1 do
begin
  if i < liste_image.Count then
  begin
    for j := 0 to image_selectionnee.Count - 1 do
    begin
      if liste_image[i] = image_selectionnee[j] then
      begin
        if form2.ListBox1.MultiSelect then
          form2.ListBox1.Selected[i] := true
        else
        begin
          form2.ListBox1.ItemIndex := i;
          break;
        end;
      end;
    end;
  end;
end;

---

quoi qu'il arrive "MultiSelect" où pas la boucle était interrompue par le "Break"

---

@+Cirec

---

ps: on pouvait aussi éclaircir le code

celui-ci devrait faire la même chose:

---

for i := 0 to form2.ListBox1.Items.Count - 1 do
  if i < liste_image.Count then
    for j := 0 to image_selectionnee.Count - 1 do
      if liste_image[i] = image_selectionnee[j] then
        if form2.ListBox1.MultiSelect then
          form2.ListBox1.Selected[i] := true
        else
        begin
          form2.ListBox1.ItemIndex := i;
          break;
        end;

---

---

@+Cirec

---

et meme

Attention, tu ne remet pas le selected a false, ce qui pourrait etre fait par :

Bonjour

merci de votre interet.
pour ce qui est de l indentation je suis desole elle n est pas passer au copier/coller et je n y avais pas prete attention.

pour ce qui est de mes begin .. end a tout va je prefere comme ca (meme si je sais qu ils sont inutiles la plupart du temps ils me rassurent)

par contre je ne sais toujours pas pourquoi quand je passe mon selected a vrai, rien n est selectionne dans ma liste (j ai verifier en debug et je passe bien par la ligne)

bien vu Guillemouze

si déjà tu vas jusque là il serait peut être mieux de récupérer le résultat de la fonction Min dans une variable ce qui évitera un appel à chaque itération


pour la mise à False des sélections précédentes il y a :
ListBox1.ClearSelection;


Sinon j'ai testé chez moi, vite fait, et les sélections s'affichent très bien !!

as tu testé un des codes modifié ?

---

@+Cirec

---

Rebonjour,

j avais juste place mon code au mauvais endroit
j effacais completement mon listbox avant de le reremplir et j avais mis juste avant cette etape

merci a tous pour vos reponses