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>
|
<i18n>
|
||||||
<EnableI18N LFM="False"/>
|
<EnableI18N LFM="False"/>
|
||||||
</i18n>
|
</i18n>
|
||||||
|
<VersionInfo>
|
||||||
|
<UseVersionInfo Value="True"/>
|
||||||
|
<AutoIncrementBuild Value="True"/>
|
||||||
|
<RevisionNr Value="2"/>
|
||||||
|
<BuildNr Value="2"/>
|
||||||
|
</VersionInfo>
|
||||||
<BuildModes Count="1">
|
<BuildModes Count="1">
|
||||||
<Item1 Name="Default" Default="True"/>
|
<Item1 Name="Default" Default="True"/>
|
||||||
</BuildModes>
|
</BuildModes>
|
||||||
|
|||||||
BIN
Chameleon.res
BIN
Chameleon.res
Binary file not shown.
@ -4,7 +4,7 @@ unit about1;
|
|||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
uses SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
||||||
Buttons, ExtCtrls;
|
Buttons, ExtCtrls;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|||||||
@ -205,7 +205,7 @@ object MainForm: TMainForm
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object BitBtn1: TBitBtn
|
object btnAbout: TBitBtn
|
||||||
Left = 323
|
Left = 323
|
||||||
Height = 37
|
Height = 37
|
||||||
Top = 11
|
Top = 11
|
||||||
@ -227,7 +227,7 @@ object MainForm: TMainForm
|
|||||||
}
|
}
|
||||||
ModalResult = 3
|
ModalResult = 3
|
||||||
NumGlyphs = 2
|
NumGlyphs = 2
|
||||||
OnClick = BitBtn1Click
|
OnClick = btnAboutClick
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
end
|
end
|
||||||
object SaveDialog1: TSaveDialog
|
object SaveDialog1: TSaveDialog
|
||||||
|
|||||||
10
frmMain.pas
10
frmMain.pas
@ -36,7 +36,7 @@ type
|
|||||||
RCFileName: TEdit;
|
RCFileName: TEdit;
|
||||||
BrowseRC: TButton;
|
BrowseRC: TButton;
|
||||||
SaveRC: TButton;
|
SaveRC: TButton;
|
||||||
BitBtn1: TBitBtn;
|
btnAbout: TBitBtn;
|
||||||
procedure InformationClick(Sender: TObject);
|
procedure InformationClick(Sender: TObject);
|
||||||
procedure BrowsePasClick(Sender: TObject);
|
procedure BrowsePasClick(Sender: TObject);
|
||||||
procedure BrowseRCClick(Sender: TObject);
|
procedure BrowseRCClick(Sender: TObject);
|
||||||
@ -45,7 +45,7 @@ type
|
|||||||
procedure optManualClick(Sender: TObject);
|
procedure optManualClick(Sender: TObject);
|
||||||
procedure optAutomaticClick(Sender: TObject);
|
procedure optAutomaticClick(Sender: TObject);
|
||||||
procedure RCFileNameChange(Sender: TObject);
|
procedure RCFileNameChange(Sender: TObject);
|
||||||
procedure BitBtn1Click(Sender: TObject);
|
procedure btnAboutClick(Sender: TObject);
|
||||||
procedure SaveRCClick(Sender: TObject);
|
procedure SaveRCClick(Sender: TObject);
|
||||||
private
|
private
|
||||||
procedure GenerateDfmFile(const filename, frmname: string;
|
procedure GenerateDfmFile(const filename, frmname: string;
|
||||||
@ -292,9 +292,6 @@ begin
|
|||||||
EnableSavePas;
|
EnableSavePas;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
procedure TMainForm.EnableWndInput;
|
procedure TMainForm.EnableWndInput;
|
||||||
begin
|
begin
|
||||||
WndValue.Enabled := optManual.Checked;
|
WndValue.Enabled := optManual.Checked;
|
||||||
@ -311,13 +308,12 @@ begin
|
|||||||
EnableWndInput;
|
EnableWndInput;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure TMainForm.RCFileNameChange(Sender: TObject);
|
procedure TMainForm.RCFileNameChange(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
SaveRC.Enabled := False;
|
SaveRC.Enabled := False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMainForm.BitBtn1Click(Sender: TObject);
|
procedure TMainForm.btnAboutClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
AboutBox.ShowModal;
|
AboutBox.ShowModal;
|
||||||
end;
|
end;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user