2013-06-19 07:49

     $INCLUDE "RAPIDQ.INC"
     $INCLUDE "meteo.rqb"

     DECLARE SUB Start
     DECLARE SUB CloseSplashForm
     DECLARE SUB DisplaySplashForm
     $RESOURCE splash AS "gfx\splash.bmp"

     CONST Max = 200000
     CREATE SplashTimer AS QTIMER
      interval=1
      ontimer=DisplaySplashForm
      enabled=1
     END CREATE

     CREATE SplashForm AS QFORM
      CAPTION = "SplashForm"
      Width = 400
      Height = 120
      borderstyle=0
      COLOR=&Hffffff
      Center
      CREATE label2 AS QLABEL
       width=144
       height=15
       top=SplashForm.height/2-label2.height/2
       left=SplashForm.width/2-label2.width/2
       Alignment = 2
      END CREATE
      CREATE Gauge AS QGAUGE
       Height = 20
       Max = Max
       Align = 2
       kind=1
       ForeColor=&HFF6666
       BackColor=&Hffffff
       ShowText=0
      END CREATE
      CREATE imagea AS QIMAGE
       bmphandle=splash
       autosize=1
      END CREATE
     END CREATE

     SplashFOrm.SHOWMODAL

     SUB DisplaySplashForm
      SplashForm.Show
      SplashTimer.Interval=4000
      SplashTimer.OnTimer=CloseSplashForm


      FOR A = 1 TO Max
       DOEVENTS
       Gauge.Position = A
      NEXT
     END SUB

     SUB CloseSplashForm
      SplashForm.visible=false
      form.visible=true

     END SUB

2013-06-19 07:49