mirror of
https://github.com/ngeor/Chameleon.git
synced 2025-12-19 09:53:43 +01:00
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:
parent
f668492dec
commit
90991c865d
8
.gitignore
vendored
Normal file
8
.gitignore
vendored
Normal file
@ -0,0 +1,8 @@
|
||||
*.o
|
||||
*.ppu
|
||||
*.obj
|
||||
*.exe
|
||||
*.dll
|
||||
*.compiled
|
||||
*.bak
|
||||
*.lps
|
||||
@ -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=
|
||||
@ -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>
|
||||
|
||||
BIN
Chameleon.res
BIN
Chameleon.res
Binary file not shown.
@ -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
|
||||
@ -29,4 +29,4 @@ implementation
|
||||
{$R *.lfm}
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
10
frmMain.pas
10
frmMain.pas
@ -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;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user