LayoutPropertyInfo.cls [plain text]
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "LayoutPropertyInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'local variable(s) to hold property value(s)
Private mvarPName As String '
Private mvarDefaultValue As String '
Private mvarScope As Integer 'a mask indicating the types of graph elems
'(graph, node, edge) to which the prop is applicable
Private mvarEngine As Integer 'a mask indicating to which layout engine the
'prop is applicable
Public Property Let Engine(ByVal vData As Integer)
mvarEngine = vData
End Property
Public Property Get Engine() As Integer
Engine = mvarEngine
End Property
Public Function hasEngine(Engine As Integer) As Boolean
hasEngine = (mvarEngine And Engine) <> 0
End Function
Public Function isDot() As Boolean
isDot = (mvarEngine And DOT) <> 0
End Function
Public Function isNeato() As Boolean
isNeato = (mvarEngine And NEATO) <> 0
End Function
Public Function isTwopi() As Boolean
isTwopi = (mvarEngine And TWOPI) <> 0
End Function
Public Property Let Scope(ByVal vData As Integer)
mvarScope = vData
End Property
Public Property Get Scope() As Integer
Scope = mvarScope
End Property
Public Function hasScope(Scope As Integer) As Boolean
hasScope = (mvarScope And Scope) <> 0
End Function
Public Function isEdge() As Boolean
isEdge = (mvarScope And EDGE) <> 0
End Function
Public Function isNode() As Boolean
isNode = (mvarScope And NODE) <> 0
End Function
Public Function isGraph() As Boolean
isGraph = (mvarScope And GRAPH) <> 0
End Function
Public Property Let DefaultValue(ByVal vData As String)
mvarDefaultValue = vData
End Property
Public Property Get DefaultValue() As String
DefaultValue = mvarDefaultValue
End Property
Public Property Let PName(ByVal vData As String)
mvarPName = vData
End Property
Public Property Get PName() As String
PName = mvarPName
End Property