Discussion :

[SergioMaster]

Bonjour,

Dans une application, j'ai besoin du drag drop pour "traiter" des données (de TLabel vers TEdit). J'utilise le code suivant (drag manuel)

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
25
26
27
28
29
30
31
32
33
34
35
procedure TFormFactor.ClientPhoneMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  Svc: IFMXDragDropService;
  DragData: TDragObject;
  DragImage: TBitmap;
begin
  if not ClientPhone.Text.IsEmpty and TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService, Svc) then
  begin
    DragData.Source := Sender;
    DragImage:=TBitmap.Create;
   try  
     // DragImage.Assign(ImageList1.Bitmap(TSizeF.Create(16,16),0));
      DragImage.Clear(0); // pas d'image
      DragData.Data:= 'ClientPhone';  // permet de savoir ce que c'est comme label = TLabel(Sender).Name
      Svc.BeginDragDrop(Self, DragData,dragImage);
    finally
      DragImage.Free;
    end;
  end;
end;
 
procedure TFormFactor.EdtPhoneDragDrop(Sender: TObject; const Data: TDragObject;
  const Point: TPointF);
begin
EdtPhone.Text:=ReplaceStr(Fdquery2TELEPHONE.asString,' ','');
end;
 
procedure TFormFactor.EdtPhoneDragOver(Sender: TObject; const Data: TDragObject;
  const Point: TPointF; var Operation: TDragOperation);
begin
if Sametext(Data.Data.AsString,'clientphone')
  then Operation:=TDragOperation.Copy
  else Operation:=TDragOperation.None;
end;

Seulement, c'est loin d'être terrible (image loin du curseur ), j'aurais bien voulu un wingding genre téléphone, ou mieux un beau petit SVG

[pprem]

si tu ajoutes Skia au projet tu devrais même pouvoir y caser une image lottie animée (si ça passe en image) ou un SVG

pour la position de l'image par rapport au curseur tu auras une capture d'écran ou vidéo à nous montrer ?

[SergioMaster]

Bonjour,

Pour Skia, j'y ai déjà pensé, mais surtout pour un autre sujet que je n'ai pas encore posté (bouton skia en vcl)
Pour ce qui est de la vidéo, le hic, c'est que pour l'instant, il s'agit de données confidentielles (téléphone, rib) donc, il faut que je fasse un jeu d'essai bidon.

[SergioMaster]

Voilà la vidéo
https://serge-girard.developpez.com/.../Dragdrop.webm

[pprem]

Effectivement, c'est chelou, en plus ça fonctionne correctement en DragMode automatique.

Peux-tu vérifier la taille de l'image générée et du bitmap ?

Quel est le BitmapScale de la fiche ?

Peux-tu tenter un point d'arrêt en ligne 4130 de FMX.Platform.Win.pas pour voir si le calcul du décalage se passe correctement entre les coordonnées de la souris et l'affichage de l'image ?