Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Make an EXE? Newbie VFP6
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00170938
Message ID:
00171099
Views:
30
Here is my main.prg, can anyone comment on this so I can
flesh it out better? I am trying to make a .EXE at this
point. I am coming from the FPW2.6 world, so anything
that would make my app more "VFP-like" would be helpful.
I saw somewhere that I should use an application class
(call an application class?) in my main.prg.

(tabs and s removed)

do setup
do mainmenu
do evloop
do cleanup

Procedure SETUP
set default to '\\peewee2\dbdev\bftmax98'
&& What is best way to make this ask the
&& user where the data is just one time?
on shutdown do CleanUp
set century on
set mark to '.'
set date to ansi
set deleted on
set multilocks on
set escape on
set optimize on
set refresh to 0,0
set sysmenu to default
set talk off
set view off
_Screen.Icon = 'DEVCFT.ICO'
set sysmenu off
Return .t.

Procedure MainMenu
Do Menu01.mpr
return .t.

Procedure EvLoop
&& Is there a better way to show the Splash
&& Screen form and hold it there until the
&& last "noshow" slow-loading form is ready?
do form Splash
do form OrdProc noshow
do form CatBrows1 noshow
do form CatBrows2 noshow
do form MaxBar01
&& Since forms take a long time
&& to load data sessions, I thought
&& this might trick them into all
&& loading at app "boot time".
read events
return .t.

Procedure CleanUp
clear events
wait window 'Shutdown trap from setup environment' nowait
clear all
close all
flush
quit
return .t.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform