| Documentation component by D.Glodt (c)2003 | Appendix A: QSplash |
|
|
|
| Champs | Type | R/W | Défault | |
|
|
|
|
|
|
| Image | QIMAGE | R/W | ||
| Image to show | ||||
| Text | STRING | R/W | ||
| Text about application | ||||
| TextFont | QFONT | R/W | ||
| TextTransparent | BOOLEAN | R/W | False | |
| Display text on image | ||||
| TextCenter | BOOLEAN | R/W | False | |
| Text centered horizontal | ||||
| TextLeft | SHORT | R/W | ||
| TextTop | SHORT | R/W | ||
| Actif if property TextTransparent at True |
| Method | Type | Description | Params | |
|
|
|
|
|
|
| Show | SUB(Time%) | Show banner | 1 |
| Event | Type | Occurs when... | Params | |
|
|
|
|
|
|
QSplash Example
$TYPECHECK ON
$INCLUDE "RAPIDQ.INC"
$INCLUDE "Object\QSplash.inc"
DECLARE SUB DisplaySplashForm
$resource banner as "banner.bmp"
Dim splash as QSplash
splash.image.bmphandle=banner
splash.TextCenter=True
splash.TextFont.size=10
splash.Text="Version 1.0 Copyright(c) D.Glodt"
CREATE MainForm AS QFORM
Caption = "MainForm"
Width = 520
Height = 340
Center
OnShow=DisplaySplashForm
END CREATE
SUB DisplaySplashForm
Splash.Show(3)
End Sub
MainForm.ShowModal