Discussion :

[SergioMaster]

Bonjour,

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

L'explication en image

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

[SergioMaster]

Bonjour,

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

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
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 !

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ù ....

[SergioMaster]

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 :

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
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

le dragdrop fonctionne mais vous ne trouvez pas qu'il y a une différence de couleur (fenêtre gauche) ?

[tourlourou]

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

[SergioMaster]

Bonjour,

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

[SergioMaster]

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