Discussion :

[Tolede78]

Je voudrais pointer une ligne dans une listView
Avec une ListBox, il suffit de dire :
ListBox1.ItemIndex:=4;
pour avoir la ligne No.5 qui se "marque" puisque la ligne 0 existe.
Avec la ListView, ça ne marche pas, il doit y avoir une autre ligne adaptée.
Je ne l'est pas trouvée.
Pourtant, il ne donne pas une erreur de syntaxe à la compilation.
Si quelqu'un connaît la réponse, merci par avance de me l'indiquer.

[cincap]

Bonjour à toutes et à tous,

@ Tolede78, en jouant sur la propriété "Item.Selected".

@+,

Cincap

[NABIL74]

salut,

Je voudrais pointer une ligne dans une listView
Avec une ListBox, il suffit de dire :
ListBox1.ItemIndex:=4;
pour avoir la ligne No.5 qui se "marque" puisque la ligne 0 existe.
Avec la ListView, ça ne marche pas, il doit y avoir une autre ligne adaptée.
Je ne l'est pas trouvée.
Pourtant, il ne donne pas une erreur de syntaxe à la compilation.
Si quelqu'un connaît la réponse, merci par avance de me l'indiquer.

il faut d'abord avoir le focus du ListView pour pouvoir sélectionner un item et puis se positionner sur l'item en question.

Code :

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

1
2
ListView1.SetFocus;
ListView1.ItemIndex:=3;

tu peux aussi le sélectionner avec des pointillés sans dessiner en "bleu" item sélectionné:

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
ListView1.SetFocus;
ListView1.Items[3].Focused := true;
end;

a+

NABIL74

[cincap]

@ Tolede78, ou encore ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TMain.Quelleligneestslctionne1Click(Sender: TObject);
  begin
   if ListView1.ItemIndex = -1 Then
     begin
      Edit1.Text := 'Pas de Ligne séléctionnée';
       exit;
     end;
 
    Edit1.Text := 'La Ligne ' +  IntToStr(ListView1.ItemIndex + 1) + ' est sélectionnée';
  end;

@+,

Cincap

[Tolede78]

J'ai essayé les différentes options, et rien ne marche.
Je ne peux pas utiliser "LV1.SetFocus" car j'ai des variables qui se détruisent.
Peut-être que je n'ai pas exposé le problème assez en détail:
Il s'agit d'un répertoire. Quand j'ajoute un nom, je le place à sa place dans le fichier par ordre alpha, et je connais son rang dans le fichier. Ensuite, j'affiche la ListView et je voudrais pointer sur le dernier enregistrement entré, c'est-à-dire, le rang dans le fichier -1
Avec ListBox, la fonction "LV1.ItemIndex:=rangx" fonctionne.

J'ai essayé "Item.Selected", mais il ne reconnaît pas "Selected"
Non c
déclaré qu'il me dit.
Merci à tous

[cincap]

@ Tolede78,

J'ai essayé "Item.Selected", mais il ne reconnaît pas "Selected"

pourtant :

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
 
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with Sender as TListView do
  begin
    with Canvas do
    begin
 
           if Item.Selected then
      begin
        Brush.Color := cllime;//ou rgb(220,220,255);
        Pen.Style := psDot;
        Pen.Color := clGray;
      end
      else
      begin
        Pen.Style := psSolid;
        Pen.Color := Brush.Color;
      end;
  end;
 end;
end;

@+,

Cincap

[Tolede78]

Merci à Cincap
Ca me paraît tout de même un peu compliqué pour marquer une ligne.
mais j'ai quand même noté la procédure que je vais décortiquer, car je n'avais jamais vu une déclaration de procédure avec autant d'arguments