Skip to content

Commit 9948a41

Browse files
author
César Cardoso
committed
feature/commit-init
1 parent 989e05b commit 9948a41

17 files changed

+3410
-0
lines changed

‎C4DVersion.dpk‎

Lines changed: 43 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,43 @@
1+
package C4DVersion;
2+
3+
{$R *.res}
4+
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5+
{$ALIGN 8}
6+
{$ASSERTIONS ON}
7+
{$BOOLEVAL OFF}
8+
{$DEBUGINFO OFF}
9+
{$EXTENDEDSYNTAX ON}
10+
{$IMPORTEDDATA ON}
11+
{$IOCHECKS ON}
12+
{$LOCALSYMBOLS ON}
13+
{$LONGSTRINGS ON}
14+
{$OPENSTRINGS ON}
15+
{$OPTIMIZATION OFF}
16+
{$OVERFLOWCHECKS OFF}
17+
{$RANGECHECKS OFF}
18+
{$REFERENCEINFO ON}
19+
{$SAFEDIVIDE OFF}
20+
{$STACKFRAMES ON}
21+
{$TYPEDADDRESS OFF}
22+
{$VARSTRINGCHECKS ON}
23+
{$WRITEABLECONST OFF}
24+
{$MINENUMSIZE 1}
25+
{$IMAGEBASE $400000}
26+
{$DEFINE DEBUG}
27+
{$ENDIF IMPLICITBUILDING}
28+
{$RUNONLY}
29+
{$IMPLICITBUILD ON}
30+
31+
requires
32+
rtl;
33+
34+
contains
35+
C4D.Version.Info in 'Src\C4D.Version.Info.pas',
36+
C4D.Version.Utils in 'Src\C4D.Version.Utils.pas',
37+
C4D.Version.Types in 'Src\C4D.Version.Types.pas',
38+
C4D.Version.Consts in 'Src\C4D.Version.Consts.pas',
39+
C4D.Version.Interfaces in 'Src\C4D.Version.Interfaces.pas',
40+
C4D.Version in 'Src\C4D.Version.pas',
41+
C4D.Version.SemanticVersion in 'Src\C4D.Version.SemanticVersion.pas';
42+
43+
end.

‎C4DVersion.dproj‎

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

‎C4DVersionGroup.groupproj‎

Lines changed: 48 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,48 @@
1+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{CAC74181-52E3-4A52-97DE-975C8C339B3C}</ProjectGuid>
4+
</PropertyGroup>
5+
<ItemGroup>
6+
<Projects Include="C4DVersion.dproj">
7+
<Dependencies/>
8+
</Projects>
9+
<Projects Include="Samples\Demo01\C4DVersionDemo01.dproj">
10+
<Dependencies/>
11+
</Projects>
12+
</ItemGroup>
13+
<ProjectExtensions>
14+
<Borland.Personality>Default.Personality.12</Borland.Personality>
15+
<Borland.ProjectType/>
16+
<BorlandProject>
17+
<Default.Personality/>
18+
</BorlandProject>
19+
</ProjectExtensions>
20+
<Target Name="C4DVersion">
21+
<MSBuild Projects="C4DVersion.dproj"/>
22+
</Target>
23+
<Target Name="C4DVersion:Clean">
24+
<MSBuild Projects="C4DVersion.dproj" Targets="Clean"/>
25+
</Target>
26+
<Target Name="C4DVersion:Make">
27+
<MSBuild Projects="C4DVersion.dproj" Targets="Make"/>
28+
</Target>
29+
<Target Name="C4DVersionDemo01">
30+
<MSBuild Projects="Samples\Demo01\C4DVersionDemo01.dproj"/>
31+
</Target>
32+
<Target Name="C4DVersionDemo01:Clean">
33+
<MSBuild Projects="Samples\Demo01\C4DVersionDemo01.dproj" Targets="Clean"/>
34+
</Target>
35+
<Target Name="C4DVersionDemo01:Make">
36+
<MSBuild Projects="Samples\Demo01\C4DVersionDemo01.dproj" Targets="Make"/>
37+
</Target>
38+
<Target Name="Build">
39+
<CallTarget Targets="C4DVersion;C4DVersionDemo01"/>
40+
</Target>
41+
<Target Name="Clean">
42+
<CallTarget Targets="C4DVersion:Clean;C4DVersionDemo01:Clean"/>
43+
</Target>
44+
<Target Name="Make">
45+
<CallTarget Targets="C4DVersion:Make;C4DVersionDemo01:Make"/>
46+
</Target>
47+
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
48+
</Project>

‎Samples/Demo01/C4DVersionDemo01.dpr‎

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,16 @@
1+
program C4DVersionDemo01;
2+
3+
uses
4+
Vcl.Forms,
5+
C4D.VersionDemo01.View.Main in 'Src\View\C4D.VersionDemo01.View.Main.pas' {C4DVersionInfoDemo01ViewMain};
6+
7+
{$R *.res}
8+
9+
begin
10+
Application.Initialize;
11+
Application.MainFormOnTaskbar := True;
12+
Application.Title := 'C4D VersionInfo Title';
13+
Application.Hint := 'C4D VersionInfo Hint';
14+
Application.CreateForm(TC4DVersionInfoDemo01ViewMain, C4DVersionInfoDemo01ViewMain);
15+
Application.Run;
16+
end.

‎Samples/Demo01/C4DVersionDemo01.dproj‎

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

‎Samples/Demo01/C4DVersionDemo01.res‎

3.11 KB
Binary file not shown.

‎Samples/Demo01/Src/View/C4D.VersionDemo01.View.Main.dfm‎

