From ce8fbf62d4e8839f03c6830fe3cb827119b23d72 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 31 May 2011 07:41:18 +0000
Subject: [PATCH]  * patch from anton fixing TFilestream modes. Mantis #19448

git-svn-id: trunk@17614 -
---
 packages/chm/src/chmreader.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/chm/src/chmreader.pas b/packages/chm/src/chmreader.pas
index 2c3d4d1a89..c744b1d79b 100644
--- a/packages/chm/src/chmreader.pas
+++ b/packages/chm/src/chmreader.pas
@@ -1570,7 +1570,7 @@ AChm: TChmReader;
 AIndex: Integer;
 begin
   if not FileExists(AFileName) then exit;
-  AStream := TFileStream.Create(AFileName, fmOpenRead, fmShareDenyWrite);
+  AStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
   AChm := TChmReader.Create(AStream, True);
   AIndex := AddObject(AFileName, AChm);
   fLastChm := AChm;