8000 refactoring clone object with RTTIUtils so no more need of REST.JSON … · spinettaro/delphi-event-bus@d33aa3e · GitHub
[go: up one dir, main page]
Skip to content

Commit d33aa3e

Browse files
spinettarospinettaro
committed
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
1 parent c8f4c4e commit d33aa3e

28 files changed

+900
-1036
lines changed

‎samples/AccessRemoteData/AccessRemoteData.dproj

Lines changed: 216 additions & 210 deletions
Large diffs are not rendered by default.

‎samples/AccessRemoteData/AccessRemoteData.res

12 Bytes
Binary file not shown.

‎samples/AccessRemoteData/BOsU.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
interface
44

55
uses
6-
EventBus.Subscribers, EventBus.Commons, EventBus.Attributes;
6+
EventBus.Subscribers, EventBus.Commons;
77

88
type
99

‎samples/AccessRemoteData/MainFMX.fmx

Lines changed: 10 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -34,6 +34,11 @@ object HeaderFooterForm: THeaderFooterForm
3434
TabIndex = 1
3535
TabOrder = 2
3636
TabPosition = None
37+
Sizes = (
38+
384s
39+
519s
40+
384s
41+
519s)
3742
object TabItem1: TTabItem
3843
CustomIcon = <
3944
item
@@ -118,12 +123,12 @@ object HeaderFooterForm: THeaderFooterForm
118123
Value = 6.282934691915696000
119124
end>
120125
object Edit1: TEdit
121-
Hint = 'Username'
122126
8000 Touch.InteractiveGestures = [LongTap, DoubleTap]
123127
Align = Client
124128
TabOrder = 0
129+
Hint = 'Username'
125130
Size.Width = 308.013977050781300000
126-
Size.Height = 32.000000000000000000
131+
Size.Height = 32.608428955078130000
127132
Size.PlatformDefault = False
128133
TextPrompt = 'Username...'
129134
end
@@ -133,7 +138,7 @@ object HeaderFooterForm: THeaderFooterForm
133138
TabOrder = 1
134139
Password = True
135140
Size.Width = 308.013977050781300000
136-
Size.Height = 32.000000000000000000
141+
Size.Height = 32.608428955078130000
137142
Size.PlatformDefault = False
138143
TextPrompt = 'Password...'
139144
end
@@ -174,6 +179,8 @@ object HeaderFooterForm: THeaderFooterForm
174179
StyleLookup = ''
175180
TabOrder = 0
176181
Text = 'TabItem2'
182+
ExplicitSize.cx = 8.000000000000000000
183+
ExplicitSize.cy = 8.000000000000000000
177184
object GridPanelLayout2: TGridPanelLayout
178185
Align = Client
179186
Size.Width = 384.000000000000000000

‎samples/AccessRemoteData/MainFMX.pas

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -6,8 +6,7 @@ interface
66
System.SysUtils, System.Types, System.UITypes, System.Classes,
77
System.Variants, FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms,
88
FMX.Dialogs, FMX.StdCtrls, FMX.Controls.Presentation, FMX.Layouts,
9-
FMX.Objects, FMX.Edit, FMX.TabControl, BOsU, EventBus.Commons,
10-
EventBus.Attributes;
9+
FMX.Objects, FMX.Edit, FMX.TabControl, BOsU, EventBus.Commons;
1110

1211
type
1312
THeaderFooterForm = class(TForm)

‎samples/Analytics/Analytics.dproj

Lines changed: 196 additions & 196 deletions
Large diffs are not rendered by default.

‎samples/Analytics/Analytics.res

8 Bytes
Binary file not shown.

‎samples/Analytics/LogginFormU.pas

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,8 +4,8 @@ interface
44

55
uses
66
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
7-
System.Classes, Vcl.Graphics,
8-
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, BOU, EventBus.Attributes;
7+
System.Classes, Vcl.Graphics, EventBus.Commons,
8+
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, BOU;
99

1010
type
1111
TFormLogger = class(TForm)

‎samples/WeatherStation/HumidityFMX.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ interface
44

55
uses
66
System.SysUtils, System.Types, System.UITypes, System.Classes,
7-
System.Variants, EventBus.Attributes,
7+
System.Variants,
88
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
99
FMX.Controls.Presentation, FMX.StdCtrls, ModelU, EventBus.Commons;
1010

‎samples/WeatherStation/ModelU.pas

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -86,3 +86,4 @@ procedure TWeatherInformation.SetWeatherType(const Value: TWeatherType);
8686
end;
8787

8888
end.
89+

0 commit comments

Comments
 (0)
0