Aggiornamento versione 2.7g1

- ricompilazione con cambio versione.

AboutBoxWindow/AboutBoxV.xaml

@@ -31,7 +31,7 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
             <Border Name="LogoBrd" Grid.Column="1" Background="White">
-               <Image Source="/Resources/LogoOmag.jpg" Stretch="Uniform"/>
+               <Image Source="/Resources/AboutBoxImage.png" Stretch="Uniform"/>
             </Border>
          </Grid>
          <TextBlock Name="DescriptionLbl" Grid.Column="1" Grid.Row="3" HorizontalAlignment="Center"

MainWindow/MainWindowM.vb

@@ -209,8 +209,8 @@ Public Class MainWindowM
       Dim bNetHwKey As Boolean = (GetMainPrivateProfileInt(S_GENERAL, K_NETKEY, 0) = 1)
       EgtSetNetHwKey(bNetHwKey)
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2603, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2603, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2707, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(9423, 2707, 1, m_nKeyOptions)
       ' Verifico abilitazione prodotto
       Dim bProd As Boolean = GetKeyOption(KEY_OPT.PHOTO_BASE)
       ' Inizializzazione generale di EgtInterface
@@ -288,6 +288,7 @@ Public Class MainWindowM
       ' Info su opzioni chiave
       EgtOutLog("KeyOptions : " & bKey.ToString() & " " & m_nKeyOptions.ToString() & " " & bProd.ToString())
       ' Imposto parametri EgtPHOTOLib
+      EgtPHOTOLib.MainData.SetDebugLevel(m_nDebug)
       EgtPHOTOLib.MainData.SetConfigDir(m_sConfigDir)
       EgtPHOTOLib.MainData.SetKeyLevel(m_nKeyLevel)
       EgtPHOTOLib.MainData.SetKeyOptions(m_nKeyOptions)

My Project/AssemblyInfo.vb

@@ -19,7 +19,7 @@ Imports System.Windows
 #End If
 <Assembly: AssemblyCompany("Egalware s.r.l.")> 
 <Assembly: AssemblyProduct("OmagPHOTO")>
-<Assembly: AssemblyCopyright("Copyright ©  2017-2023 by Egalware s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2017-2025 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")> 
 <Assembly: ComVisible(false)>
 
@@ -59,5 +59,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.6.3.1")>
-<Assembly: AssemblyFileVersion("2.6.3.1")>
+<Assembly: AssemblyVersion("2.7.7.1")>
+<Assembly: AssemblyFileVersion("2.7.7.1")>

OmagPHOTO.vbproj

@@ -219,6 +219,39 @@
   <ItemGroup>
     <Resource Include="Resources\InstrumentPanel\Matitina.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\AboutBoxImage.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\Save.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\Print.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\Elimina.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\Cancel.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\Confirm.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\Reset.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\Pencil.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\Polygon.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\Rubber.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DetailPage\ZoomAll.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\OmagPHOTO\OmagPHOTOR32.exe

TopCommandBar/TopCommandBarVM.vb

@@ -7,6 +7,8 @@ Imports EgtPHOTOLib
 Public Class TopCommandBarVM
    Inherits VMBase
 
+   Private m_bFirstResearch As Boolean = True
+
 #Region "FIELDS & PROPERTIES"
 
    Friend m_MruFiles As New MruList
@@ -23,7 +25,16 @@ Public Class TopCommandBarVM
       End Get
       Set(value As Boolean)
          If value Then
+            If m_bFirstResearch Then
+               ' Resetto la data corrente per la prima ricerca 
+               PhotoMap.refSearchPanelVM.StartAddedDate = Nothing
+               PhotoMap.refSearchPanelVM.NotifyPropertyChanged("StartAddedDate")
+               PhotoMap.refSearchPanelVM.EndAddedDate = Nothing
+               PhotoMap.refSearchPanelVM.NotifyPropertyChanged("EndAddedDate")
+               m_bFirstResearch = False
+            End If
             PhotoMap.refSearchPanelVM.InitSearchPanel()
+
          Else
             PhotoMap.refListPageVM.InitListPage()
          End If