performance fixes for drawing group header, log (to database on) unhandled exceptions

app/DD_PM_WINDREAM/ModuleHelperMethods.vb

@@ -44,6 +44,22 @@
     Public Function IntToColor(int As Integer) As Color
         Return ColorTranslator.FromWin32(int)
     End Function
+
+    Public Function PrepareLogMessage(LogMessage As String) As String
+        Dim oLogSplit As String()
+        oLogSplit = LogMessage.Split("|")
+
+        If oLogSplit.Count < 3 Then
+            Return LogMessage
+        Else
+            Dim omsg = oLogSplit(2).
+                Replace("'", "''").
+                Replace("\\n", "").
+                Replace(Chr(13), "").
+                Replace(Chr(10), "")
+            Return omsg
+        End If
+    End Function
 End Module