Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
TbrLaunchPad
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
CodeMine
Titre:
TbrLaunchPad
Divers
Thread ID:
00690723
Message ID:
00690723
Vues:
47
Hi there.

Is there anybody there ? Or you've all gonne somewhere and didn't tell me ?

Anyway, here is another help needed.

I have some buttons in my tbrLaunchPad, which launches some forms. I also put a Logon/Logoff (chkToolIndicatorButtonLogon) in it as well, so the user can just logoff once it leaves the desk, or if someone else comes to use the application, they can logoff and logon with their username. Created all the priviledges and distributed them to the button's respective cReadPriviledge.

It works fine when there's a logon, and the buttons get enabled/disabled according to the user's priviledges. But it doesn't get refreshed when a logoff occurs, as there's usually no form active on the desktop.

So, I created this code in the Click event of the Button Logon :

DODEFAULT()
THISFORM.oApp.AddRemoveBars()
IF NOT THISFORM.oSecurity.IsLoggedOn() AND EMPTY(WONTOP())
DEFINE WINDOW test FROM -1000,-1000 TO -990,-990 NAME oTest
oTest.SHOW()
oTest.RELEASE()
ENDIF

AddRemoveBars will get rid of the menu bars the user has not priviledges to.
And then, if a logoff ocurred and there's no window active, I defined one out of bounds of the desktop, showed, and released it, and then the LaunchPad got refreshed. It seems a bit strange, though.

Any ideas on how I could refresh the LaunchPad toolbar when a logoff occurs without any active form ?

Obrigado.
Ivan
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform