Adding gitignore

Removed unused unit Windows from about form.
Removed old Delphi options file.
Including version info in the generated exe file.
This commit is contained in:
Nikolaos Georgiou 2021-10-29 07:48:05 +02:00
parent f668492dec
commit 90991c865d
7 changed files with 21 additions and 98 deletions

8
.gitignore vendored Normal file
View File

@ -0,0 +1,8 @@
*.o
*.ppu
*.obj
*.exe
*.dll
*.compiled
*.bak
*.lps

View File

@ -1,87 +0,0 @@
[FileVersion]
Version=6.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

View File

@ -22,6 +22,12 @@
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<RevisionNr Value="2"/>
<BuildNr Value="2"/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>

Binary file not shown.

View File

@ -4,7 +4,7 @@ unit about1;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
uses SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type

View File

@ -205,7 +205,7 @@ object MainForm: TMainForm
end
end
end
object BitBtn1: TBitBtn
object btnAbout: TBitBtn
Left = 323
Height = 37
Top = 11
@ -227,7 +227,7 @@ object MainForm: TMainForm
}
ModalResult = 3
NumGlyphs = 2
OnClick = BitBtn1Click
OnClick = btnAboutClick
TabOrder = 2
end
object SaveDialog1: TSaveDialog

View File

@ -36,7 +36,7 @@ type
RCFileName: TEdit;
BrowseRC: TButton;
SaveRC: TButton;
BitBtn1: TBitBtn;
btnAbout: TBitBtn;
procedure InformationClick(Sender: TObject);
procedure BrowsePasClick(Sender: TObject);
procedure BrowseRCClick(Sender: TObject);
@ -45,7 +45,7 @@ type
procedure optManualClick(Sender: TObject);
procedure optAutomaticClick(Sender: TObject);
procedure RCFileNameChange(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure btnAboutClick(Sender: TObject);
procedure SaveRCClick(Sender: TObject);
private
procedure GenerateDfmFile(const filename, frmname: string;
@ -292,9 +292,6 @@ begin
EnableSavePas;
end;
procedure TMainForm.EnableWndInput;
begin
WndValue.Enabled := optManual.Checked;
@ -311,13 +308,12 @@ begin
EnableWndInput;
end;
procedure TMainForm.RCFileNameChange(Sender: TObject);
begin
SaveRC.Enabled := False;
end;
procedure TMainForm.BitBtn1Click(Sender: TObject);
procedure TMainForm.btnAboutClick(Sender: TObject);
begin
AboutBox.ShowModal;
end;