diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/HelpFile.pas | 5 | ||||
| -rw-r--r-- | src/frm_main.pas | 3 |
2 files changed, 5 insertions, 3 deletions
diff --git a/src/HelpFile.pas b/src/HelpFile.pas index b3ee7317..af4a2cb9 100644 --- a/src/HelpFile.pas +++ b/src/HelpFile.pas @@ -446,12 +446,12 @@ end; procedure THelpFile.Open; begin + LogEvent(LogDebug, 'Open File >>'); if not FileExists( _Filename ) then raise EHelpFileException.Create( FileErrorNotFound ); try - _Handle := TFileStream.Create(_FileName, fmOpenRead); - + _Handle := TFileStream.Create(_FileName, fmOpenRead or fmShareDenyWrite); except on E: Exception do raise EHelpFileException.Create(E.Message); @@ -471,6 +471,7 @@ begin //end; _FileSize := GetFileSize(_Filename); + LogEvent(LogDebug, 'Open File <<'); end; procedure THelpFile.Close; diff --git a/src/frm_main.pas b/src/frm_main.pas index 0d1a8495..c6eede46 100644 --- a/src/frm_main.pas +++ b/src/frm_main.pas @@ -966,7 +966,6 @@ begin SetWaitCursor; tmpHelpFiles := TList.Create; -// RBRi Translate if not LoadFiles(FileNames, tmpHelpFiles) then begin ClearWaitCursor; @@ -1344,7 +1343,9 @@ begin LogEvent(LogStartup, ' Display index (count = ' + IntToStr(DisplayedIndex.Count) + ')'); // Now display the final index list + lbIndex.BeginUpdate; lbIndex.Items.Assign( DisplayedIndex ); + lbIndex.EndUpdate; LogEvent(LogStartup, ' Tidy up' ); tmpIndexLists.Free; |