Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

[WD11] Drag and Drop programmé sur champ Liste

12 réponses
Avatar
Fredo G-MDI
Bonjour à tous,

soit un champ Liste ou je veux gérer le drag and drop de façon programmé. Le
champ est Source/Cible, le but étant de pouvoir déplacer des éléments de la
liste avec des drags and drops. Quand je suis en mode automatique et que je
veux positionner un élément de ma liste entre deux lignes j'ai un trait qui
se dessine m'indiquant une insertion de ligne. Comment puis-je faire pour
dessiner ce même trait en mode programmé ? J'aimerai qu'au survol des
éléments ceux-ci se sélectionne (bandeau de sélection) et que quand ma
souris est entre deux lignes que le curseur m'affiche le trait !

Merci d'avance pour vos réponses

2 réponses

1 2
Avatar
Fredo G-MDI
"JB" a écrit dans le message de news:

Le Mon, 23 Jun 2008 15:03:19 +0200, Fredo G-MDI a
écrit:

Merci pour ton aide JB, j'ai réussi à avoir ce que je voulais, plus de
clignotement et sélection de la ligne au survol. Il ne me manque plus
que le
dessin du trait, chose sur laquelle je n'ai encore aucune idée.

"JB" a écrit dans le message de news:

Le Mon, 23 Jun 2008 12:41:55 +0200, Fredo G-MDI a
écrit:




[...]

--
JB






Juste pour voir , changer couleur de fond au lieu de selectplus ?


--
JB






Serait bien de donner la solution finale pour tout le monde.
Sur les NG , il est recommandé de répondre 'après' ce qui permet de garder
la lisibilité.


ça fait mal au doigt avec la roulette ;-) quand il y a 3 tômes !!


--
JB



Pas d'utilisation de FenRepeint, Ni Multitache, Ni ListeInfoXY en dehors du
_DND.ChampSource valide . Cela enlève l'effet de clignotement. Je ne sais
pas à vrai dire ce qui a "débloqué" l'affichage de la sélection. Le fait
d'être passé par FenRepeint et de l'avoir enlevé peut être.

// Initialisation du champ
LISTE_TYPE_GROUPE..DndSource = dndProgrammé

LISTE_TYPE_GROUPE..DndCible = dndProgrammé

DnDEvénement("_Lacher","LISTE_TYPE_GROUPE",dndLâcher)

DnDEvénement("_DebutGlisser","LISTE_TYPE_GROUPE",dndDébutGlisser)

DnDEvénement("_SurSurvol","LISTE_TYPE_GROUPE",dndSurvol)

ListeSupprimeTout(LISTE_TYPE_GROUPE)

// CAS des éléments racines

TreeAjoute(LISTE_TYPE_GROUPE,Null,0)



PROCEDURE _DebutGlisser()

SELON _DND.ChampSource

CAS LISTE_TYPE_GROUPE..Nom

gsIDClique = LISTE_TYPE_GROUPE

DnDAccepte(dndDéplacer)

DnDCurseur(dndDéfaut)

giIndiceCurseurDrag =
ListeInfoXY(LISTE_TYPE_GROUPE,tiNumLigne,_DND.SourisPosX,_DND.SourisPosY)

SI giIndiceCurseurDrag <> -1 ALORS

ListeSelectPlus(LISTE_TYPE_GROUPE,giIndiceCurseurDrag)

FIN

AUTRE CAS

DnDAccepte(dndInterdit)

FIN



PROCEDURE _Lacher()

SELON _DND.ChampSource

CAS LISTE_TYPE_GROUPE..Nom

giIndiceCurseurDrop =
ListeInfoXY(LISTE_TYPE_GROUPE,tiNumLigne,_DND.SourisPosX,_DND.SourisPosY)

SI giIndiceCurseurDrop <> -1

SI giIndiceCurseurDrag <> giIndiceCurseurDrop ALORS

// Traitement adéquat au Laché

FIN

FIN

FIN


PROCEDURE _SurSurvol()

SELON _DND.ChampCible

CAS LISTE_TYPE_GROUPE..Nom

DnDAccepte(dndDéplacer)

i est un entier =
ListeInfoXY(LISTE_TYPE_GROUPE,tiNumLigne,_DND.SourisPosX,_DND.SourisPosY)

SI i <> -1 ALORS

GiIndice = i

ListeSelectPlus(LISTE_TYPE_GROUPE,i)

FIN

AUTRE CAS


FIN
Avatar
JB
Le Mon, 23 Jun 2008 16:48:20 +0200, Fredo G-MDI a
écrit:


"JB" a écrit dans le message de news:

Le Mon, 23 Jun 2008 15:03:19 +0200, Fredo G-MDI a




[...]
garder
la lisibilité.


ça fait mal au doigt avec la roulette ;-) quand il y a 3 tômes !!






C'est ça plains toi ... il y en a qui n'ont pas de roulette !!

--
JB



Pas d'utilisation de FenRepeint, Ni Multitache, Ni ListeInfoXY en dehors
du
_DND.ChampSource valide . Cela enlève l'effet de clignotement. Je ne sais
pas à vrai dire ce qui a "débloqué" l'affichage de la sélection. Le fait
d'être passé par FenRepeint et de l'avoir enlevé peut être.

// Initialisation du champ
LISTE_TYPE_GROUPE..DndSource = dndProgrammé



[...]


FIN




Merci.


--
JB
1 2