Discussion :

[hector94]

Bonjour,

J'utilise de plus en plus les TListView et la création de nouveau Appearance.

Je cherche à faire un item avec un bouton more qui permet de déployer (rendre visible) un texte supplémentaire dans l'item de la listView

J'ai créé un nouvel objet Appearance avec bouton More et un TTextObjectAppearance (MoreText) pour le contenu texte du more.

Par défaut cet objet n'est pas visible et si on clique sur le bouton more je voudrais que l'objet texte devienne visible.

J'ai bien le bouton, j'ai l'événement du clic sur le bouton mais je n'arrive pas à rendre l'objet MoreText visible.
Je ne trouve pas à quel endroit je peux accéder à cet objet.

J'ai le clic sur le bouton via l'événement : (et je peux changer le texte du bouton)

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
 
procedure TFrameShowOperations.lbEventsItemClickEx(const Sender: TObject;
  ItemIndex: Integer; const LocalClickPos: TPointF;
  const ItemObject: TListItemDrawable);
begin
  //...
      if (ItemObject.Name = 'MoreButton') then
         begin
           item := lvEvents.Items[itemindex];
           ItemObject.BeginUpdate;
           try
           if tlistitemtextbutton(ItemObject).text = 'ReadMore' then
              tlistitemtextbutton(ItemObject).text := 'ReadLess'
            else
              tlistitemtextbutton(ItemObject).text := 'ReadMore';
           finally
             ItemObject.EndUpdate;
           end;
  //...
end;

A ce niveau il n'est pas possible d'obtenir l'objet MemoText

Code :

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

1
2
        item := lvEvents.Items[itemindex];
        Item.View.FindDrawable('MoreText') // vaut nil

L'événement procedure TFrameShowOperations.lvEventsUpdateObjects(const Sender: TObject; const AItem: TListViewItem); n'est pas appelé.

Peut-être y a t il un défaut de compréhension du fonctionnement des tlisview et appearance ?

Une idée ou une piste de recherche .

Delphi 10.2
fmx

Merci d'avance

[SergioMaster]

Bonjour,

J'utilise de plus en plus les TListView et la création de nouveau Appearance.

Je présume qu'il fallait lire Dynamic Appearance

Peut-être y a t il un défaut de compréhension du fonctionnement des tlisview et appearance ?

de l'évènement OnItemClickEx et de ses paramètres plutôt. En faisant des tests je me suis fait avoir sur ce que signifiait ItemIndex croyant qu'il s'agissait de l'index de l'élément de la liste


Voilà ce que je propose qui fonctionne (j'en ai profité pour jouer aussi sur la hauteur de l'élément)

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
procedure TForm54.ListView1ItemClickEx(const Sender: TObject;
  ItemIndex: Integer; const LocalClickPos: TPointF;
  const ItemObject: TListItemDrawable);
var Item : TListItem;
begin
if SameText(ItemObject.Name,'btnDetail') then  
 begin
   ShowMessage(Sender.ClassName);
   Item:=ListView1.Selected;
   if tlistitemtextbutton(ItemObject).Text='?'  
     then begin
        tlistitemtextbutton(ItemObject).Text:='-';
        Item.View.FindDrawable('MoreData').Visible:=true;
        Item.Height:=80;
     end
     else begin
             tlistitemtextbutton(ItemObject).Text:='?';
             Item.View.FindDrawable('MoreData').Visible:=False;
             Item.Height:=40;
          end;
 end;
end;

N.B. perso, pour ce genre de chose j'aurais utilisé une TListBox et un style personnalisé pour l'item, quelque chose comme

[hector94]

Bonjour,

Je vais essayer l'utilisation de
Item:=ListView1.Selected;
plutôt que itemIndex

dans d'autres situations j'utilise itemindex pour obtenir l'item cliqué ? cela ne me paraissait pas erroné ...

je vais vérifier !

[hector94]

Une recherche dans le code :

Code :

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

1
2
3
4
5
6
7
8
 
    /// <summary>OnItemClickEx event</summary>
    /// <param name="Sender">event source</param>
    /// <param name="ItemIndex">index of item</param>
    /// <param name="LocalClickPos">click position in item local coordinates</param>
    /// <param name="ItemObject"><c>TListItemDrawable</c> that received the click</param>
    TListItemClickEventEx = procedure(const Sender: TObject; ItemIndex: Integer; const LocalClickPos: TPointF;
      const ItemObject: TListItemDrawable) of object;

C'est ok pour le fonctionnement de itemindex

De plus ma listview est en AllowSelection = false dons pas de selected !

Ce que je voudrais faire c'est déclencher l'événement

Code :

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

1
2
 
procedure TFrameShowOperations.lvEventsUpdateObjects(const Sender: TObject; const AItem: TListViewItem);

C'est dans cet évement que je redimensionne le height de l'item en fonction du contenu des différents objets (Text, detail, comment, more, ... plus des images) de ItemAppearance.
https://community.idera.com/develope...in-10-1-berlin

[hector94]

le code fonctionne maintenant

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
 
procedure TFrameShowOperations.lbEventsItemClickEx(const Sender: TObject;
          ItemIndex: Integer; const LocalClickPos: TPointF;
          const ItemObject: TListItemDrawable);
...
 
      if (ItemObject.Name = 'MoreButton') then
         begin
           ItemObject.BeginUpdate;
           try
             item := lvEvents.Items [itemindex];
             if Item.View.FindDrawable('More') <> nil then
                begin
                  Drawable := TListItemText(Item.View.FindDrawable('More'));
                  if not Drawable.Visible then
                     tlistitemtextbutton(ItemObject).text := _(csReadLess)
                   else
                     tlistitemtextbutton(ItemObject).text := _(csReadMore);
              end;
           lvEventsUpdateObjects(Sender,Item);
 
           finally
             ItemObject.EndUpdate;
           end;

avec appel de l'événement dans le code pour redimensionner l'item et rendre visible le texte supplémentaire de l'item

Code :

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

1
2
 
lvEventsUpdateObjects(Sender,Item);

Il y a surement un défaut dans

Code :

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

1
2
 
procedure TListViewBase.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single);

pour passer le bon itemindex à l'événement

Code :

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

1
2
3
4
 
procedure TFrameShowOperations.lbEventsItemClickEx(const Sender: TObject;
          ItemIndex: Integer; const LocalClickPos: TPointF;
          const ItemObject: TListItemDrawable);

quand on clique sur un TTextButtonObjectAppearance ajouté dans un nouveau

Code :

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

1
2
 
TOperationListItemAppearance = class(TPresetItemObjects)

Un peu chinois ...

J'ai du modifier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TListViewBase.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single);
...
 
    if not (TStateFlag.ScrollingMouseTouch in FStateFlags) then
    begin
      if FMouseEventIndex <> -1 then
      begin
        Adapter[FMouseEventIndex].MouseUp(Button, Shift, TPointF.Create(X, Y));
//modif HE
        FClickEventItemIndex := FMouseEventIndex;
//
        FMouseEventIndex := -1;
      end

pour recevoir le bon itemindex