Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Splash Screen is not 'Splashing'
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00537883
Message ID:
00537896
Vues:
12
Wild guess but does your Config.fpw have a line

SCREEN = OFF


>I've created a few classes for some common tasks within a database application (User Information, System Configuration, User Management, About Box, etc). I have a little problem with my splash screen (that is a class too), it is not showing up. Here is the sequence of steps I make in the system startup:
>
>** MAIN PROGRAM
>* Do some sets (classlib, etc)
>
>* Create the splash object
>
>oSplash = NewObject("splash","general_classes")
>oSplash.Show()
>
>** oSplash.SHOW()
>LPARAMETERS nStyle
>
>DODEFAULT() && Don't know if I need to place this here
>
>&& Splash Screen should be displayed for 1,5 seconds, then create the other && objects and then release
>
>ThisForm.Timer1.Interval = 1500
>
>READ EVENTS && Start receiving windows events
>
>** oSplash.Timer1.Timer()
>
>This.Interval = 0 && Just need to show the Splash Screen once
>
>ThisForm.Startup() && Call the method that creates all the other objects
>
>----------
>Here are the properties of the splash class (form based)
>
>AllwaysOnTop = .T.
>AutoCenter = .T.
>BorderStyle = 1 (Fixed Single)
>Caption = (None)
>Closable = .F.
>ControlBox = .F.
>Desktop = .T.
>LockScreen = .F.
>MDIForm = .F.
>MaxButton = .F.
>MinButton = .F.
>Movable = .T.
>ShowWIndow = 2 (As Top Level)
>TitleBar = 0 (Off)
>Visible = .T.
>WindowState = 0 (Normal)
>WindowType = 1 (Modal)
>
>I don't know why the form isn't showing up (it is instantiated, and all code is executed).
>
>Based on past experiences when i asked something on the UT, I'm sure that my problem is something very stupid that i haven't noticed. :)
>
>Thanks again,
>
>Alonso
Bret Hobbs

"We'd have been called juvenile delinquents only our neighborhood couldn't afford a sociologist." Bob Hope
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform