8000 unit refactoring to expose only 1 unit · spinettaro/delphi-event-bus@a293fce · GitHub
[go: up one dir, main page]
Skip to content

Commit a293fce

Browse files
spinettarospinettaro
committed
unit refactoring to expose only 1 unit
1 parent 84c8bc4 commit a293fce

31 files changed

+2092
-732
lines changed

‎samples/AccessRemoteData/AccessRemoteData.dproj

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -389,6 +389,10 @@
389389
</PropertyGroup>
390390
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
391391
<BT_BuildType>Debug</BT_BuildType>
392+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
393+
<VerInfo_Locale>1033</VerInfo_Locale>
394+
<VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
395+
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
392396
</PropertyGroup>
393397
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
394398
<BT_BuildType>Debug</BT_BuildType>
@@ -434,8 +438,9 @@
434438
<Source Name="MainSource">AccessRemoteData.dpr</Source>
435439
</Source>
436440
<Excluded_Packages>
437-
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k230.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
438-
<Excluded_Packages Name="$(BDSBIN)\dclofficexp230.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
441+
<Excluded_Packages Name="$(BDSBIN)\DataExplorerDBXPluginEnt260.bpl">DBExpress Enterprise Data Explorer Integration</Excluded_Packages>
442+
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k260.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
443+
<Excluded_Packages Name="$(BDSBIN)\dclofficexp260.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
439444
</Excluded_Packages>
440445
</Delphi.Personality>
441446
<Platforms>

‎samples/AccessRemoteData/AccessRemoteData.res

176 Bytes
Binary file not shown.

‎samples/AccessRemoteData/BOsU.pas

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

55
uses
6-
EventBus.Subscribers, EventBus.Commons;
6+
7+
EventBus;
78

89
type
910

@@ -34,7 +35,7 @@ TOnLoginEvent = class(TObject)
3435
implementation
3536

3637
uses
37-
System.Classes, EventBus;
38+
System.Classes;
3839

3940
{ TLoginDTO }
4041

‎samples/AccessRemoteData/MainFMX.fmx

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -127,7 +127,7 @@ object HeaderFooterForm: THeaderFooterForm
127127
TabOrder = 0
128128
Hint = 'Username'
129129
Size.Width = 308.013977050781300000
130-
Size.Height = 32.608428955078130000
130+
Size.Height = 32.000000000000000000
131131
Size.PlatformDefault = False
132132
TextPrompt = 'Username...'
133133
end
@@ -137,7 +137,7 @@ object HeaderFooterForm: THeaderFooterForm
137137
TabOrder = 1
138138
Password = True
139139
Size.Width = 308.013977050781300000
140-
Size.Height = 32.608428955078130000
140+
Size.Height = 32.000000000000000000
141141
Size.PlatformDefault = False
142142
TextPrompt = 'Password...'
143143
end

‎samples/AccessRemoteData/MainFMX.pas

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +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;
9+
FMX.Objects, FMX.Edit, FMX.TabControl, BOsU, EventBus;
1010

1111
type
1212
THeaderFooterForm = class(TForm)
@@ -41,7 +41,7 @@ THeaderFooterForm = class(TForm)
4141
implementation
4242

4343
uses
44-
EventBus, ServicesU;
44+
ServicesU;
4545

4646
{$R *.fmx}
4747

@@ -62,7 +62,7 @@ procedure THeaderFooterForm.FormCreate(Sender: TObject);
6262
begin
6363
TabControl1.ActiveTab := TabItem1;
6464
// register subscribers
65-
TEventBus.GetDefault.RegisterSubscriber(Self);
65+
GlobalEventBus.RegisterSubscriber(Self);
6666
end;
6767

6868
procedure THeaderFooterForm.OnAfterLogin(AEvent: TOnLoginEvent);

‎samples/AccessRemoteData/ServicesU.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -37,7 +37,7 @@ procedure TAccessRemoteDataProxy.DoLogin(aLoginDTO: TLoginDTO);
3737
begin
3838
// simulate an http request for 5 seconds
3939
TThread.Sleep(3000);
40-
TEventBus.GetDefault.Post(TOnLoginEvent.Create(true, 'Login ok'));
40+
GlobalEventBus.Post(TOnLoginEvent.Create(true, 'Login ok'));
4141
aLoginDTO.Free;
4242
end);
4343

‎samples/Analytics/Analytics.dpr

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,16 +2,18 @@ program Analytics;
22

33
uses
44
Vcl.Forms,
5-
MainFormU in 'MainFormU.pas' {Form6},
5+
MainFormU in 'MainFormU.pas' {Form6} ,
66
BOU in 'BOU.pas',
77
LogginFormU in 'LogginFormU.pas' {FormLogger};
88

99
{$R *.res}
1010

1111
begin
12+
ReportMemoryLeaksOnShutdown := True;
1213
Application.Initialize;
1314
Application.MainFormOnTaskbar := True;
1415
Application.CreateForm(TForm6, Form6);
1516
Application.CreateForm(TFormLogger, FormLogger);
1617
Application.Run;
18+
1719
end.

0 commit comments

Comments
 (0)
0