Discussion :

[SergioMaster]

Bonjour,

Toujours sur mes ListView(s) je suis en train de regarder comment fonctionne la sélection.
Posez un TListview sur une forme (apparence de l'item par défaut, soit ItemList et ItemListShowCheck en mode édition) , reliez-la à des données (TPrototypeBindSource pour aller vite ou une source de données quelconque) et basculez la dite liste en mode Edition

À l'exécution tout fonctionne comme prévu, on clique sur un élément, la case se coche

Maintenant premier point d'achoppement, je veux que la sélection ne se fasse que si je clique la case à cocher. Selon la doc, la propriété ClickOnSelect, si j'ai bien saisi son sens, est là pour ça mais cela ne fonctionne pas
[Edit] cela fonctionnait avec XE4

Deuxième point d'achoppement : j'adore utiliser l'apparence dynamique, j'ai donc créé une liste identique mais cette fois en utilisant celle-ci. En mode édition, la case à cocher apparaît bien mais ne réagit pas , j'ai alors vérifié si l'item était quand même sélectionné et c'est le cas.
(testé avec Tokyo et Rio)

Avez-vous constaté le même phénomène ?

[oneDev]

Je te vois sans arrêt galérer avec ces composants qui permettent pourtant de faire tant de choses.
C'est tout de même dommage que ce soit si compliqué.

Je ne saurais pas t'aider, mais te souhaite bon courage pour nous revenir rapidement avec de beaux tutos

[SergioMaster]

Je te vois sans arrêt galérer avec ces composants qui permettent pourtant de faire tant de choses.

Ce n'est pas tant galérer que pousser le composant dans ses limites

[SergioMaster]

J'ai deux solutions "code" à améliorées pour chacun de ces deux points.

Dans le premier point soulevé une codification de l'évènement OnItemClickEx permet de prendre en compte le fait que CheckOnSelect soit autorisé ou non

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.ListView1ItemClickEx(const Sender: TObject;
  ItemIndex: Integer; const LocalClickPos: TPointF;
  const ItemObject: TListItemDrawable);
begin 
if not ListView1.Items[ItemIndex].HasClickOnSelectItems then 
   ListView1.Items[ItemIndex].Checked:=not ListView1.Items[ItemIndex].Checked; // la valeur avait déjà changé !
if ItemObject.ClassNameIs('TListItemGlyphButton') then
    ListView1.Items[ItemIndex].Checked:=not TListItemGlyphButton(ItemObject).Checked;

Pour le second point (apparence dynamique) c'est légèrement différent

Code :

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

1
2
3
4
5
6
procedure TForm1.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
begin
if AObject.ClassNameIs('TListItemGlyphButton') then
    TListItemGlyphButton(AObject).Checked:=not TListItemGlyphButton(AObject).Checked;
end;

Reste qu'à mon avis ce sont deux bogues que je n'ai pas vu reporté (ou alors j'ai mal cherché )

Je planche bien sûr sur une solution plus élégante à base d'interface existant IListViewCheckProvider et ce que j'ai pu annoncer ici

[SergioMaster]

Je clos cette discussion si ce n'est sur les bogues putatifs du moins sur la manière de s'en sortir.

Je vous offrirai certainement sous forme de tutoriel ou de billet(s) mes différentes solutions face à la sélection d'éléments

[SergioMaster]

Je vous offrirai certainement sous forme de tutoriel ou de billet(s) mes différentes solutions face à la sélection d'éléments

Voilà déjà le billet publié
J'ai pu apporter beaucoup simplification et abandonner la fausse bonne idée d'interface.

Note : le code sur l'évènement OnClickItemEx n'est pas parfait, il faut que l'élément soit sélectionné AVANT de cliquer sur la case à cocher, et n'importe quelle case fait l'affaire ce qui n'est pas vraiment le but