EgtCAM5 :
- Migliorie varie.
This commit is contained in:
@@ -1,4 +1,5 @@
|
||||
Imports System.Collections.ObjectModel
|
||||
Imports EgtUILib
|
||||
|
||||
Public Class LayerTreeViewItem
|
||||
Inherits TreeViewItemBase
|
||||
@@ -26,7 +27,16 @@ Public Class LayerTreeViewItem
|
||||
Return m_OnOff
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_OnOff = value
|
||||
If m_OnOff <> value Then
|
||||
m_OnOff = value
|
||||
' eseguo operazione
|
||||
Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, Id)
|
||||
If value Then
|
||||
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SHOW)
|
||||
Else
|
||||
Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.HIDE)
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
@@ -53,7 +63,7 @@ Public Class LayerTreeViewItem
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New(Id As Integer, Name As String, Image As String, CurrColor As System.Drawing.Color)
|
||||
Sub New(Id As Integer, Name As String, Image As String, CurrColor As Color3d)
|
||||
MyBase.New(Name)
|
||||
Me.m_Id = Id
|
||||
Me.PictureString = Image
|
||||
|
||||
Reference in New Issue
Block a user