Subversion Repositories delphiutils

Compare Revisions

Regard whitespace Rev 84 → Rev 85

/trunk/FileReadChecker/FileReadCheckerMain.pas
16,6 → 16,7
ProgressBar1: TProgressBar;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
procedure FindFiles(FilesList: TStrings; StartDir, FileMask: string; errorSL: TStrings=nil);
procedure EnableDisableControls(enabled: boolean);
45,6 → 46,10
begin
Application.ProcessMessages;
if Application.Terminated then Abort;
 
if FilesList.Count = FilesList.Capacity - 1 then
FilesList.Capacity := FilesList.Capacity + 1000;
 
FilesList.Add(StartDir + SR.Name);
IsFound := FindNext(SR) = 0;
end;
117,6 → 122,7
cnt := 0;
sl := TStringList.Create;
try
sl.Sorted := false;
sl.BeginUpdate;
Label2.Caption := 'Scan folders ...';
137,7 → 143,9
inc(cnt);
end;
 
Label2.Caption := MinimizeName(fil, Label2.Canvas, Label2.Width);
QueryPerformanceCounter(c2);
elapsedSecs := Ceil((c2-c1)/f);
Label2.Caption := MinimizeName(Format('[%.2d:%.2d:%.2d] %s', [elapsedSecs div 3600, elapsedSecs mod 3600 div 60, elapsedSecs mod 3600 mod 60, fil]), Label2.Canvas, Label2.Width);
 
Application.ProcessMessages;
if Application.Terminated then Abort;
152,7 → 160,7
QueryPerformanceCounter(c2);
elapsedSecs := Ceil((c2-c1)/f);
 
ShowMessageFmt('Finished. Found %d error(s). Time: %.2d:%.2d:%.2d', [cnt, elapsedSecs div 3600, elapsedSecs mod 3600 div 60, elapsedSecs mod 3600 mod 60]);
ShowMessageFmt('Finished. Found %d error(s). Elapsed time: %.2d:%.2d:%.2d', [cnt, elapsedSecs div 3600, elapsedSecs mod 3600 div 60, elapsedSecs mod 3600 mod 60]);
end;
finally
EnableDisableControls(true);
164,12 → 172,23
Application.Terminate;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered := true;
 
{$IFDEF UNICODE}
Caption := Caption + ' [Unicode]';
{$ELSE}
Caption := Caption + ' [ANSI]';
{$ENDIF}
end;
 
procedure TForm1.EnableDisableControls(enabled: boolean);
begin
Button1.Enabled := enabled;
Label1.Enabled := enabled;
Edit1.Enabled := enabled;
Memo1.Enabled := enabled;
// Memo1.Enabled := enabled; // is already readonly by default
end;
 
end.