2004-06-08 05:10

' degrad.bas for RapidQ
' Coded by Gérald VERDIER - BinoclaR (°-°) software
' may 2004
' email : gerald.verdier@club-internet.fr
' PURPOSE : color Fx for form (or splash form)

     DECLARE SUB degrad

     CREATE form AS QFORM
      CAPTION = "________..._(°-°)_...________"
      center
      onPaint = degrad
      SHOWMODAL
     END CREATE

     SUB degrad
      FOR i = 0 TO 254
       Form.Line (0, i + 1,Form.Width, i + 1,RGB(255 - i, 0, 0))
		' now red. green:RGB(0, 255 - i, 0) and blue:RGB(0, 0, 255 - i)
      NEXT i
     END SUB

2004-06-08 05:10