diff --git a/Icarus/Icarus.vbproj b/Icarus/Icarus.vbproj
index b0203e4..6fb16d6 100644
--- a/Icarus/Icarus.vbproj
+++ b/Icarus/Icarus.vbproj
@@ -46,6 +46,9 @@
x64
true
+
+ Resources\Icarus.ico
+
False
@@ -55,8 +58,8 @@
False
..\ExtLibs\EgtWPFLib5.dll
-
- packages\Ionic.Zip.1.9.1.8\lib\Ionic.Zip.dll
+
+ ..\..\..\EgtProg\Icarus\Ionic.Zip.dll
@@ -437,7 +440,7 @@
-
+
diff --git a/Icarus/ImportPanel/ImportUtility.vb b/Icarus/ImportPanel/ImportUtility.vb
index 719b5e2..5ee400b 100644
--- a/Icarus/ImportPanel/ImportUtility.vb
+++ b/Icarus/ImportPanel/ImportUtility.vb
@@ -74,6 +74,8 @@ Public Class GeomEntity
Return "┴"
Case ChooseReferenceWndVM.References.MC
Return "┼"
+ Case Else
+ Return "X"
End Select
End Get
End Property
diff --git a/Icarus/MachSaveInDbWnd/MachSaveInDbWindowV.xaml b/Icarus/MachSaveInDbWnd/MachSaveInDbWindowV.xaml
index fec8a2f..5064e43 100644
--- a/Icarus/MachSaveInDbWnd/MachSaveInDbWindowV.xaml
+++ b/Icarus/MachSaveInDbWnd/MachSaveInDbWindowV.xaml
@@ -6,7 +6,7 @@
Title="Machining Param Name"
Height="150" Width="300"
WindowStartupLocation="CenterOwner"
- Icon="/Resources/EgtBEAMWALL.ico"
+ Icon="/Resources/Icarus.ico"
WindowStyle="None" ResizeMode="NoResize"
ShowInTaskbar="False"
IsMinimizable="False">
diff --git a/Icarus/MainWindow/MainWindowV.xaml b/Icarus/MainWindow/MainWindowV.xaml
index a1974cc..bbb5a95 100644
--- a/Icarus/MainWindow/MainWindowV.xaml
+++ b/Icarus/MainWindow/MainWindowV.xaml
@@ -4,7 +4,7 @@
xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
xmlns:PrintApp="clr-namespace:Icarus"
Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
- Title="{Binding sTitle}" Icon="/Resources/EgtBEAMWALL.ico"
+ Title="{Binding sTitle}" Icon="/Resources/Icarus.ico"
MinHeight="600" MinWidth="800"
AboutBoxCommand="{Binding AboutBoxCommand}" WindowStyle="None" ResizeMode="NoResize"
AllowDrop="True" Drop="MainWindowV_Drop"
diff --git a/Icarus/MainWindow/MainWindowVM.vb b/Icarus/MainWindow/MainWindowVM.vb
index b8356e9..de4b95e 100644
--- a/Icarus/MainWindow/MainWindowVM.vb
+++ b/Icarus/MainWindow/MainWindowVM.vb
@@ -42,6 +42,7 @@ Public Class MainWindowVM
Public Property nSelTabPage As Integer
Get
' Return If(IsNothing(Map.refMainMenuVM.SelPage) OrElse Map.refMainMenuVM.SelPage = -1 OrElse Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.MACHINING, 0, 1)
+ Return -1
End Get
Set(value As Integer)
End Set
@@ -110,7 +111,7 @@ Public Class MainWindowVM
Friend Sub ContentRendered()
Map.refTopPanelVM.SelPage = Pages.NULL
'DbControllers.Init()
- ''' chiamata a caso su Db per inizializzarlo
+ '' chiamata a caso su Db per inizializzarlo
'DbControllers.m_ProjController.FindByProjDbId(0)
'' Verifico che l'inizializzazione di tutte le parti del programma sia andata a buon fine
'If Map.EndInit() Then
diff --git a/Icarus/My Project/AssemblyInfo.vb b/Icarus/My Project/AssemblyInfo.vb
index 3cf0f28..2f8c643 100644
--- a/Icarus/My Project/AssemblyInfo.vb
+++ b/Icarus/My Project/AssemblyInfo.vb
@@ -13,7 +13,7 @@ Imports System.Windows
-
+
@@ -55,5 +55,5 @@ Imports System.Windows
' by using the '*' as shown below:
'
-
-
+
+
diff --git a/Icarus/ReferencePanel/ReferencePanelVM.vb b/Icarus/ReferencePanel/ReferencePanelVM.vb
index bce1bfb..3f14924 100644
--- a/Icarus/ReferencePanel/ReferencePanelVM.vb
+++ b/Icarus/ReferencePanel/ReferencePanelVM.vb
@@ -129,6 +129,8 @@ Public Class ReferenceBtn
Return "┴"
Case References.MC
Return "┼"
+ Case Else
+ Return "X"
End Select
End Get
End Property
diff --git a/Icarus/Resources/EgtBEAMWALL.ico b/Icarus/Resources/Icarus.ico
similarity index 75%
rename from Icarus/Resources/EgtBEAMWALL.ico
rename to Icarus/Resources/Icarus.ico
index 90d6296..49429c5 100644
Binary files a/Icarus/Resources/EgtBEAMWALL.ico and b/Icarus/Resources/Icarus.ico differ
diff --git a/Icarus/RibPanel/RibPanelVM.vb b/Icarus/RibPanel/RibPanelVM.vb
index 19c9de2..b8d2eb4 100644
--- a/Icarus/RibPanel/RibPanelVM.vb
+++ b/Icarus/RibPanel/RibPanelVM.vb
@@ -478,6 +478,7 @@ Public Class RibPanelVM
EgtSelectObj(m_SelRib.nExtrusionId)
End Select
EgtDraw()
+ Return True
End Function
Friend Sub UpdateUi()
diff --git a/Icarus/SceneHost/MySceneHostVM.vb b/Icarus/SceneHost/MySceneHostVM.vb
index 545b87a..bb95f93 100644
--- a/Icarus/SceneHost/MySceneHostVM.vb
+++ b/Icarus/SceneHost/MySceneHostVM.vb
@@ -202,7 +202,7 @@ Public Class MySceneHostVM
MainScene.SetGridCursorPos(True)
' modo di visualizzazione
Dim nShowMode As Integer = GetMainPrivateProfileInt(S_SCENE, K_SHOWMODE, SM.SHADING)
- '''Map.refShowPanelVM.SetShowMode(DirectCast(nShowMode, SM))
+ 'Map.refShowPanelVM.SetShowMode(DirectCast(nShowMode, SM))
' visualizzazione avanzata dei triangoli costituenti le superfici
Dim bShowTriaAdv As Boolean = (GetMainPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1) <> 0)
EgtSetShowTriaAdv(bShowTriaAdv)
@@ -216,9 +216,9 @@ Public Class MySceneHostVM
MainScene.SetSnapPointType(SP.PT_SKETCH)
' visualizzazione assemblato
Dim nShowBuilding As Boolean = GetMainPrivateProfileInt(S_SCENE, K_SHOWBUILDING, 0) <> 0
- '''Map.refShowBeamPanelVM.SetShowBuilding(nShowBuilding)
+ 'Map.refShowBeamPanelVM.SetShowBuilding(nShowBuilding)
' nascondo input box
- '''Map.refFreeContourInputVM.ResetInputBox()
+ 'Map.refFreeContourInputVM.ResetInputBox()
End Sub
Friend Sub EmitTitle()
@@ -393,7 +393,7 @@ Public Class MySceneHostVM
MainScene.SetStatusNull()
End Sub
- Friend Sub ExecScript(sFilePath As String)
+ Friend Shadows Sub ExecScript(sFilePath As String)
If String.IsNullOrEmpty(sFilePath) Then
Dim sDir As String = String.Empty
'GetMainPrivateProfileString(S_GENERAL, K_LASTLUADIR, "", sDir)
diff --git a/Icarus/SecondaryWindow/SecondaryWindowV.xaml b/Icarus/SecondaryWindow/SecondaryWindowV.xaml
index da13014..961c8a1 100644
--- a/Icarus/SecondaryWindow/SecondaryWindowV.xaml
+++ b/Icarus/SecondaryWindow/SecondaryWindowV.xaml
@@ -4,7 +4,7 @@
xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
xmlns:PrintApp="clr-namespace:Icarus"
Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
- Title="{Binding sTitle}" Icon="/Resources/EgtBEAMWALL.ico"
+ Title="{Binding sTitle}" Icon="/Resources/Icarus.ico"
WindowStyle="None" ResizeMode="NoResize"
ShowInTaskbar="False"
AllowsTransparency="True"
diff --git a/Icarus/SimulationPanel/SimulationPanelVM.vb b/Icarus/SimulationPanel/SimulationPanelVM.vb
index f806c4b..155cd04 100644
--- a/Icarus/SimulationPanel/SimulationPanelVM.vb
+++ b/Icarus/SimulationPanel/SimulationPanelVM.vb
@@ -219,7 +219,7 @@ Public Class SimulationPanelVM
' Return False
' End If
'End If
- 'Return True
+ Return True
End Function
Friend Sub ExitSimulation()
diff --git a/Icarus/SliceManager/SliceManagerVM.vb b/Icarus/SliceManager/SliceManagerVM.vb
index 5a1a63b..51d8b63 100644
--- a/Icarus/SliceManager/SliceManagerVM.vb
+++ b/Icarus/SliceManager/SliceManagerVM.vb
@@ -118,6 +118,7 @@ Public Class SliceManagerVM
'Else
' Return 0
'End If
+ Return 0
End Function
Friend Function CalcSlice(bSlice As Boolean, bCalcTFS As Boolean, bGenerate As Boolean) As Boolean
diff --git a/Icarus/StartMachPanel/StartMachPanelVM.vb b/Icarus/StartMachPanel/StartMachPanelVM.vb
index bf97085..3d39072 100644
--- a/Icarus/StartMachPanel/StartMachPanelVM.vb
+++ b/Icarus/StartMachPanel/StartMachPanelVM.vb
@@ -348,6 +348,7 @@ Public Class StartMachPanelVM
' seleziono percorso corrente
EgtDeselectAll()
EgtSelectObj(m_SelStart.nId)
+ Return True
End Function
Friend Sub UpdateUi()
diff --git a/Icarus/Utility/CurrentMachine.vb b/Icarus/Utility/CurrentMachine.vb
index 2c0848e..43cae01 100644
--- a/Icarus/Utility/CurrentMachine.vb
+++ b/Icarus/Utility/CurrentMachine.vb
@@ -1,6 +1,5 @@
Imports System.Collections.ObjectModel
Imports System.IO
-Imports EgtBEAMWALL.Core
Imports EgtUILib
Imports EgtWPFLib5