2004-12-20 19:21

     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

2004-12-20 19:21