Discussion :

[jcs2]

J'ai bien regardé la FAQ mais rien à ce sujet.

Comment peut-on lors d'un Drag&Drop d'une image -une portion d'un TPaintBox par exemple, pour la replacer à un autre endroit ou dans une autre PaintBox- faire en sorte que lors du déplacement de la souris, à la place de l'image du curseur (ou en plus), l'image en semi-transparence suive le curseur ( à la manière de l'Explorateur de Windows si on y visualise les fichiers sous forme de miniatures)

[korntex5]

je pens que si tu regar de du coté de comment dessiner sur le burreau pour voir ton image et de image transparente tu dois trouver ton bonheur

[jcs2]

Merci pour ta réponse korntex5, mais je ne vois pas très bien ce qu'un dessin sur le bureau peut m'apporter.

Pour être plus précis je me demande si une façon de régler la chose serait d'attribuer à la souris lors du drag, un curseur qui serait une image miniature semi transparente, et de rétablir ensuite le curseur standard lors du drop.
Mais je ne sais pas si cela est possible.

[mayloshi]

Tu as meme lu Ceci avant de poster?

[jcs2]

Tu as meme lu Ceci avant de poster?

Oui, bien sûr. C'est un exemple de code (merci à Pierre Castellain pour sa FAQ) qui montre très bien comment faire un Drap&Drop d'un fichier de l'explorateur -sous forme de miniature entre autre- vers une fiche applicative. Mais dès que la souris survole l'application tierce l'image semi-transparente disparaît et néanmoins le drop se fait correctement.

En fait je voudrais réussir ce type de drag&drop d'une image à l'intérieur d'une application sur une fiche unique ou d'une fiche à une autre.

Il semble que l'on puisse créer dynamiquement au runtime un curseur (sans passer par les ressources), mais sa taille est peut-être limitée, et de toute façon je ne sais pas comment faire.

[korntex5]

alors c bien ce que je dis tu dois pouvoir dessiner dans windows ou tu veux et rafraichir ton dessin allez je t'aide

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
 
 
//a déclarer dans ta unit
 HBureau:THandle;
 HDCBureau:HDC;
 CanvasBureau:TCanvas;
 
//a executer lors de l'initialisation
 HBureau:=GetDesktopWindow;// récupère le Handle du Bureau
 HDCBureau:=GetWindowDC(HBureau);
 CanvasBureau:=TCanvas.Create;
 CanvasBureau.Handle:=HDCBureau;
 
 
//exemlpe dessine un trait oblique
CanvasBureau.MoveTo(Position.X,Position.Y);
 CanvasBureau.LineTo(Position.X+100,Position.Y+100);
 
//refresh du bureau
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
 
//a mettre dans ton destroy
 ReleaseDC(HBureau,HDCBureau);
 CanvasBureau.free;

[jcs2]

Merci de t'interesser à mon pb, Korntex5.
Avec ton bout de code, je sais maintenant dessiner ou afficher une image sur le bureau et restituer celui-ci dans son état original, mais cela me mets encore loin de mon objectif de faire un drag&drop transparent d'une image.
A chaque mouvement de souris je ne pense pas qu'il soit réaliste de réafficher le bureau en entier.

En fouillant un peu je viens de découvrir qu'il existe une classe TDRAGIMAGELIST qui apparemment est dédiée à cette question. Je vais essayer d'approfondir dans cette voie.