Ci-dessous le code :
à l'initialisation de mon champ :
LISTE_TYPE_GROUPE..DndSource = dndAuto
LISTE_TYPE_GROUPE..DndCible = dndAuto
DnDEvénement("_Lacher","LISTE_TYPE_GROUPE",dndLâcher)
DnDEvénement("_DebutGlisser","LISTE_TYPE_GROUPE",dndDébutGlisser)
DnDEvénement("_SurSurvol","LISTE_TYPE_GROUPE",dndSurvol)
Procedure _SurSurvol
SELON _DND.ChampCible
CAS LISTE_TYPE_GROUPE..Nom
DnDAccepte(dndDéplacer)
DnDCurseur(dndDéfaut)
i est un entier =
ListeInfoXY(LISTE_TYPE_GROUPE,tiNumLigne,_DND.SourisPosX,_DND.SourisPosY)
Trace(i)
ListeSelectPlus(LISTE_TYPE_GROUPE,i)
AUTRE CAS
DnDAccepte(dndInterdit)
FIN
Cela n'a pas l'effet escompté
"JB" <j.bres@on.invalid.invalid> a écrit dans le message de news:
op.uc64jxk38kdmmw@jbxp.scrim.fr...
Le Mon, 23 Jun 2008 11:35:54 +0200, Fredo G-MDI <fredo@hotmail.com> a
écrit:
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
A faire dans le survol avec _dnd.champxxx et _dnd.sourisxxx ?
--
JB
