Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to remove Standard Toolbar at user site?
Message
 
À
16/03/2001 17:49:39
Information générale
Forum:
Visual FoxPro
Catégorie:
Installation et configuration
Divers
Thread ID:
00484069
Message ID:
00486193
Vues:
13
>>You could try DEACTIVEATE WINDOW "Standard"?
>>
>> Andy Crawshaw
>
>Andrew - that works for me from the command window but same code does nothing with I issue it within my prog_ini.prg.

I missed the beginning of the thread...but if you want your app to get rid of them, try:
PARAMETERS p_lKeepToolbars
LOCAL l_n
DIMENSION This.r_aSystemToolbars[12,2]

This.r_aSystemToolbars[ 1,1] = "Print Preview"
This.r_aSystemToolbars[ 2,1] = "Report Designer"
This.r_aSystemToolbars[ 3,1] = "Form Controls"
This.r_aSystemToolbars[ 4,1] = "Standard"
This.r_aSystemToolbars[ 5,1] = "Form Designer"
This.r_aSystemToolbars[ 6,1] = "Layout"
This.r_aSystemToolbars[ 7,1] = "Database Designer"
This.r_aSystemToolbars[ 8,1] = "View Designer"
This.r_aSystemToolbars[ 9,1] = "Report Controls"
This.r_aSystemToolbars[10,1] = "Color Palette"
This.r_aSystemToolbars[11,1] = "Query Designer"
This.r_aSystemToolbars[12,1] = "Debugger"

FOR l_n = 1 To 12
  IF WVISIBLE(This.r_aSystemToolbars[l_n, 1])
    This.r_aSystemToolbars[l_n, 2] = .T.
    IF NOT p_lKeepToolbars
      HIDE WINDOW (This.r_aSystemToolbars[l_n, 1])
    ENDIF
  ENDIF
ENDFOR
somewhere before unhiding the application window.

HTH
Phil Thomas
http://phillipdthomas.com

Never let your energy or enthusiasm be dampened by the discouragements that must inevitably come.....
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform