Discussion :

[SergioMaster]

Bonjour,

TListview a une propriété CanSwipeDelete et des évènements (méthodes) comme OnDeleteItem et OnDeletingItem.

La fonctionnalité balayer-pour-supprimer est prise en charge sur les apps mobiles (iOS et Android), ainsi que les apps de bureau (Windows et OS X) lorsque la saisie tactile est activée.

Ma première question est donc, comment avec un pc sans écran tactile simuler ce swipe ?

l'objectif est de supprimer un élément de la liste mais également dans la table


Pour contourner la difficulté du balayage j'ai donc comméncé par une utilisation plus classique avec un bouton l'item de liste

Code :

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

1
2
3
4
5
procedure TForm1.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
begin
listview1.Items.Delete(AItem.Index); 
end;

Je pensais que le Delete écrit ainsi lèverait les événements mais non, seul un "argument hors limites" m'est signalé


Du coup, plus inquiétant, si je code ainsi (Test avec D10 Alexandria)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.LinkListControlToField1FilledListItem(Sender: TObject;
  const AEditor: IBindListEditorItem);
begin
(AEditor.CurrentObject as TListItem).Tag :=FDTable1.FieldByName('ID').AsInteger; // mémorise la clé
end;
 
procedure TForm1.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
begin
if FDtable1.Locate('Id',AItem.Tag) then FDtable1.Delete;
end;

et tente de supprimer le dernier élément de la liste, j'ai une exception de lecture d'adresse (en cause procedure TListItem.MouseUp)

[Andnotor]

Ma première question est donc, comment avec un pc sans écran tactile simuler ce swipe ?

Le pendant Mouse_Event (SendInput) pour la génération de messages WM_POINTER est InjectTouchInput.

Pour l'appui, le code ressemblera à ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  var
    Info :TPointerTouchInfo;
 
  begin
    if InitializeTouchInjection(1, TOUCH_FEEDBACK_NONE) then
    begin
      ZeroMemory(@Info, SizeOf(Info));
      Info.pointerInfo.pointerType     := PT_TOUCH;
      Info.pointerInfo.ptPixelLocation := aPt;
      Info.pointerInfo.pointerFlags    := POINTER_FLAG_DOWN or POINTER_FLAG_UPDATE or POINTER_FLAG_INRANGE;
 
      InjectTouchInput(1, @Info);
    end;
  end;

A l'instar de SendInput, tu peux envoyer de multiples commandes en un appel.

Les déclarations sont maintenant présentes dans Winapi.Windows. L'exemple ci-dessus est d'époque et reposait sur cette unité, il y a donc quelques différences.

[SergioMaster]

Merci, je vais tenter ça.

En attendant une discussion que j'avais initiée (et oubliée) https://www.developpez.net/forums/d1...em-via-bouton/
m'a poussé à refaire le hack "pour voir". Bon j'aurais peut-être pu écrire un helper à la place mais comme ,c'est un test, j'écris au plus rapide ou plutôt comme j'ai le plus l'habitude.

En tout cas si grâce au hack, je rentre bien dans les deux évènements je me coltine quand même un "argument hors limite" (coupable la fonction TListItemView.GetObject)

[Edit] Pour le fun, avec Helper

Code :

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

1
2
3
4
5
6
7
8
9
 TListViewHelper  = class helper for TListView
    public function DeleteItem(const ItemIndex: Integer): Boolean; end;
......
 
{ TListViewHelper }
function TListViewHelper.DeleteItem(const ItemIndex: Integer): Boolean;
begin
inherited;
end;

Je vais me résoudre à changer mon programme pour pouvoir déployer sur un appareil Android et tester le "balayer-pour-supprimer "

[SergioMaster]

Je vais me résoudre à changer mon programme pour pouvoir déployer sur un appareil Android et tester le "balayer-pour-supprimer "

C'est ce que j'ai fait, j'ai craqué et surtout cela m'a permis de voir comment fonctionnait ce "balayer-pour-supprimer"
en deux images :
- affichage de la liste

-balayage de l'élément : le bouton delete s'affiche

vous devinez la suite, appui sur le bouton delete, l'élément est supprimé si un autre élément est sélectionné avant l'appui sur le bouton, le bouton disparait.

Tout est pour le mieux dans le meilleur des mondes enfin presque la tentative de suppression du dernier élément de la liste lève une exception : Argument hors limites

@AndNotOr effectivement il y a quelques modifications à apporter mais cela donne une bonne idée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
    Info : POINTER_TOUCH_INFO;
begin
if InitializeTouchInjection(1, TOUCH_FEEDBACK_NONE) then
    begin
      ZeroMemory(@Info, SizeOf(Info));
      Info.pointerInfo.pointerType     :=  Cardinal(tagPOINTER_INPUT_TYPE.PT_TOUCH);
//      Info.pointerInfo.ptPixelLocation := pos;
//      Info.pointerInfo.pointerFlags    := POINTER_FLAG_DOWN or POINTER_FLAG_UPDATE or POINTER_FLAG_INRANGE;
      InjectTouchInput(1, @Info);
    end;

Je m'attaque maintenant à ptpixelLocation mais je pense qu'il y a plus pour simuler le balayage gauche->droite