Lines changed: 180 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,180 @@
1+
object C4DVersionInfoDemo01ViewMain: TC4DVersionInfoDemo01ViewMain
2+
Left = 0
3+
Top = 0
4+
Caption = 'Code4Delphi - VersionInfo - Demo'
5+
ClientHeight = 642
6+
ClientWidth = 964
7+
Color = clBtnFace
8+
Font.Charset = DEFAULT_CHARSET
9+
Font.Color = clWindowText
10+
Font.Height = -11
11+
Font.Name = 'Tahoma'
12+
Font.Style = []
13+
OldCreateOrder = False
14+
Position = poScreenCenter
15+
WindowState = wsMaximized
16+
OnCreate = FormCreate
17+
PixelsPerInch = 96
18+
TextHeight = 13
19+
object Memo1: TMemo
20+
Left = 0
21+
Top = 249
22+
Width = 964
23+
Height = 393
24+
Align = alClient
25+
Font.Charset = ANSI_CHARSET
26+
Font.Color = clWindowText
27+
Font.Height = -11
28+
Font.Name = 'Courier New'
29+
Font.Style = []
30+
ParentFont = False
31+
ScrollBars = ssVertical
32+
TabOrder = 0
33+
end
34+
object Panel1: TPanel
35+
Left = 0
36+
Top = 215
37+
Width = 964
38+
Height = 34
39+
Align = alTop
40+
BevelOuter = bvLowered
41+
Padding.Left = 2
42+
Padding.Top = 2
43+
Padding.Right = 2
44+
Padding.Bottom = 2
45+
TabOrder = 1
46+
object btnLimparLog: TButton
47+
Left = 3
48+
Top = 3
49+
Width = 118
50+
Height = 28
51+
Cursor = crHandPoint
52+
Align = alLeft
53+
Caption = 'Limpar log'
54+
TabOrder = 0
55+
OnClick = btnLimparLogClick
56+
end
57+
object ckLogLimparACadaBusca: TCheckBox
58+
Left = 126
59+
Top = 9
60+
Width = 123
61+
Height = 17
62+
Cursor = crHandPoint
63+
Caption = 'Limpar a cada busca'
64+
Checked = True
65+
State = cbChecked
66+
TabOrder = 1
67+
end
68+
end
69+
object GroupBox1: TGroupBox
70+
Left = 0
71+
Top = 83
72+
Width = 964
73+
Height = 80
74+
Align = alTop
75+
Caption = ' Usando a interface IC4DVersionInfo'
76+
TabOrder = 2
77+
object Label1: TLabel
78+
Left = 18
79+
Top = 29
80+
Width = 43
81+
Height = 13
82+
Caption = 'Path exe'
83+
end
84+
object edtPathExe01: TEdit
85+
Left = 19
86+
Top = 43
87+
Width = 531
88+
Height = 21
89+
TabOrder = 0
90+
Text = 'C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\bds.exe'
91+
end
92+
object btnVersaoSistemaAtual: TButton
93+
Left = 581
94+
Top = 13
95+
Width = 263
96+
Height = 25
97+
Cursor = crHandPoint
98+
Caption = 'C4D.VersionInfo - Sistema Atual'
99+
TabOrder = 1
100+
OnClick = btnVersaoSistemaAtualClick
101+
end
102+
object btnVersaoSistemaDoEdit01: TButton
103+
Left = 581
104+
Top = 41
105+
Width = 263
106+
Height = 25
107+
Cursor = crHandPoint
108+
Caption = 'C4D.VersionInfo - Sistema do edit'
109+
TabOrder = 2
110+
OnClick = btnVersaoSistemaDoEdit01Click
111+
end
112+
object btnBuscarExe: TButton
113+
Left = 552
114+
Top = 41
115+
Width = 26
116+
Height = 25
117+
Cursor = crHandPoint
118+
Hint = 'Buscar .exe'
119+
Caption = '...'
120+
ParentShowHint = False
121+
ShowHint = True
122+
TabOrder = 3
123+
OnClick = btnBuscarExeClick
124+
end
125+
end
126+
object GroupBox2: TGroupBox
127+
Left = 0
128+
Top = 163
129+
Width = 964
130+
Height = 52
131+
Align = alTop
132+
Caption = ' SemanticVersion '
133+
TabOrder = 3
134+
object btnSemanticVersion: TButton
135+
Left = 3
136+
Top = 19
137+
Width = 430
138+
Height = 25
139+
Cursor = crHandPoint
140+
Caption =
141+
'Pegar somente SemanticVersion (Sempre do .exe onde estiver sendo' +
142+
' usado)'
143+
TabOrder = 0
144+
OnClick = btnSemanticVersionClick
145+
end
146+
end
147+
object GroupBox3: TGroupBox
148+
Left = 0
149+
Top = 0
150+
Width = 964
151+
Height = 83
152+
Align = alTop
153+
Caption = ' Como usar '
154+
Padding.Left = 3
155+
Padding.Right = 3
156+
Padding.Bottom = 3
157+
TabOrder = 4
158+
object Memo2: TMemo
159+
Left = 5
160+
Top = 15
161+
Width = 954
162+
Height = 63
163+
Align = alClient
164+
BorderStyle = bsNone
165+
Lines.Strings = (
166+
167+
'Para utiliza, basta configurar a vers'#227'o so seu projeto diretamen' +
168+
'te pela IDE do Delphi em: Project > Options... (ou Shift+Ctrl+F' +
169+
'11)'
170+
'Na tela que abrir acessar: Application > Version Info'
171+
''
172+
173+
'Basta preencher os dados da vers'#227'o na tela que sera aberta, e ut' +
174+
'ilizar esse framework para pegar as informa'#231#245'es.'
175+
' ')
176+
ScrollBars = ssVertical
177+
TabOrder = 0
178+
end
179+
end
180+
end

0 commit comments

Comments
 (0)