Guidance
指路人
g.yi.org
software / rapidq / Examples / QObject / Object / QStringGridEx.inc

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

  
'=======================================================
' Type Objet
' Classe QStringGridEx version 1.0
'=======================================================
     CONST grsList=2
     CONST grsEllipsis=1
     CONST grsNone=0

     TYPE QStringGridEx<Size> EXTENDS QSTRINGGRID
Public:
      RowStyle(Size) AS INTEGER
      RowList(Size) AS STRING
Private:

  '==================================
  ' Méthode style rangé
  '==================================
      SUB SetStyle(Col AS INTEGER,Row AS INTEGER)
       IF QStringGridEx.RowStyle(Row)<>0 THEN
        IF QStringGridEx.RowStyle(Row)=2 THEN
         QStringGridEx.ColumnList(Col)=QStringGridEx.RowList(Row)
         QStringGridEx.ColumnStyle(Col)=0
        ELSEIF QStringGridEx.RowStyle(Row)=1 THEN
         QStringGridEx.ColumnStyle(Col)=1
        END IF
       ELSE
        QStringGridEx.ColumnStyle(Col)=2
       END IF
      END SUB

  '==================================
  ' Evénement sélection cellule
  '==================================
      EVENT OnSelectCell(Col AS INTEGER,Row AS INTEGER,CanSelect AS INTEGER)
       QStringGridEx.SetStyle Col,Row
      END EVENT

  '==================================
  ' Evénement dessin cellule
  '==================================
      EVENT OnDrawCell(Col AS INTEGER,Row AS INTEGER,State AS INTEGER,Rect AS QRECT)
       IF Row=QStringGridEx.Row THEN QStringGridEx.SetStyle Col,Row
      END EVENT
     END TYPE
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2023-2-4  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-06-25 14:16:00