Guidance
指路人
g.yi.org
software / rapidq / examples / GUI / form / primary.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
' 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



掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sun 2023-1-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2004-06-08 05:16:54