2000-05-17 22:36

' Pixel by pixel credit scroller for Rapid-Q by William Yu

     DIM Canvas AS QCANVAS
     DIM Form AS QFORM
     DIM Timer1 AS QTIMER
     DIM Font AS QFONT
     DIM Y AS INTEGER
     Y = -20

     SUB Resize
      Canvas.Height = Form.ClientHeight
      Canvas.Width = Form.ClientWidth
     END SUB

     SUB Paint
      Canvas.Textout (65,Y-30,"Beware the power of Rapid-Q!", &H00FF00, 0)
      Canvas.Textout (30,Y,"Credit Scroller written in Rapid-Q by William Yu", &HFFFFFF, 0)
     END SUB

     SUB TimerOver
      Timer1.Interval = 1  '' Can't go any lower!
      Y = Y + 1            '' Pixel by pixel!
      Paint
     END SUB

     Form.Width = 400
     Form.Height = 200
     Form.Center
     Form.COLOR = 0

     Font.Name = "Arial"
     Font.Size = 12
     Font.COLOR = &H00FF00
     Canvas.PARENT = Form
     Canvas.Font = Font
     Canvas.COLOR = 0
     Canvas.OnPaint = Paint

     Timer1.Interval = 1
     Timer1.OnTimer = TimerOver

     Form.Onresize = Resize
     Form.SHOWMODAL

2000-05-17 22:36