Emmanuele Sassi
20 lines
490 B
VB.net
20 lines
490 B
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class MyShowPanelVM
|
|
Inherits ShowPanelVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' modo di visualizzazione
|
|
Dim nShowMode As Integer = GetMainPrivateProfileInt(S_SCENE, K_SHOWMODE, SM.SHADING)
|
|
Map.refShowPanelVM.SetShowMode(DirectCast(nShowMode, SM))
|
|
' visualizzazione freccia direzione su curve
|
|
Map.refShowPanelVM.CurveDirIsChecked = EgtGetShowCurveDirection()
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
|
|
End Class |