Discussion :

[Paounet]

J'ai crée des images indicées et je voudrais effectuer du drag and drop sur celles-ci... Connaissant la procédure avec Visual basic, Delphi j'ai du mal avec WinDev Express 20.. Quelqu'un(e) peut-il (elle)
m'aider... Voilà mon code de création des images(jeu de cartes)

Code :

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

1
2
3
4
5
6
7
8
9
Pour I=1 à 8
                       Nom est une chaîne="Tapis["+ i + "]"
                       SI I<5 ALORS X = 598 ELSE X = 920	
                        Chmp <- ChampCrée(Nom, typImage, X, Y, 79, 126) 
			Chmp..Libellé = Val_Cartes[i]
			Chmp = dChargeImage("\Cartes\"+Val_Cartes[i]+".png")
			{Nom}..Bulle=gStylo(Noir) + gPolice("Segoe UI") + gPoliceGras(Vrai) +gPoliceTaille(10) + Nom + "= " + Val_Cartes[i]
			{Nom}..Traitement[trtSurvol] = Affiche_Carte
FIN

La procedure Affiche_Carte affiche la valeur du libellé de l'image....

Je voudrai pouvoir faire du drag 'n drop entre ces images

[dsr57]

Bonjour

Regardes cette page : http://doc.pcsoft.fr/?3030018
Tiens nous au courant

Bon dev

[Paounet]

J'ai vu cette page et est programmé mes images tel que :

Code :

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

1
2
3
4
5
6
7
{Nom}..Traitement[trtSurvol] = Affiche_Carte
 // Drag And Drop des cartes sur le Tapis..
 {Nom}..DndSource = dndProgrammé
 {Nom}..DndCible = dndProgrammé
 DnDEvénement("Survol",{Nom},dndSurvol)
 DnDEvénement("Glisser",{Nom},dndDébutGlisser)
 DnDEvénement("Déplacer",{Nom},dndLâcher)

Code :

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

1
2
3
4
5
6
7
8
 PROCEDURE Survol()
 SI _DND.ChampCible = _DND.ChampSource ALORS
 DnDAccepte(dndInterdit)
 SINON
 Message(" Carte Cible = " + _DND.ChampCible)
 DnDAccepte(dndDéplacer)
 DnDCurseur(dndDéplacer)
 FIN

Code :

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

1
2
 PROCEDURE Glisser()
 DnDAccepte(dndDéplacer)

Code :

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

1
2
3
4
 PROCEDURE Déplacer()
 Info("Source = " +_DND.ChampSource,"Cible = " +_DND.ChampCible)
 
 _DND.ChampCible = _DND.ChampSource

Je vois le curseur de l'image se transformer lorsque je parcours mais pas l'image elle-même... En fait toutes les images représentent un jeu de cartes et je
veux déplacer une carte sur une autre d'où le drag 'n drop...
Merci de réponse...

[dsr57]

Bonjour,

Dans la procédure Déplacer tu dois utiliser les indirections pour récupérer et affecter l'image

Code :

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

1
2
 
{_DND.ChampCible , indchamp}= {_DND.ChampSource, indchamp}

Attention, lors d'un échange tu devras stocker les valeurs temporairement pour effectuer celui-ci

Bon dev