2004-12-20 19:21

     TYPE QDiamondBox EXTENDS QCANVAS

      CAPTION AS STRING
      Checked AS INTEGER
      HiLightColor AS INTEGER


      SUB DrawComponent
       IF QDiamondBox.Checked THEN
        QDiamondBox.Line(QDiamondBox.Height/2,0,0,QDiamondBox.Height/2,0)
        QDiamondBox.Line(0,QDiamondBox.Height/2,QDiamondBox.Height/2,QDiamondBox.Height,0)
        QDiamondBox.Line(QDiamondBox.Height/2,0,QDiamondBox.Height,QDiamondBox.Height/2,0)
        QDiamondBox.Line(QDiamondBox.Height,QDiamondBox.Height/2,QDiamondBox.Height/2,QDiamondBox.Height,0)
        QDiamondBox.Paint(QDiamondBox.Height/2, QDiamondBox.Height/2, QDiamondBox.HiLightColor, 0)
        QDiamondBox.Line(QDiamondBox.Height/2,0,QDiamondBox.Height,QDiamondBox.Height/2,&HFFFFFF)
        QDiamondBox.Line(QDiamondBox.Height,QDiamondBox.Height/2,QDiamondBox.Height/2,QDiamondBox.Height,&HFFFFFF)
       ELSE
        QDiamondBox.Line(QDiamondBox.Height/2,0,0,QDiamondBox.Height/2,0)
        QDiamondBox.Line(0,QDiamondBox.Height/2,QDiamondBox.Height/2,QDiamondBox.Height,0)
        QDiamondBox.Line(QDiamondBox.Height/2,0,QDiamondBox.Height,QDiamondBox.Height/2,0)
        QDiamondBox.Line(QDiamondBox.Height,QDiamondBox.Height/2,QDiamondBox.Height/2,QDiamondBox.Height,0)
        QDiamondBox.Paint(QDiamondBox.Height/2, QDiamondBox.Height/2, &HBBBBBB, 0)
        QDiamondBox.Line(QDiamondBox.Height/2,0,0,QDiamondBox.Height/2,&HFFFFFF)
        QDiamondBox.Line(0,QDiamondBox.Height/2,QDiamondBox.Height/2,QDiamondBox.Height,&HFFFFFF)
       END IF
       QDiamondBox.TextOut(QDiamondBox.Height + 5, QDiamondBox.Height/2-QDiamondBox.Height/4, QDiamondBox.CAPTION, 0, -1)
      END SUB

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

      EVENT OnPaint
       QDiamondBox.DrawComponent
      END EVENT

      CONSTRUCTOR
       Height = 20
       Width = 100
       HiLightColor = &H00FF00
       CAPTION = "DiamondBox"
       Checked = 0
      END CONSTRUCTOR
     END TYPE

2004-12-20 19:21