Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Splash Screen is not 'Splashing'
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00537883
Message ID:
00538286
Views:
11
>Hi Alonso,
>
>Check this aproach, it's very simple but it works fine in all my apps.
>
> Program Start
>
> . . .
>
> oSplash = CreateObject ("frmSplash")
> oSplash.Show ()
>
> . . . (Init code ...)
>
> Some latter...
>
> InKey   (0.5)  (just to allow user to see it at last for 0.5 sec < s >)
> Release oSplash
> Application.Visible   = .T.  && Deve haver um 'Screen = Off' no Config.Fpw para Iniciar a Aplicação de forma 'Invisível'
>
> . . .
>
> End of program
>
> . . .
>
>*====== ===== ========= == ====
> Define Class frmSplash as Form
>*====== ===== ========= == ====
>
>        ShowWindow        =   2
>        WindowType        =   0
>        ScaleMode         =   3
>        Name              = "frmSplash"
>        Caption           =  ". . ."
>        Icon              =  ". . ."
>
>        Height            = 240
>        Width             = 460
>
>        MaxHeight         = 282
>        MaxWidth          = 493
>
>        AlWaysOnTop       =  .T.
>        AutoCenter        =  .T.
>        Enabled           =  .T.
>
>        ColorSource       =   4
>        BackColor         = RGB (. . .)
>        BorderStyle       =   0
>
>        Closable          =  .T.
>        ControlBox        =  .T.
>        ZoomBox           =  .F.
>        SizeBox           =  .F.
>        MaxButton         =  .F.
>        MinButton         =  .F.
>        Movable           =  .F.
>
>        Add Object imgAbout as Image  with Top         =   0    , ;
>                                           Left        =  10    , ;
>                                           Height      = ...    , ;
>                                           Width       = ...    , ;
>                                           Picture     = ". . .", ;
>                                           Stretch     =   2    , ;
>                                           BackStyle   =   0    , ;
>                                           BorderStyle =   0
>
>  . . . (other stuff)
>
> EndDefine
>
>
>Hope this helps,
>
>Fernando

Thanks, Fernando and Bret!

I think i'm going to change a few things here and use some of your suggestions.

I'll let you know if it worked.

Alonso
Like Frank said: "I did it... MY WAY!"
Previous
Reply
Map
View

Click here to load this message in the networking platform