EgtCAM5 :

- Migliorie varie.

MainWindow/MainWindowViewModel.vb

@@ -21,7 +21,7 @@ Namespace EgtCAM5
       Private m_sIniFile As String = String.Empty
       Private m_nDebug As Integer = 0
       ' Opzioni abilitate dalla licenza attiva associata alla chiave
-      Private m_nKeyOptions As UInteger
+      'Private m_nKeyOptions As UInteger
       Friend Enum KEY_OPT As UInteger
          BASE = 1
       End Enum
@@ -32,6 +32,14 @@ Namespace EgtCAM5
       ' GRAPHICAL FIELDS
       ' Event commands
       ' MainWindow ContentRendered Event
+
+      Private m_AboutBox As Window
+      Public ReadOnly Property AboutBox As Window
+         Get
+            Return New AboutBoxView
+         End Get
+      End Property
+
       Private m_cmdMainWindow_ContentRendered As ICommand
       ' MainWindow Activated Event
       Private m_cmdMainWindow_Activated As ICommand
@@ -124,6 +132,7 @@ Namespace EgtCAM5
 #Region "CONSTRUCTOR"
 
       Sub New()
+         'Application.Current.MainWindow.Icon = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/EgtCAM5.ico", UriKind.Relative))
          RegisterMyMessages()
          ' INITIALIZE EGALTECH ENVIRONMENT
          InitializeEgtEnvironment()