home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / CLASSES / VCIRCLE.PRG < prev    next >
Text File  |  1994-06-04  |  1KB  |  66 lines
  1. // Warning: Under construction. Not available yet!
  2.  
  3. #include "FiveWin.ch"
  4.  
  5. static lRegistered := .f.
  6.  
  7. //----------------------------------------------------------------------------//
  8.  
  9. CLASS TVbCircle FROM TVbControl
  10.  
  11.    DATA    CtlName
  12.    DATA    Index
  13.    DATA    ForeColor
  14.    DATA    Top
  15.    DATA    Width
  16.    DATA    Height
  17.    DATA    Enabled
  18.    DATA    MousePointer
  19.    DATA    DragMode
  20.    DATA    DragIcon
  21.    DATA    BorderStyleOff
  22.    DATA    Text
  23.    DATA    CircleShape
  24.    DATA    FlashColor
  25.    DATA    FontName
  26.    DATA    FontBold
  27.    DATA    FontItalic
  28.    DATA    FontStrike
  29.    DATA    FontUnder
  30.    DATA    FontSize
  31.    DATA    TabIndex
  32.    DATA    TabStop
  33.    DATA    Parent
  34.    DATA    Tag
  35.    DATA    Visible
  36.    DATA    Caption
  37.    DATA    BackColor
  38.  
  39.    METHOD ReDefine( nId, oWnd )
  40.    METHOD ClickIn()   VIRTUAL
  41.    METHOD ClickOut()  VIRTUAL
  42.    METHOD DragDrop()  VIRTUAL
  43.    METHOD DragOver()  VIRTUAL
  44.  
  45.    METHOD Click() BLOCK { || MsgInfo( "Click" ) }
  46.  
  47. ENDCLASS
  48.  
  49. //----------------------------------------------------------------------------//
  50.  
  51. METHOD ReDefine( nId, oWnd ) CLASS TVbCircle
  52.  
  53.    ::nId  = nId
  54.    ::oWnd = oWnd
  55.  
  56.    if ! lRegistered
  57.       lRegistered = .T.
  58.       ::VbxRegister( "CIRC3.VBX" )
  59.    endif
  60.  
  61.    ::oWnd:DefControl( Self )
  62.  
  63. return Self
  64.  
  65. //----------------------------------------------------------------------------//
  66.