Skip to content

Commit 5df60df

Browse files
N1ghtF1reN1ghtF1re
committed
Add check for update
1 parent 58ead23 commit 5df60df

25 files changed

+248
-15
lines changed

‎AutoProcedureTableGenerator.exe

2.53 MB
Binary file not shown.

‎src/AutoProcedureTableGenerator.dpr

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,6 @@ program AutoProcedureTableGenerator;
33
uses
44
Vcl.Forms,
55
genTable in 'genTable.pas' {TableGenForm};
6-
76
{$R *.res}
87

98
begin

‎src/AutoProcedureTableGenerator.dproj

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -103,6 +103,13 @@
103103
<Form>TableGenForm</Form>
104104
<FormType>dfm</FormType>
105105
</DCCReference>
106+
<DCCReference Include="lib\blcksock.pas"/>
107+
<DCCReference Include="lib\synafpc.pas"/>
108+
<DCCReference Include="lib\synsock.pas"/>
109+
<DCCReference Include="lib\synautil.pas"/>
110+
<DCCReference Include="lib\synacode.pas"/>
111+
<DCCReference Include="lib\synaip.pas"/>
112+
<DCCReference Include="lib\httpsend.pas"/>
106113
<BuildConfiguration Include="Release">
107114
<Key>Cfg_2</Key>
108115
<CfgParent>Base</CfgParent>
@@ -125,6 +132,13 @@
125132
</Source>
126133
</Delphi.Personality>
127134
<Deployment Version="3">
135+
<DeployFile LocalName="Icon.png" Configuration="Debug" Class="UWP_DelphiLogo150">
136+
<Platform Name="Win32">
137+
<RemoteDir>Assets\</RemoteDir>
138+
<RemoteName>Logo150x150.png</RemoteName>
139+
<Overwrite>true</Overwrite>
140+
</Platform>
141+
</DeployFile>
128142
<DeployFile LocalName="Win32\Debug\AutoProcedureTableGenerator.exe" Configuration="Debug" Class="ProjectOutput">
129143
<Platform Name="Win32">
130144
<RemoteName>AutoProcedureTableGenerator.exe</RemoteName>

‎src/AutoProcedureTableGenerator.dproj.local

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
<?xml version="1.0" encoding="utf-8"?>
22
<BorlandProject>
33
<Transactions>
4+
<Transaction>1899.12.30 00:00:00.000.022,D:\labs\generate proctable\Unit1.pas=C:\Users\Win10\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
45
<Transaction>1899.12.30 00:00:00.000.524,=C:\Users\Win10\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
5-
<Transaction>2018.03.08 14:41:18.844,=C:\Users\Win10\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
6-
<Transaction>2018.03.08 15:37:09.022,D:\labs\generate proctable\Unit1.pas=C:\Users\Win10\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
7-
<Transaction>2018.03.08 15:37:09.022,D:\labs\generate proctable\Unit1.dfm=C:\Users\Win10\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
8-
<Transaction>2018.03.08 16:19:59.843,D:\labs\generate proctable\genTable.pas=D:\labs\generate proctable\Unit1.pas</Transaction>
9-
<Transaction>2018.03.08 16:19:59.843,D:\labs\generate proctable\genTable.dfm=D:\labs\generate proctable\Unit1.dfm</Transaction>
10-
<Transaction>2018.03.08 16:20:25.467,D:\labs\generate proctable\AutoProcedureTableGenerator.dproj=C:\Users\Win10\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
6+
<Transaction>1899.12.30 00:00:00.000.844,=C:\Users\Win10\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
7+
<Transaction>1899.12.30 00:00:00.000.843,D:\labs\generate proctable\genTable.pas=D:\labs\generate proctable\Unit1.pas</Transaction>
8+
<Transaction>1899.12.30 00:00:00.000.843,D:\labs\generate proctable\genTable.dfm=D:\labs\generate proctable\Unit1.dfm</Transaction>
9+
<Transaction>1899.12.30 00:00:00.000.467,D:\labs\generate proctable\AutoProcedureTableGenerator.dproj=C:\Users\Win10\Documents\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
10+
<Transaction>1899.12.30 00:00:00.000.022,D:\labs\generate proctable\Unit1.dfm=C:\Users\Win10\Documents\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
1111
</Transactions>
1212
</BorlandProject>

