Patterns: Completeley rework Patterns2 structure

Modules.Patterns/Modules/Windream.vb

@@ -19,10 +19,9 @@ Namespace Modules
             MyBase.New(pLogConfig)
         End Sub
 
-        Public Function Replace(pInput As String, pReplaceMap As Dictionary(Of String, Object)) As String Implements IModule.Replace
+        Public Function Replace(pInput As String, pWMObject As WINDREAMLib.WMObject) As String
             Dim oResult = pInput
             Dim oCounter = 0
-            Dim pWMObject As WINDREAMLib.WMObject = pReplaceMap.Item(WM_VALUE_DOCUMENT)
 
             While ContainsPattern(oResult, PatternIdentifier)
                 Try