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

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

  
     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
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2004-12-20 19:21:00