ou [OSX] Drag and drop d'une forme

Bonjour,

Cela ne fait pas doublon avec d'autres discussions que j'ai pu lire en particulier ici

L'explication en image
Pièce jointe 424172
je voudrais me passer du bouton "attache" en utilisant une opération de glisser-déposer sur le TTabControl
Mais voilà jusqu'à présent des objets d'une forme à l'intérieur d'un autre objet de cette même forme ont été discutés mais pas ce cas. J'ai fait diverses tentatives sans succès.

Je joint le zip si quelqu'un veut jouer avec et me trouver une solution je suis preneur ;)

Bonjour,

pour faire avancer le schmilblick j'ai rajouté une procédure pour la fiche enfant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TFormColor.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); var ABitmap : TBitmap; D: TDragObject; begin if Docked then Exit; // déjà ancrée ABitmap:=TBitmap.Create; try ABitmap.SetSize(40,40); ABitmap.Clear(FColor); D.Source:=Self; if TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService, IInterface(DDService)) then DDService.BeginDragDrop(FormPrincipale, D, FMX.Graphics.TBitmap(ABitmap)); finally ABitmap.Free; end; end;

---

Problèmes à résoudre :
- procedure BeginDragDrop(AForm: TCommonCustomForm; const Data: TDragObject; ABitmap: TBitmap); que mettre comme paramètres ? dans tout les sources que j'ai pu voir AForm = Self et non une autre forme, pour Data Ok , Abitmap : Ok
- le service démarre correctement mais plante le programme dés que le drag sort de la forme enfant ! :bug:

Citation:

---

:alerte:allez, je me fend d'un toute petite nouvelle sur la version RIO : ce bug (ce devait en être un) est corrigé

---

Merci de m'avoir lu

P.S. DDService: IFMXDragDropService; a été mis dans la liste de variables publiques de la forme au cas où ....

Re,

Je voulais vérifier que mon drag-drop fonctionnait à l'intérieur de la forme, on ne sait jamais !
j'ai donc ajouter un rectangle blanc dans la forme enfant, un petit bouton (poubelle) pour le réinitialiser à blanc et un label pour vérifier le code couleur.
Puis j'ai programmé les différents évènements de drag-drop de ce rectangle2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TFormColor.Rectangle2DragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF); begin if (Data.Source<>Nil) AND data.Source.ClassNameIs('TFormColor') then begin Rectangle2.Fill.Color:= RectColor; Label1.Text:=IntToHex(RectColor,8); end; end;   procedure TFormColor.Rectangle2DragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); begin if (Data.Source<>Nil) AND data.Source.ClassNameIs('TFormColor') then Operation:=TDragOperation.Move else Operation:=TDragOperation.None; end;   procedure TFormColor.SpeedButton1Click(Sender: TObject); begin Rectangle2.Fill.Color:=TAlphaColors.White; Label1.Text:=IntToHex(Rectangle2.Fill.Color,8); end;

---

surpises à l'éxecution
Pièce jointe 424316
le dragdrop fonctionne mais vous ne trouvez pas qu'il y a une différence de couleur (fenêtre gauche) ?

N'y a-t-il pas un chouïa de transparence à la base de l'explication ?

Bonjour,

Aucune transparence , du moins pas de mon fait ! ce sont deux rectangles (le conteneur comme le contenu) avec une opacité = 1

Re,
Excepté la petite question subsidiaire, c'est résolu, je vous ait fait plancher pour rien il s'agit très certainement d'un bug de la version 10.2.3 (à vérifier s'il s'agissait d'une récession ?, j'ai peut-être mal cherché)
voici une démo avec Carnival (bêta version de Rio 10.3)
https://serge-girard.developpez.com/...gDragDrop.webm