'File source from OnClickSoftware
'=======================================================
' Type Objet
' Classe QSplash version 1.0
'=======================================================
$IFNDEF TRUE
$DEFINE True 1
$ENDIF
$IFNDEF FALSE
$DEFINE False 0
$ENDIF
Type QSplash Extends QObject
PRIVATE:
form as QForm
PUBLIC:
Image as Qimage
'=======================
' Méthode Show
'=======================
Sub Show(Time as short)
QSplash.form.ClientWidth=QSplash.Image.Width
QSplash.form.ClientHeight=QSplash.Image.Height
QSplash.form.HideTitleBar
QSplash.form.Show
QSplash.form.Repaint
SLEEP Time
QSplash.form.Close
End Sub
Constructor
form.BorderStyle=3
form.Center
Image.parent=QSplash.form
Image.autosize=true
Image.left=0
Image.top=0
End Constructor
End Type