Guidance
指路人
g.yi.org
software / rapidq / Examples / QObject / InstallObs / QCircleBx.rqo

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

  
     TYPE QCircleBox EXTENDS QCANVAS

      CAPTION AS STRING
      Checked AS INTEGER
      HiLightColor AS INTEGER

      SUB DrawComponent
       IF QCircleBox.Checked THEN
        QCirclebox.circle(4,4,16,16,16053492,12632256)
        QCirclebox.Circle(6,6,14,14,10461087,65280)

       ELSE
        QCirclebox.circle(4,4,16,16,16053492,12632256)
        QCirclebox.circle(6,6,14,14,10461087,&HFFFFFF)
       END IF
       QCircleBox.TextOut(QCircleBox.Height + 5, QCircleBox.Height/2-QCircleBox.Height/4, QCircleBox.CAPTION, 0, -1)
      END SUB

      EVENT OnClick
       IF QCircleBox.Checked THEN
        QCircleBox.Checked = 0
       ELSE
        QCircleBox.Checked = 1
       END IF
       QCircleBox.DrawComponent
      END EVENT

      EVENT OnPaint
       QCircleBox.DrawComponent
      END EVENT

      CONSTRUCTOR
       Height = 20
       Width = 100
       HiLightColor = &H00FF00
       CAPTION = "CircleBox"
       Checked = 0
      END CONSTRUCTOR
     END TYPE
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2004-12-20 19:21:00