Guidance
指路人
g.yi.org
software / rapidq / Examples / Graphics & Animation / rqlines.bas

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

  
' Rapid coloured lines drawing demo over a form.
' By Don <don67geo@yahoo.com>
     $APPTYPE GUI: $TYPECHECK ON

     DEFLNG hdc,gdc
     DEFINT clr,x1,x2,y1,y2

     DECLARE SUB epress (key AS BYTE)
     DECLARE SUB edraw

     DIM tick AS QDXTIMER
     tick.interval = 0
     tick.ontimer = edraw

     CREATE Me AS QFORM
      borderstyle = 3
      CAPTION = "Animate Lines"
      width = 440
      height = 340
      COLOR = &hffffff
      center
      onkeyup = epress
     END CREATE

     tick.enabled = 1
     Me.SHOWMODAL


     SUB epress (key AS BYTE)
      IF key = 27 THEN Me.CLOSE
     END SUB

     SUB edraw:
      x1=RND(Me.clientwidth):  x2=RND(Me.clientwidth)
      y1=RND(Me.clientheight): y2=RND(Me.clientheight)
      clr=RGB(RND(256),RND(256),RND(256))
      Me.Line x1,y1,x2,y2,clr
     END SUB

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2024-10-12  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2005-04-16 11:57:31