Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Xfrx drill down double click on link
Message
De
21/12/2008 11:30:33
Jack Liebschutz
Black Mountain Software
Polson, Montana, États-Unis
 
 
À
19/12/2008 11:28:27
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Divers
Thread ID:
01368687
Message ID:
01369022
Vues:
7
Thanks Doug, I'll try it out.

>Hi Jack.
>
>(Would you be arrested if you said that in an airport?)
>
>>In the xfrx drill down example double click on a link runs the link twice. Anyone have any idea on how to get it to run just once?
>
>I've submitted this to Martin but also made the change myself. In XFRX.PRG, find _xf_handleMessage and add the indicated code:
>
>
CASE msg=273 &&mouse click
>  lcVariableName = "__xf_g_ch"+ALLTRIM(STR(lParam))
>  IF "O" = TYPE(lcVariableName)
>*** DH 07/12/2007: ignore a click if we haven't returned from the previous one
>    loObject = evaluate(lcVariableName)
>    if not pemstatus(loObject, 'lInClick', 5) or not loObject.lInClick
>      if not pemstatus(loObject, 'lInClick', 5)
>        addproperty(loObject, 'lInClick')
>      endif not pemstatus(loObject, 'lInClick', 5)
>      loObject.lInClick = .T.
>*** DH 07/12/2007: end of new code
>      &lcVariableName->m_click(0)
>*** DH 07/12/2007: rest of the new code
>      loObject.lInClick = .F.
>    endif not pemstatus(loObject, 'lInClick', 5) ...
>*** DH 07/12/2007: end of new code
>  ENDIF
>
>Doug
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform