Subversion Repositories checksum-tools

Compare Revisions

No changes between revisions

Regard whitespace Rev 6 → Rev 7

/trunk/Windows/SFVCorrect.identcache
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Deleted: svn:mime-type
-application/octet-stream
\ No newline at end of property
/trunk/Windows/SFVCorrect.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/Windows/Unit3.dfm
11,7 → 11,9
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
/trunk/Windows/Unit3.pas
20,6 → 20,7
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
FChecksumFile: string;
public
44,6 → 45,11
LoadSFV;
end;
 
procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;
 
procedure TForm3.FormShow(Sender: TObject);
begin
Caption := ParamChecksumFile;
93,7 → 99,7
csman.ToStringList(slSFV);
 
// List existing files
IsFound := FindFirst(ADirectory + '*', faAnyFile, SR) = 0;
IsFound := FindFirst(ADirectory + '*', faAnyFile xor faDirectory, SR) = 0;
while IsFound do
begin
if (SR.Name <> '.') and (SR.Name <> '..') then
143,6 → 149,13
Memo4.Lines.Add(csman.MergeLine(TestFileName, IstChecksum));
end;
end;
 
if (Memo2.Text = '') and (Memo3.Text = '') and (Memo4.Text = '') then
Color := clMoneyGreen
else if (Memo2.Text <> '') then
Color := clRed
else
Color := clYellow;
finally
FreeAndNil(slSFV);
FreeAndNil(existingFiles);