Skip to content

Commit 26e936d

Browse files
AndreLuisCelestinoAndreLuisCelestino
committed
Refatoração dos namespaces dos projetos
1 parent 8a82f12 commit 26e936d

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

57 files changed

+726
-488
lines changed

‎Bridge-AndreCelestino/ExemploBridge.dpr

+2-2
Original file line numberDiff line numberDiff line change
@@ -7,8 +7,8 @@ uses
77
Pattern.ConcreteImplementorXLS in 'Pattern.ConcreteImplementorXLS.pas',
88
Pattern.ConcreteImplementorHTML in 'Pattern.ConcreteImplementorHTML.pas',
99
Pattern.Abstraction in 'Pattern.Abstraction.pas',
10-
Pattern.RefinedAbstractionClientes in 'Pattern.RefinedAbstractionClientes.pas',
11-
Pattern.RefinedAbstractionProdutos in 'Pattern.RefinedAbstractionProdutos.pas';
10+
Pattern.RefinedAbstraction.Clientes in 'Pattern.RefinedAbstraction.Clientes.pas',
11+
Pattern.RefinedAbstraction.Produtos in 'Pattern.RefinedAbstraction.Produtos.pas';
1212

1313

1414
{$R *.res}

‎Bridge-AndreCelestino/ExemploBridge.dproj

+2-2
Original file line numberDiff line numberDiff line change
@@ -116,8 +116,8 @@
116116
<DCCReference Include="Pattern.ConcreteImplementorXLS.pas"/>
117117
<DCCReference Include="Pattern.ConcreteImplementorHTML.pas"/>
118118
<DCCReference Include="Pattern.Abstraction.pas"/>
119-
<DCCReference Include="Pattern.RefinedAbstractionClientes.pas"/>
120-
<DCCReference Include="Pattern.RefinedAbstractionProdutos.pas"/>
119+
<DCCReference Include="Pattern.RefinedAbstraction.Clientes.pas"/>
120+
<DCCReference Include="Pattern.RefinedAbstraction.Produtos.pas"/>
121121
<BuildConfiguration Include="Debug">
122122
<Key>Cfg_2</Key>
123123
<CfgParent>Base</CfgParent>

‎Bridge-AndreCelestino/Pattern.RefinedAbstractionClientes.pas ‎Bridge-AndreCelestino/Pattern.RefinedAbstraction.Clientes.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
unit Pattern.RefinedAbstractionClientes;
1+
unit Pattern.RefinedAbstraction.Clientes;
22

33
interface
44

‎Bridge-AndreCelestino/Pattern.RefinedAbstractionProdutos.pas ‎Bridge-AndreCelestino/Pattern.RefinedAbstraction.Produtos.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
unit Pattern.RefinedAbstractionProdutos;
1+
unit Pattern.RefinedAbstraction.Produtos;
22

33
interface
44

‎Bridge-AndreCelestino/View.Formulario.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,7 @@ TfFormulario = class(TForm)
4545
implementation
4646

4747
uses
48-
Pattern.Abstraction, Pattern.RefinedAbstractionClientes, Pattern.RefinedAbstractionProdutos,
48+
Pattern.Abstraction, Pattern.RefinedAbstraction.Clientes, Pattern.RefinedAbstraction.Produtos,
4949
Pattern.ConcreteImplementorXLS, Pattern.ConcreteImplementorHTML;
5050

5151
{$R *.dfm}

‎ChainOfResponsibility-AndreCelestino/ExemploChainOfResponsibility.dpr

+3-3
Original file line numberDiff line numberDiff line change
@@ -2,9 +2,9 @@ program ExemploChainOfResponsibility;
22

33
uses
44
Vcl.Forms,
5-
uFormulario in 'uFormulario.pas' {fFormulario},
6-
uHandler in 'uHandler.pas',
7-
uConcreteHandler in 'uConcreteHandler.pas';
5+
View.Formulario in 'View.Formulario.pas' {fFormulario},
6+
Pattern.Handler in 'Pattern.Handler.pas',
7+
Pattern.ConcreteHandler in 'Pattern.ConcreteHandler.pas';
88

99
{$R *.res}
1010

‎ChainOfResponsibility-AndreCelestino/ExemploChainOfResponsibility.dproj

+214-189
Large diffs are not rendered by default.

‎ChainOfResponsibility-AndreCelestino/ExemploChainOfResponsibility.res

1.04 KB
Binary file not shown.

‎ChainOfResponsibility-AndreCelestino/uConcreteHandler.pas ‎ChainOfResponsibility-AndreCelestino/Pattern.ConcreteHandler.pas

+2-2
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,9 @@
1-
unit uConcreteHandler;
1+
unit Pattern.ConcreteHandler;
22

33
interface
44

55
uses
6-
DBClient, uHandler;
6+
DBClient, Pattern.Handler;
77

88
type
99
{ Concrete Handler - Processador de TXT}

‎ChainOfResponsibility-AndreCelestino/uHandler.pas ‎ChainOfResponsibility-AndreCelestino/Pattern.Handler.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
unit uHandler;
1+
unit Pattern.Handler;
22

33
interface
44

‎ChainOfResponsibility-AndreCelestino/uFormulario.dfm ‎ChainOfResponsibility-AndreCelestino/View.Formulario.dfm

File renamed without changes.

‎ChainOfResponsibility-AndreCelestino/uFormulario.pas ‎ChainOfResponsibility-AndreCelestino/View.Formulario.pas

+3-2
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
unit uFormulario;
1+
unit View.Formulario;
22

