From 02ecb31ae7c084367be7a45e6bd44eacded4d889 Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Tue, 10 Jan 2023 09:22:51 +0100
Subject: [PATCH] - aggiunto export del progetto

---
 Icarus/Icarus.vbproj                       |   3 +++
 Icarus/ProjManager/ProjManagerV.xaml       |   6 ++++++
 Icarus/ProjManager/ProjManagerVM.vb        |  24 +++++++++++++++++++++
 Icarus/Resources/ProjectManager/Export.png | Bin 0 -> 603 bytes
 Icarus/SceneHost/MySceneHostVM.vb          |   4 ++++
 5 files changed, 37 insertions(+)
 create mode 100644 Icarus/Resources/ProjectManager/Export.png

diff --git a/Icarus/Icarus.vbproj b/Icarus/Icarus.vbproj
index a9dbcfa..5a73a62 100644
--- a/Icarus/Icarus.vbproj
+++ b/Icarus/Icarus.vbproj
@@ -671,6 +671,9 @@
   <ItemGroup>
     <Resource Include="Resources\SplashScreen\LogoEgalware.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ProjectManager\Export.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\Icarus\IcarusR32.exe
diff --git a/Icarus/ProjManager/ProjManagerV.xaml b/Icarus/ProjManager/ProjManagerV.xaml
index b414b6b..6d7b8e2 100644
--- a/Icarus/ProjManager/ProjManagerV.xaml
+++ b/Icarus/ProjManager/ProjManagerV.xaml
@@ -49,6 +49,12 @@
            Style="{StaticResource ToolBar_Button}">
       <Image Source="/Resources/ProjectManager/Import.png" Stretch="Uniform"/>
    </Button>
+   <Button Command="{Binding ExportCommand}"
+           ToolTip="{Binding ExportToolTip}"
+           IsEnabled="{Binding ProjCmd_IsEnabled}"
+           Style="{StaticResource ToolBar_Button}">
+      <Image Source="/Resources/ProjectManager/Export.png" Stretch="Uniform"/>
+   </Button>
    <!--<Button Command="{Binding ExportCommand}" ToolTip="{Binding ExportToolTip}"
          IsEnabled="{Binding DrawIsChecked}">
       <Image Source="/Resources/ProjectManager/Export.png" Stretch="Uniform"/>
diff --git a/Icarus/ProjManager/ProjManagerVM.vb b/Icarus/ProjManager/ProjManagerVM.vb
index 586b999..8458854 100644
--- a/Icarus/ProjManager/ProjManagerVM.vb
+++ b/Icarus/ProjManager/ProjManagerVM.vb
@@ -60,6 +60,7 @@ Public Class ProjManagerVM
    Private m_cmdSave As ICommand
    Private m_cmdSaveAs As ICommand
    Private m_cmdImport As ICommand
+   Private m_cmdExport As ICommand
    Private m_cmdOptions As ICommand
    Private m_cmdSendFeedback As ICommand
 
@@ -319,6 +320,29 @@ Public Class ProjManagerVM
 
 #End Region ' Import
 
+#Region "ExportCommand"
+
+   ''' <summary>
+   ''' Returns a command that do Export.
+   ''' </summary>
+   Public ReadOnly Property ExportCommand As ICommand
+      Get
+         If m_cmdExport Is Nothing Then
+            m_cmdExport = New Command(AddressOf Export)
+         End If
+         Return m_cmdExport
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the Export.  This method is invoked by the ExportCommand.
+   ''' </summary>
+   Public Sub Export(ByVal param As Object)
+      Map.refSceneHostVM.ExportProject()
+   End Sub
+
+#End Region ' ExportCommand
+
 #Region "Options"
 
    ''' <summary>
diff --git a/Icarus/Resources/ProjectManager/Export.png b/Icarus/Resources/ProjectManager/Export.png
new file mode 100644
index 0000000000000000000000000000000000000000..78ee3c7c3bfa18f6a62763d944e13243aaff3285
GIT binary patch
literal 603
zcmeAS@N?(olHy`uVBq!ia0vp^svyk41|*NpQ(y*CjKx9jP7LeL$-D$|SkfJR9T^xl
z_H+M9WCij$3p^r=85p>QK$!8;-MT+OLCF%=h?3y^w370~qEv>0#LT=By}Z;C1rt33
zJtM=93Yk-Zrk?h6aSVxYe>?r47gL}}+jB;y)_KkxRSmbk@j1@USiQUKD~ImwEgiR7
zT>>Wvy6n(!;#jHCrD4oly5(ZY8rPCt|F6g%dw3&h&O?taKMMZL{e3@w9kcOug+&XS
zd6y<SXWj^qGMmx{VqSP#_PFaLM`!V8CNma^8(FvCmrw0mx-#lpbO4v>?xociy6f`d
z4zw{e2TZt8q0)PbY4XY0TQ-$C@9frE7@m4qQPlgbWs<XUX+hlbt7mNI#?EdEQa?HG
zJ$Jk4c6T=~PTf9f+oVlF_D(Clb)EFAY%z(_G17c}^;v3z*eB1-jZZoRd#`*dd|R$K
zzeoJfJc-^`ebz}c)4iTc@Aawi&irFE>%@{}X7lI#UMxRn%6{dLm4CHQ|J<$T{dQkL
z(1}9Bh29VAw9Ip6-PGLuRAx@dyM?YdZ!fF%%Lv*L)$y>RZubL&xq3T<Gc7dN2!%z=
z7hWauPEzK5TDQse60g_ps^v<&>a8|Knl>*#9{E3=sow7t|ECK}y3&@f?cNhqv9wh}
z{c8V)C68V){@FBbwY6*9N`)3B)++}L_bxV^{jEJ}r+=vohsVnE2g{75Iu<$@uJ+(P
mk?`Bj6A`w+U=}ml$8f*Eyh(T6gKA*hGkCiCxvX<aXaWF^*a4OR

literal 0
HcmV?d00001

diff --git a/Icarus/SceneHost/MySceneHostVM.vb b/Icarus/SceneHost/MySceneHostVM.vb
index 4844ede..0b2a2e6 100644
--- a/Icarus/SceneHost/MySceneHostVM.vb
+++ b/Icarus/SceneHost/MySceneHostVM.vb
@@ -500,6 +500,10 @@ Public Class MySceneHostVM
       MainScene.SetStatusNull()
    End Sub
 
+   Public Overrides Sub ExportProject()
+      MainController.ExportProject(Path.ChangeExtension(MainController.GetCurrFile(), "dxf"))
+   End Sub
+
    Friend Shadows Sub ExecScript(sFilePath As String)
       If String.IsNullOrEmpty(sFilePath) Then
          Dim sDir As String = String.Empty