Qsplash Inc

'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