That was it - deleting FOXUSER.* on the offending machine solved the problem

Thanks all

Paul Newton

-----Original Message-----
From: ProfoxTech [mailto:[email protected]] On Behalf Of Richard Kaye
Sent: 27 August 2014 14:11
To: [email protected]
Subject: RE: VFP executable not using runtimes

A much more comprehensive solution than my little hack. And as mentioned in my 
other message, the presence or absence of a resource file can also contribute 
to when the standard toolbar appears.

--

rk
-----Original Message-----
From: ProfoxTech [mailto:[email protected]] On Behalf Of Frank 
Cazabon
Sent: Wednesday, August 27, 2014 9:01 AM
To: [email protected]
Subject: Re: VFP executable not using runtimes

Hi Paul,

that is not necessarily the conclusion to be drawn based on the fact that the 
development toolbars are visible when running your executable.  
It could be that the runtime is being used on his machines but that your code 
or resource file does not close the toolbars.  That's why Dave suggested using 
VERSION(2) to determine that.

I use the following code to hide and show toolbars when my application is 
running, whether in development or runtime (note you should include the toolbar 
names used in other languages besides English if your application might run on 
those languages):

DIMENSION _VFPToolbars[11,2]

PROCEDURE HideToolbars

* --- hide VFP toolbars
_VFPToolbars[1,1] = "Form Designer"
_VFPToolbars[2,1] = "Standard"
_VFPToolbars[3,1] = "Layout"
_VFPToolbars[4,1] = "Query Designer"
_VFPToolbars[5,1] = "View Designer"
_VFPToolbars[6,1] = "Color Palette"
_VFPToolbars[7,1] = "Form Controls"
_VFPToolbars[8,1] = "Database Designer"
_VFPToolbars[9,1] = "Report Designer"
_VFPToolbars[10,1] = "Report Controls"
_VFPToolbars[11,1] = "Print Preview"

LOCAL _Count
FOR _Count = 1 TO ALEN(_VFPToolbars,1)
    _VFPToolbars[_Count,2] = WVISIBLE(_VFPToolbars[_Count,1])
    IF _VFPToolbars[_Count,2]
       HIDE WINDOW (_VFPToolbars[_Count,1])
    ENDIF
ENDFOR


PROCEDURE ShowToolbars

* --- display the toolbars that were visible initially FOR _Count = 1 TO 
alen(_VFPToolbars,1)
     IF _VFPToolbars[_Count,2]
         SHOW WINDOW (_VFPToolbars[_Count,1])
     ENDIF
ENDFOR


[excessive quoting removed by server]

_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: 
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the 
author, and do not constitute legal or medical advice. This statement is added 
to the messages for those lawyers who are too stupid to see the obvious.

Reply via email to