Improve Base Form Properties, Improve PanelManager

EDMI_ClientSuite/FormDefaults/BaseForm.vb

@@ -14,8 +14,14 @@ Imports DigitalData.Modules.Logging
 Public Class BaseForm
     Inherits Form
 
-    Protected ReadOnly _Logger As Logger
-    Protected ReadOnly _ErrorHandler As ClassErrorHandler
+    Private ReadOnly _Logger As Logger
+    Private ReadOnly _ErrorHandler As ClassErrorHandler
+
+    Protected ReadOnly Property Logger As Logger
+        Get
+            Return _Logger
+        End Get
+    End Property
 
     Public Sub New()
         ' Get the full name of the inheriting form
@@ -30,4 +36,8 @@ Public Class BaseForm
         ' depends on a global var like My.LogConfig
         ' you might need to check for its existence with ?
     End Sub
+
+    Public Sub ShowErrorMessage(Exception As Exception)
+        _ErrorHandler.ShowErrorMessage(Exception)
+    End Sub
 End Class