Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Timed Splash Screen

Tips -N- Tricks

Timed Splash Screen

by  danceman  Posted    (Edited  )
in your config.fpw file
SCREEN=OFF

in your main program
DO FORM splash WITH 60000 && show splash screen for one min
READ EVENTS

set the properties of the splash form
these settings are a must
WindowType = 0 && modeless
ShowWindow = 2 && as a top level form
Desktop = .t.

these settings are only to have the appearence of a splash screen, remove form attributes
AutoCenter = .t. && not a requirement
ClipControls = .f.
Closeable = .f.
MaxButton = .f.
MinButton = .f.

In the InitEvent of the form:
LPARAMETERS lnInterval
ThisForm.Timer1.Interval = lnInterval

In the Destroy event of the form:
clear events

Place a timer control on the form. In the TimerEvent place
ThisForm.Release()

Add what ever graphics and text to suit.

I have modified this to make a Security warning screen that requires user to ankowledge by clicking Accept button. If the form times out or user selects Reject the form returns .f. to main calling program or in the Unloadevent of the form

if !thisform.returnvalue
quit
endif

Register to rate this FAQ  : BAD 1 2 3 4 5 6 7 8 9 10 GOOD
Please Note: 1 is Bad, 10 is Good :-)

Part and Inventory Search

Back
Top