General information
Category:
Forms & Form designer
Title:
Metrosplash screen for atleast five secs
I would like to show the splash screen for atleast 5 secs before going to the actual forms.
Could you please tell me how i can do that.
whenever the icon(exe) is doubled clicked it calls the menumain.prg at the beginning
in that program the following code is written in it.
in this program it is actually calling the metrosplash.scx in the picture property of the form i am showing a picture.
there is no other code in that form.
I want to show that form for atleast five seconds right now it is staying for may be a second.
Thank you
****************Code starts here***********
* run a small splash screen on start up
DO FORM "FORMS\METROSPLASH" NAME splash LINK
* set this flag if version needs to be reinstalled
SET TALK OFF
SET EXCL OFF
SET MULTILOCKS ON
SET DELETE OFF
SET ESCAPE OFF
SET PATH TO "I:\RCCTEST\vfp pmis\VFP PMIS\PROGRAMS"
SET CENTURY TO 19 ROLLOVER 80
PUBLIC datapath,gUser,mViewType,mAccess,mUserPath,gSecurity,mDataPath,gUserName,mLocalPath
PUBLIC gUserPhone,gUserDept,guser_id,gUserEmail,gUserTitle
PUBLIC p_options,c_options,s_options,u_options,i_options,menumain,MVAR,gTimer,gcompany,gDataSession
PUBLIC nBuffering,OverRideMessage,UseRR_Control,DoubleClick,mAltPath,gAlt_Flag,gDrawPath
PUBLIC ARRAY anInstance(1),aLiteral(21,2)
STORE "" TO gUserDept,gUserPhone,gUserEmail,gUserTitle
STORE "" TO gUser,mAccess,mViewType,datapath,mUserPath,gSecurity,mDataPath,mLocalPath,gDrawPath
STORE "" TO p_options,c_options,s_options,u_options,i_options,mHelpFile,gcompany,gUserName,mAltPath
STORE 0 TO gDataSession,guser_id
STORE testing TO OverRideMessage
STORE .F. TO UseRR_Control
STORE .F. TO gReInstall
STORE .F. TO DoubleClick
STORE .F. TO gAlt_Flag
** set the buffering mode to && optimistic table buffering
STORE 5 TO nBuffering
* lengthen the time that a user can have between key strokes on pick lists
STORE 1.0 TO _DBLCLICK
* check for any command prompt parameters
ON KEY LABEL F8 OverRideMessage = .T.
* run a routine to close all apps if user closes menu via Windows shutdown
IF NOT Testing
ON ERROR DO "I:\RCCTEST\vfp pmis\VFP PMIS\PROGRAMS\errhand" WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
ON SHUTDOWN DO "i:\RCCTEST\vfp pmis\VFP PMIS\PROGRAMS\closeApps"
ELSE
SET ESCAPE ON
ENDIF
******************end******************
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only