"JB" <j.bres@on.invalid.invalid> a écrit dans le message de news:
op.uc7gvgsc8kdmmw@jbxp.scrim.fr...

Le Mon, 23 Jun 2008 15:03:19 +0200, Fredo G-MDI <fredo@hotmail.com> 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" <j.bres@on.invalid.invalid> a écrit dans le message de news:
op.uc67qcbe8kdmmw@jbxp.scrim.fr...

Le Mon, 23 Jun 2008 12:41:55 +0200, Fredo G-MDI <fredo@hotmail.com> 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