Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Toolbar
Message
From
22/11/2001 07:03:52
Alexandre Palma
Harms Software, Inc.
Alverca, Portugal
 
 
To
22/11/2001 06:44:39
Emerson Reed
Folhamatic Tecnologia Em Sistemas
Americana - São Paulo, Brazil
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00584836
Message ID:
00584865
Views:
41
This message has been marked as the solution to the initial question of the thread.
That depends of how are you using the toolbars for example you have a form that enables the user to chose the toolbars that he whants like vfp office
on the init of the form you can do the following:
Thisform.chk.standard.Value = (VARTYPE(omymainform.oToolStandard) = 'O')
*do simillars to the other's toolbars.
Now on the Release of the form fo the following:
IF Thisform.chk.standard.Value
  IF VARTYPE(omymainform.oToolStandard) # 'O'
    omymainform.ADDOBJECT('oToolStandard', 'mystandardtoolbarclass')
    omymainform.oToolStandard.Visible = .t.
  ENDIF
ELSE
   IF VARTYPE(omymainform.oToolStandard) # 'O'
     omymainform.REMOVEOBJECT('oToolStandard')
   ENDIF
ENDIF
*do simillars to the other's toolbars.
>I need to create a function that verifies if the toolbar wasn't released. If yes, I'll create a new instance of my toolbar... I thought that I had a more easy way to do this!
>Do you have any other idea?
>
>Emerson Santon Reed
>emerson@folhamatic.com.br
Alexandre Palma
Senior Application Architect
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform