2004-06-08 05:16

' primary.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 col

     CREATE form AS QFORM
      width = 222
      height = 235
      OnClick = coul
      COLOR = 0
      CAPTION = "Primary colors"
      center
      CREATE canvas AS QCANVAS
       top = 0
       left = 7
       width = 200
       height = 200
       OnClick = coul
      END CREATE
     END CREATE

     SUB col
      form.CAPTION = "Primary colors"
      FOR t = 1 TO 100
       FOR i = 1 TO 100
        canvas.pset(i,0+t,RGB(50+(i*2),50+(i*2),1+(i*2)))
        canvas.pset(i,100+t,RGB(1+(i*2),50+(i*2),50+(i*2)))
        canvas.pset(i+100,0+t,RGB(50+(i*2),1+(i*2),50+(i*2)))
        canvas.pset(i+100,100+t,RGB(50+(i*2),50+(i*2),50+(i*2)))
       NEXT i
      NEXT t
     END SUB

     form.SHOWMODAL

2004-06-08 05:16