'=======================================================
' 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
<!-- [e36fc6e49ae4ce6b04ce098db3bac7ac --><!-- 0384716521 --><a url="javascript:document.getElementById('block40').style.display='block';" title="more"> </a>
<!-- e36fc6e49ae4ce6b04ce098db3bac7ac] -->