‎src/AutoProcedureTableGenerator.identcache

482 Bytes
Binary file not shown.

‎src/AutoProcedureTableGenerator.res

24 KB
Binary file not shown.

‎src/AutoProcedureTableGenerator.stat

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
[Stats]
2+
EditorSecs=1057
3+
DesignerSecs=58
4+
InspectorSecs=83
5+
CompileSecs=65486
6+
OtherSecs=113
7+
StartTime=08.03.2018 16:32:08
8+
RealKeys=0
9+
EffectiveKeys=0
10+
DebugSecs=1

‎src/NewVersion.dfm

Lines changed: 121 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,121 @@
1+
object FormVers: TFormVers
2+
Left = 0
3+
Top = 0
4+
BorderIcons = [biSystemMenu]
5+
Caption = #1042#1099#1096#1083#1086' '#1076#1086#1083#1075#1086#1078#1076#1072#1085#1085#1086#1077' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1077'!!!'
6+
ClientHeight = 334
7+
ClientWidth = 418
8+
Color = clBtnFace
9+
Font.Charset = DEFAULT_CHARSET
10+
Font.Color = clWindowText
11+
Font.Height = -11
12+
Font.Name = 'Tahoma'
13+
Font.Style = []
14+
OldCreateOrder = False
15+
OnCreate = FormCreate
16+
PixelsPerInch = 96
17+
TextHeight = 13
18+
object pnl1: TPanel
19+
Left = 0
20+
Top = 0
21+
Width = 418
22+
Height = 334
23+
Align = alClient
24+
BevelOuter = bvNone
25+
Caption = 'pnl1'
26+
Color = clHighlightText
27+
ParentBackground = False
28+
ShowCaption = False
29+
TabOrder = 0
30+
object Label1: TLabel
31+
Left = 36
32+
Top = 16
33+
Width = 349
34+
Height = 16
35+
Caption = #1056#1072#1076#1099' '#1089#1086#1086#1073#1097#1080#1090#1100', '#1095#1090#1086' '#1074#1099#1096#1083#1086' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1077' '#1085#1072#1096#1077#1081' '#1087#1088#1086#1075#1088#1072#1084#1084#1099
36+
Font.Charset = DEFAULT_CHARSET
37+
Font.Color = clWindowText
38+
Font.Height = -13
39+
Font.Name = 'Tahoma'
40+
Font.Style = []
41+
ParentFont = False
42+
end
43+
object Label2: TLabel
44+
Left = 32
45+
Top = 38
46+
Width = 353
47+
Height = 26
48+
Alignment = taCenter
49+
Caption =
50+
#1042' '#1085#1086#1074#1086#1081' '#1074#1077#1088#1089#1080#1080' '#1076#1086#1073#1072#1074#1083#1077#1085#1086' '#1084#1085#1086#1075#1086' '#1087#1083#1102#1096#1077#1082' '#1080' '#1080#1089#1087#1088#1072#1074#1083#1077#1085#1086' '#1084#1085#1086#1075#1086' '#1073#1072#1075#1086#1074', ' +
51+
#1087#1086#1101#1090#1086#1084#1091' '#1085#1072#1089#1090#1086#1103#1090#1077#1083#1100#1085#1086' '#1088#1077#1082#1086#1084#1077#1085#1076#1091#1077#1084' '#1074#1072#1084' '#1086#1073#1085#1086#1074#1080#1090#1100#1089#1103
52+
WordWrap = True
53+
end
54+
object Label3: TLabel
55+
Left = 32
56+
Top = 88
57+
Width = 87
58+
Height = 13
59+
Caption = #1058#1077#1082#1091#1097#1072#1103' '#1074#1077#1088#1089#1080#1103':'
60+
end
61+
object Label4: TLabel
62+
Left = 32
63+
Top = 107
64+
Width = 98
65+
Height = 13
66+
Caption = #1042#1077#1088#1089#1080#1103' '#1085#1072' '#1089#1077#1088#1074#1077#1088#1077':'
67+
end
68+
object lbCurrVersion: TLabel
69+
Left = 125
70+
Top = 88
71+
Width = 3
72+
Height = 13
73+
end
74+
object lbNewVersion: TLabel
75+
Left = 136
76+
Top = 107
77+
Width = 3
78+
Height = 13
79+
end
80+
object btnDL: TButton
81+
Left = 104
82+
Top = 126
83+
Width = 225
84+
Height = 51
85+
Caption = #1057#1050#1040#1063#1040#1058#1068
86+
Font.Charset = DEFAULT_CHARSET
87+
Font.Color = clWindowText
88+
Font.Height = -16
89+
Font.Name = 'Tahoma'
90+
Font.Style = []
91+
ParentFont = False
92+
TabOrder = 0
93+
OnClick = btnDLClick
94+
end
95+
object mmoChangelog: TMemo
96+
Left = 32
97+
Top = 192
98+
Width = 353
99+
Height = 137
100+
ScrollBars = ssVertical
101+
TabOrder = 1
102+
end
103+
end
104+
object IdHTTP1: TIdHTTP
105+
AllowCookies = True
106+
ProxyParams.BasicAuthentication = False
107+
ProxyParams.ProxyPort = 0
108+
Request.ContentLength = -1
109+
Request.ContentRangeEnd = -1
110+
Request.ContentRangeStart = -1
111+
Request.ContentRangeInstanceLength = -1
112+
Request.Accept = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
113+
Request.BasicAuthentication = False
114+
Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
115+
Request.Ranges.Units = 'bytes'
116+
Request.Ranges = <>
117+
HTTPOptions = [hoForceEncodeParams]
118+
Left = 248
119+
Top = 184
120+
end
121+
end

‎src/NewVersion.pas

Lines changed: 53 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,53 @@
1+
unit NewVersion;
2+
3+
interface
4+
5+
uses
6+
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
7+
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,Winapi.ShellAPI,IdHTTP,
8+
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;
9+
10+
type
11+
TFormVers = class(TForm)
12+
pnl1: TPanel;
13+
Label1: TLabel;
14+
Label2: TLabel;
15+
Label3: TLabel;
16+
Label4: TLabel;
17+
btnDL: TButton;
18+
lbCurrVersion: TLabel;
19+
lbNewVersion: TLabel;
20+
mmoChangelog: TMemo;
21+
IdHTTP1: TIdHTTP;
22+
procedure FormCreate(Sender: TObject);
23+
procedure btnDLClick(Sender: TObject);
24+
private
25+
{ Private declarations }
26+
public
27+
{ Public declarations }
28+
end;
29+
30+
var
31+
FormVers: TFormVers;
32+
Changelog:string;
33+
34+
implementation
35+
36+
{$R *.dfm}
37+
uses genTable;
38+
39+
procedure TFormVers.btnDLClick(Sender: TObject);
40+
begin
41+
ShellExecute(Application.Handle, nil, 'https://brakhmen.info/download.php?file=subprogtablegen', nil, nil,SW_SHOWNOACTIVATE);
42+
end;
43+
44+
procedure TFormVers.FormCreate(Sender: TObject);
45+
begin
46+
Changelog := IDHttp1.Get('http://pankratiew.info/TPG_changelog.brakh');
47+
lbCurrVersion.Caption := TableGenForm.version;
48+
lbNewVersion.Caption := TableGenForm.HTMLtext;
49+
mmoChangelog.Lines.Add('Èçìåíåíèÿ: ');
50+
mmoChangelog.Lines.Add(Changelog);
51+
end;
52+
53+
end.

‎src/TPG_changelog.brakh

64 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)