-sistemato codice pdfeditor

EgtBEAMWALL.ViewerOptimizer/Statistics/PDFEditorVM.vb

@@ -25,26 +25,26 @@ Public Class PDFEditorVM
 
    ' PDF visualizzato come preview nella sezione PDF Editor
    Private m_WebAddress As String
-   Public Property WebAddress As String
+   Public ReadOnly Property WebAddress As String
       Get
          Return m_WebAddress
       End Get
-      Set(value As String)
-         m_WebAddress = value
-         NotifyPropertyChanged(NameOf(WebAddress))
-      End Set
    End Property
+   Friend Sub SetWebAddress(value As String)
+      m_WebAddress = value
+      NotifyPropertyChanged(NameOf(WebAddress))
+   End Sub
 
    Private m_PdfViewer_Visibility As Visibility
-   Public Property PdfViewer_Visibility As Visibility
+   Public ReadOnly Property PdfViewer_Visibility As Visibility
       Get
          Return m_PdfViewer_Visibility
       End Get
-      Set(value As Visibility)
-         m_PdfViewer_Visibility = value
-         NotifyPropertyChanged(NameOf(PdfViewer_Visibility))
-      End Set
    End Property
+   Friend Sub SetPdfViewer_Visibility(value As Visibility)
+      m_PdfViewer_Visibility = value
+      NotifyPropertyChanged(NameOf(PdfViewer_Visibility))
+   End Sub
 
    ' Definizione comandi
    Private m_cmdCreatePDFPreviewVis As ICommand
@@ -62,8 +62,8 @@ Public Class PDFEditorVM
       m_ExpanderList.Add(New ExpanderPDF(ListTypes.RAWPART))         '  RawPart List
       m_ExpanderList.Add(New ExpanderPDF(ListTypes.PART_TOT))        '  Part Totals
       m_ExpanderList.Add(New ExpanderPDF(ListTypes.PART))            '  Part List
-      m_WebAddress = ""                                              '  Pagina vuota
-      m_PdfViewer_Visibility = Visibility.Hidden
+      SetWebAddress("")                                              '  Pagina vuota
+      SetPdfViewer_Visibility(Visibility.Hidden)
       Map.SetRefPDFEditorVM(Me)
    End Sub
 
@@ -86,11 +86,9 @@ Public Class PDFEditorVM
    ''' Funzione per la visualizzazione della preview del PDF della sezione visualizzatore
    ''' </summary>
    Public Sub CreatePreviewVis()
-      m_PdfViewer_Visibility = Visibility.Visible
+      SetPdfViewer_Visibility(Visibility.Visible)
       Configuration.CreatePrintPDF(PDFPage.VIEW, True)
-      WebAddress = Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf"
-      NotifyPropertyChanged(NameOf(WebAddress))
-      NotifyPropertyChanged(NameOf(PdfViewer_Visibility))
+      SetWebAddress(Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf")
    End Sub
 
 #End Region    ' CreatePreviewVis
@@ -110,11 +108,9 @@ Public Class PDFEditorVM
    ''' Funzione per la visualizzazione della preview del PDF della sezione ottimizzatore
    ''' </summary>
    Public Sub CreatePreviewOtt()
-      m_PdfViewer_Visibility = Visibility.Visible
+      SetPdfViewer_Visibility(Visibility.Visible)
       Configuration.CreatePrintPDF(PDFPage.MACHING, True)
-      WebAddress = Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf"
-      NotifyPropertyChanged(NameOf(WebAddress))
-      NotifyPropertyChanged(NameOf(PdfViewer_Visibility))
+      SetWebAddress(Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf")
    End Sub
 
 #End Region    ' CreatePreviewOt
@@ -136,15 +132,12 @@ Public Class PDFEditorVM
    Public Sub ClosePreview()
       Try
          File.Delete(Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf")
-         'File.Delete(Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics - Optimizer.pdf")
       Catch ex As Exception
          EgtOutLog("Errore! Cancellazione dei file pdf fallita")
       End Try
 
-      m_PdfViewer_Visibility = Visibility.Hidden
-      WebAddress = ""
-      NotifyPropertyChanged(NameOf(WebAddress))
-      NotifyPropertyChanged(NameOf(PdfViewer_Visibility))
+      SetPdfViewer_Visibility(Visibility.Hidden)
+      SetWebAddress("")
    End Sub
 
 #End Region    ' CreatePreviewVis