Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Standard Toolbar gets closed
Message
From
23/05/2003 16:08:18
Hans-Otto Lochmann
Dr. Lochmann Consulting Gmbh
Frankfurt, Germany
 
General information
Forum:
Visual FoxPro
Category:
CodeMine
Miscellaneous
Thread ID:
00791380
Message ID:
00792412
Views:
27
This message has been marked as the solution to the initial question of the thread.
>Hi All,
>
>Is there anyway to stop CodeMine from clearing my VFP Standard Toolbar when I initialize a Codemine environment or Open Existing app?
>
>I am using CM 7.1 and VFP 8
>
>TIA,
>Cris

Hi Cris,

it is easily done by this quick and dirty approach. But beware: by this you will change a CodeMine class, i.e. this change will be overwritten each time you update to the next version:

In the classlib
  ..\common50\cmApp.vcx
you will find a class called
  cmApplicationManager.vcx 
with a method called
  CloseFoxToolbars()
In this method you will find an If-clause, whose first portion (before the "else") does what you do not like. So comment that out. In order to be shure, everthing works as you want it to, I suggest that you change the if-clause to
  If Not This.lApplicationStarted
    * If called from development env, only close the standard toolbar.
    *-- HL/start
    *--  IF WVISIBLE('Standard')
    *--    HIDE WINDOW Standard
    *--    THIS.aFoxToolbars[1] = 'Standard'
    *--  ENDIF
    If Not Wvisible('Standard')
      Show Window Standard
    Endif
    *-- HL/end
  Else
    ...
    < left unchanged >
    ...
  endif
Hope, it helps.

Hans
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform