Fixed bug with Include Filters

Author: vincentparrett

VSoft.Messaging.dspec

@@ -1,7 +1,7 @@
 {
   "metadata": {
     "id": "VSoft.Messaging",
-    "version": "0.3.1",
+    "version": "0.3.4",
     "description": "VSoft.Messaging is a libary that provides an internal synchronous/asynchronous publish/subscribe messaging system for Delphi applications.",
     "authors": "Vincent Parrett",
     "projectUrl": "https://github.com/VSoftTechnologies/VSoft.SemanticVersion",
@@ -71,7 +71,7 @@
       "template": "default"
     },
     {
-      "compiler": "11",
+      "compiler": "11.0",
       "platforms": "Win32, Win64",
       "template": "default"
     }
@@ -82,7 +82,7 @@
       "dependencies": [
         {
           "id": "VSoft.WeakReference",
-          "version": "[0.1.1,]"
+          "version": "[0.1.2,]"
         }
       ],
       "source": [

…tudio 11 Alexandria/VSoft.MessagingR.dpk …dio 11.0 Alexandria/VSoft.MessagingR.dpkpackages/Rad Studio 11 Alexandria/VSoft.MessagingR.dpk renamed to packages/Rad Studio 11.0 Alexandria/VSoft.MessagingR.dpk packages/Rad Studio 11 Alexandria/VSoft.MessagingR.dpk renamed to packages/Rad Studio 11.0 Alexandria/VSoft.MessagingR.dpk

@@ -324,8 +324,8 @@ function TMessageDispatcherBase.GetExcludeFilter: TArray<Cardinal>;
 function TMessageDispatcherBase.GetIncludeFilter: TArray<Cardinal>;
 begin
   SetLength(result,0);
-  if FExcludeFilter <> nil then
-    result := FExcludeFilter.Keys.ToArray;
+  if FIncludeFilter <> nil then
+    result := FIncludeFilter.Keys.ToArray;
 end;
 
 function TMessageDispatcherBase.GetTarget: TObject;