refactoring clone object with RTTIUtils so no more need of REST.JSON …

…and System.JSON. This add compatibiity with prior version of delphi removed EventBus.Attributes.pas and moved SubscribeAttribute in EventBus.Commons.pas removed EventBus.Poster.pas because no more needed
spinettaro · Apr 23, 2018 · d33aa3e · d33aa3e
1 parent c8f4c4e
commit d33aa3e
Show file tree

Hide file tree

Showing 28 changed files with 900 additions and 1,036 deletions.
diff --git a/samples/AccessRemoteData/AccessRemoteData.dproj b/samples/AccessRemoteData/AccessRemoteData.dproj
diff --git a/samples/AccessRemoteData/AccessRemoteData.res b/samples/AccessRemoteData/AccessRemoteData.res
diff --git a/samples/AccessRemoteData/BOsU.pas b/samples/AccessRemoteData/BOsU.pas
@@ -3,7 +3,7 @@
 interface
 
 uses
-  EventBus.Subscribers, EventBus.Commons, EventBus.Attributes;
+  EventBus.Subscribers, EventBus.Commons;
 
 type
 

diff --git a/samples/AccessRemoteData/MainFMX.fmx b/samples/AccessRemoteData/MainFMX.fmx
@@ -34,6 +34,11 @@ object HeaderFooterForm: THeaderFooterForm
     TabIndex = 1
     TabOrder = 2
     TabPosition = None
+    Sizes = (
+      384s
+      519s
+      384s
+      519s)
     object TabItem1: TTabItem
       CustomIcon = <
         item
@@ -118,12 +123,12 @@ object HeaderFooterForm: THeaderFooterForm
             Value = 6.282934691915696000
           end>
         object Edit1: TEdit
-          Hint = 'Username'
           Touch.InteractiveGestures = [LongTap, DoubleTap]
           Align = Client
           TabOrder = 0
+          Hint = 'Username'
           Size.Width = 308.013977050781300000
-          Size.Height = 32.000000000000000000
+          Size.Height = 32.608428955078130000
           Size.PlatformDefault = False
           TextPrompt = 'Username...'
         end
@@ -133,7 +138,7 @@ object HeaderFooterForm: THeaderFooterForm
           TabOrder = 1
           Password = True
           Size.Width = 308.013977050781300000
-          Size.Height = 32.000000000000000000
+          Size.Height = 32.608428955078130000
           Size.PlatformDefault = False
           TextPrompt = 'Password...'
         end
@@ -174,6 +179,8 @@ object HeaderFooterForm: THeaderFooterForm
       StyleLookup = ''
       TabOrder = 0
       Text = 'TabItem2'
+      ExplicitSize.cx = 8.000000000000000000
+      ExplicitSize.cy = 8.000000000000000000
       object GridPanelLayout2: TGridPanelLayout
         Align = Client
         Size.Width = 384.000000000000000000

diff --git a/samples/AccessRemoteData/MainFMX.pas b/samples/AccessRemoteData/MainFMX.pas
@@ -6,8 +6,7 @@ interface
   System.SysUtils, System.Types, System.UITypes, System.Classes,
   System.Variants, FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms,
   FMX.Dialogs, FMX.StdCtrls, FMX.Controls.Presentation, FMX.Layouts,
-  FMX.Objects, FMX.Edit, FMX.TabControl, BOsU, EventBus.Commons,
-  EventBus.Attributes;
+  FMX.Objects, FMX.Edit, FMX.TabControl, BOsU, EventBus.Commons;
 
 type
   THeaderFooterForm = class(TForm)

diff --git a/samples/Analytics/Analytics.dproj b/samples/Analytics/Analytics.dproj
diff --git a/samples/Analytics/Analytics.res b/samples/Analytics/Analytics.res
diff --git a/samples/Analytics/LogginFormU.pas b/samples/Analytics/LogginFormU.pas
@@ -4,8 +4,8 @@ interface
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
-  System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, BOU, EventBus.Attributes;
+  System.Classes, Vcl.Graphics, EventBus.Commons,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, BOU;
 
 type
   TFormLogger = class(TForm)

diff --git a/samples/WeatherStation/HumidityFMX.pas b/samples/WeatherStation/HumidityFMX.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
-  System.Variants, EventBus.Attributes,
+  System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
   FMX.Controls.Presentation, FMX.StdCtrls, ModelU, EventBus.Commons;
 

diff --git a/samples/WeatherStation/ModelU.pas b/samples/WeatherStation/ModelU.pas
@@ -86,3 +86,4 @@ procedure TWeatherInformation.SetWeatherType(const Value: TWeatherType);
 end;
 
 end.
+
diff --git a/samples/WeatherStation/PaintedFMX.pas b/samples/WeatherStation/PaintedFMX.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
-  System.Variants, EventBus.Attributes,
+  System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
   System.ImageList, FMX.ImgList, ModelU, EventBus.Commons;
 

diff --git a/samples/WeatherStation/PressureFMX.pas b/samples/WeatherStation/PressureFMX.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
-  System.Variants, EventBus.Attributes,
+  System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
   FMX.Controls.Presentation, FMX.StdCtrls, ModelU, EventBus.Commons;
 

diff --git a/samples/WeatherStation/TemperatureFMX.pas b/samples/WeatherStation/TemperatureFMX.pas
@@ -4,10 +4,9 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
-  System.Variants, EventBus.Attributes,
-  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
-  FMX.Controls.Presentation, FMX.StdCtrls, ModelU, EventBus.Subscribers,
-  EventBus.Commons;
+  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics,
+  FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, ModelU,
+  EventBus.Subscribers, EventBus.Commons;
 
 type
   TTemperatureForm = class(TForm)

diff --git a/samples/WeatherStation/WeatherStation.dproj b/samples/WeatherStation/WeatherStation.dproj
diff --git a/samples/WeatherStation/WeatherStation.res b/samples/WeatherStation/WeatherStation.res
diff --git a/samples/vclmessaging/SecondFormU.dfm b/samples/vclmessaging/SecondFormU.dfm
@@ -40,8 +40,8 @@ object frmSecond: TfrmSecond
       AlignWithMargins = True
       Left = 4
       Top = 4
-      Width = 225
-      Height = 28
+      Width = 111
+      Height = 23
       Align = alClient
       Caption = 'Second Form'
       Font.Charset = DEFAULT_CHARSET
@@ -50,8 +50,6 @@ object frmSecond: TfrmSecond
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      ExplicitWidth = 111
-      ExplicitHeight = 23
     end
     object CheckBox1: TCheckBox
       Left = 232

diff --git a/samples/vclmessaging/SecondFormU.pas b/samples/vclmessaging/SecondFormU.pas
@@ -5,7 +5,7 @@ interface
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
-  Vcl.StdCtrls, Vcl.ExtCtrls, EventBus.Attributes, EventU, EventBus.Commons;
+  Vcl.StdCtrls, Vcl.ExtCtrls, EventU, EventBus.Commons;
 
 type
   TfrmSecond = class(TForm)

diff --git a/samples/vclmessaging/ThirdFormU.pas b/samples/vclmessaging/ThirdFormU.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
-  System.Classes, Vcl.Graphics, EventU, EventBus.Attributes,
+  System.Classes, Vcl.Graphics, EventU, EventBus.Commons,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;
 
 type