33
{
44
Exemplo de Chain of Responsibility com Delphi
@@ -13,6 +13,7 @@ interface
1313
Vcl.StdCtrls, Vcl.Buttons, Data.DB, Datasnap.DBClient;
1414

1515
type
16+
{ Client }
1617
TfFormulario = class(TForm)
1718
LabelArquivo: TLabel;
1819
EditArquivo: TEdit;
@@ -33,7 +34,7 @@ TfFormulario = class(TForm)
3334
implementation
3435

3536
uses
36-
uHandler, uConcreteHandler;
37+
Pattern.Handler, Pattern.ConcreteHandler;
3738

3839
{$R *.dfm}
3940

‎Command-AndreCelestino/ExemploCommand.dpr

+5-5
Original file line numberDiff line numberDiff line change
@@ -2,11 +2,11 @@ program ExemploCommand;
22

33
uses
44
Forms,
5-
uFormulario in 'uFormulario.pas' {fFormulario},
6-
uInvoker in 'uInvoker.pas',
7-
uCommand in 'uCommand.pas',
8-
uReceiver in 'uReceiver.pas',
9-
uConcreteCommand in 'uConcreteCommand.pas';
5+
View.Formulario in 'View.Formulario.pas' {fFormulario},
6+
Pattern.Invoker in 'Pattern.Invoker.pas',
7+
Pattern.Command in 'Pattern.Command.pas',
8+
Pattern.Receiver in 'Pattern.Receiver.pas',
9+
Pattern.ConcreteCommand in 'Pattern.ConcreteCommand.pas';
1010

1111
{$R *.res}
1212

‎Command-AndreCelestino/ExemploCommand.dproj

+20-8
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@
77
<TargetedPlatforms>1025</TargetedPlatforms>
88
<AppType>Application</AppType>
99
<FrameworkType>VCL</FrameworkType>
10-
<ProjectVersion>18.0</ProjectVersion>
10+
<ProjectVersion>18.2</ProjectVersion>
1111
<Platform Condition="'$(Platform)'==''">Win32</Platform>
1212
</PropertyGroup>
1313
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
@@ -18,6 +18,11 @@
1818
<CfgParent>Base</CfgParent>
1919
<Base>true</Base>
2020
</PropertyGroup>
21+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
22+
<Base_Win64>true</Base_Win64>
23+
<CfgParent>Base</CfgParent>
24+
<Base>true</Base>
25+
</PropertyGroup>
2126
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
2227
<Cfg_1>true</Cfg_1>
2328
<CfgParent>Base</CfgParent>
@@ -66,6 +71,12 @@
6671
<DCC_Namespace>Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
6772
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
6873
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
74+
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
75+
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
76+
</PropertyGroup>
77+
<PropertyGroup Condition="'$(Base_Win64)'!=''">
78+
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
79+
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
6980
</PropertyGroup>
7081
<PropertyGroup Condition="'$(Cfg_1)'!=''">
7182
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
@@ -91,18 +102,19 @@
91102
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
92103
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
93104
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
105+
<BT_BuildType>Debug</BT_BuildType>
94106
</PropertyGroup>
95107
<ItemGroup>
96108
<DelphiCompile Include="$(MainSource)">
97109
<MainSource>MainSource</MainSource>
98110
</DelphiCompile>
99-
<DCCReference Include="uFormulario.pas">
111+
<DCCReference Include="View.Formulario.pas">
100112
<Form>fFormulario</Form>
101113
</DCCReference>
102-
<DCCReference Include="uInvoker.pas"/>
103-
<DCCReference Include="uCommand.pas"/>
104-
<DCCReference Include="uReceiver.pas"/>
105-
<DCCReference Include="uConcreteCommand.pas"/>
114+
<DCCReference Include="Pattern.Invoker.pas"/>
115+
<DCCReference Include="Pattern.Command.pas"/>
116+
<DCCReference Include="Pattern.Receiver.pas"/>
117+
<DCCReference Include="Pattern.ConcreteCommand.pas"/>
106118
<BuildConfiguration Include="Debug">
107119
<Key>Cfg_2</Key>
108120
<CfgParent>Base</CfgParent>
@@ -124,8 +136,8 @@
124136
<Source Name="MainSource">ExemploCommand.dpr</Source>
125137
</Source>
126138
<Excluded_Packages>
127-
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k230.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
128-
<Excluded_Packages Name="$(BDSBIN)\dclofficexp230.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
139+
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
140+
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
129141
</Excluded_Packages>
130142
</Delphi.Personality>
131143
<Platforms>

‎Command-AndreCelestino/ExemploCommand.res

752 Bytes
Binary file not shown.

‎Command-AndreCelestino/Info/Processos.txt

+121
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,121 @@
1+
[System Process]
2+
System
3+
smss.exe
4+
csrss.exe
5+
wininit.exe
6+
csrss.exe
7+
services.exe
8+
lsass.exe
9+
svchost.exe
10+
fontdrvhost.exe
11+
svchost.exe
12+
svchost.exe
13+
svchost.exe
14+
winlogon.exe
15+
fontdrvhost.exe
16+
dwm.exe
17+
svchost.exe
18+
svchost.exe
19+
svchost.exe
20+
svchost.exe
21+
WUDFHost.exe
22+
svchost.exe
23+
svchost.exe
24+
svchost.exe
25+
svchost.exe
26+
svchost.exe
27+
svchost.exe
28+
WUDFHost.exe
29+
svchost.exe
30+
igfxCUIService.exe
31+
svchost.exe
32+
svchost.exe
33+
svchost.exe
34+
svchost.exe
35+
svchost.exe
36+
svchost.exe
37+
svchost.exe
38+
svchost.exe
39+
svchost.exe
40+
svchost.exe
41+
svchost.exe
42+
svchost.exe
43+
svchost.exe
44+
svchost.exe
45+
svchost.exe
46+
svchost.exe
47+
svchost.exe
48+
svchost.exe
49+
spoolsv.exe
50+
svchost.exe
51+
svchost.exe
52+
dasHost.exe
53+
svchost.exe
54+
svchost.exe
55+
svchost.exe
56+
SecurityHealthService.exe
57+
svchost.exe
58+
svchost.exe
59+
svchost.exe
60+
svchost.exe
61+
svchost.exe
62+
MsMpEng.exe
63+
svchost.exe
64+
svchost.exe
65+
Memory Compression
66+
svchost.exe
67+
svchost.exe
68+
svchost.exe
69+
audiodg.exe
70+
sihost.exe
71+
svchost.exe
72+
PresentationFontCache.exe
73+
svchost.exe
74+
taskhostw.exe
75+
svchost.exe
76+
explorer.exe
77+
svchost.exe
78+
ShellExperienceHost.exe
79+
SearchUI.exe
80+
SearchIndexer.exe
81+
igfxEM.exe
82+
igfxHK.exe
83+
RuntimeBroker.exe
84+
svchost.exe
85+
MSASCuiL.exe
86+
SynTPEnh.exe
87+
svchost.exe
88+
SynTPHelper.exe
89+
svchost.exe
90+
svchost.exe
91+
svchost.exe
92+
svchost.exe
93+
Steam.exe
94+
dllhost.exe
95+
steamwebhelper.exe
96+
SteamService.exe
97+
steamwebhelper.exe
98+
steamwebhelper.exe
99+
svchost.exe
100+
chrome.exe
101+
chrome.exe
102+
chrome.exe
103+
chrome.exe
104+
chrome.exe
105+
chrome.exe
106+
chrome.exe
107+
svchost.exe
108+
svchost.exe
109+
svchost.exe
110+
NisSrv.exe
111+
svchost.exe
112+
chrome.exe
113+
svchost.exe
114+
taskhostw.exe
115+
dota2.exe
116+
GameOverlayUI.exe
117+
GameBarPresenceWriter.exe
118+
smartscreen.exe
119+
bds.exe
120+
notepad++.exe
121+
ExemploCommand.exe

‎Command-AndreCelestino/uCommand.pas ‎Command-AndreCelestino/Pattern.Command.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
unit uCommand;
1+
unit Pattern.Command;
22

33
interface
44

‎Command-AndreCelestino/uConcreteCommand.pas ‎Command-AndreCelestino/Pattern.ConcreteCommand.pas

+2-2
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,9 @@
1-
unit uConcreteCommand;
1+
unit Pattern.ConcreteCommand;
22

33
interface
44

55
uses
6-
uCommand, uReceiver;
6+
Pattern.Command, Pattern.Receiver;
77

88
type
99
{ Concrete Command }

‎Command-AndreCelestino/uInvoker.pas ‎Command-AndreCelestino/Pattern.Invoker.pas

+2-2
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,9 @@
1-
unit uInvoker;
1+
unit Pattern.Invoker;
22

33
interface
44

55
uses
6-
uCommand, Classes;
6+
Pattern.Command, Classes;
77

88
type
99
{ Invoker }

‎Command-AndreCelestino/uReceiver.pas ‎Command-AndreCelestino/Pattern.Receiver.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
unit uReceiver;
1+
unit Pattern.Receiver;
22

33
interface
44

‎Command-AndreCelestino/uFormulario.dfm ‎Command-AndreCelestino/View.Formulario.dfm

+3-2
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,7 @@ object fFormulario: TfFormulario
1414
Font.Style = []
1515
OldCreateOrder = False
1616
Position = poScreenCenter
17+
OnShow = FormShow
1718
PixelsPerInch = 96
1819
TextHeight = 13
1920
object LabelProgramas: TLabel
@@ -115,8 +116,6 @@ object fFormulario: TfFormulario
115116
Width = 169
116117
Height = 41
117118
Caption = 'Executar Comandos'
118-
TabOrder = 3
119-
OnClick = BitBtnExecutarComandosClick
120119
Glyph.Data = {
121120
F6060000424DF606000000000000360000002800000018000000180000000100
122121
180000000000C0060000120B0000120B00000000000000000000FF00FFFF00FF
@@ -174,6 +173,8 @@ object fFormulario: TfFormulario
174173
DAA482DAA482DAA4829C837EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
175174
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
176175
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
176+
TabOrder = 3
177+
OnClick = BitBtnExecutarComandosClick
177178
end
178179
object MemoVariaveis: TMemo
179180
Left = 440

0 commit comments

Comments
 (0)