diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..fe50c4d --- /dev/null +++ b/.gitignore @@ -0,0 +1,8 @@ +*.o +*.ppu +*.obj +*.exe +*.dll +*.compiled +*.bak +*.lps diff --git a/Chameleon.dof b/Chameleon.dof deleted file mode 100644 index 9d48bcd..0000000 --- a/Chameleon.dof +++ /dev/null @@ -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= diff --git a/Chameleon.lpi b/Chameleon.lpi index 771f1cd..123dd97 100644 --- a/Chameleon.lpi +++ b/Chameleon.lpi @@ -22,6 +22,12 @@ + + + + + + diff --git a/Chameleon.res b/Chameleon.res index 45affc0..0d06996 100644 Binary files a/Chameleon.res and b/Chameleon.res differ diff --git a/about1.pas b/about1.pas index 59adb3d..dfaf755 100644 --- a/about1.pas +++ b/about1.pas @@ -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. - \ No newline at end of file + diff --git a/frmMain.lfm b/frmMain.lfm index 801de59..a056717 100644 --- a/frmMain.lfm +++ b/frmMain.lfm @@ -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 diff --git a/frmMain.pas b/frmMain.pas index b2f018e..038cb8b 100644 --- a/frmMain.pas +++ b/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;