summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-31 15:03:45 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-31 15:03:45 +0200
commitde734718e9fbd342a0312e76ed9ad782057fdcf2 (patch)
tree20d176338a91e331966827a36d17400acda6d88d
parent4386377a59dc066a34d94e470247fe18fd00db9b (diff)
downloadfpGUI-de734718e9fbd342a0312e76ed9ad782057fdcf2.tar.xz
add sharing options when opening po files.
This doesn't have any affect under Linux, but it might under Windows.
-rw-r--r--src/corelib/fpg_pofiles.pas4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/corelib/fpg_pofiles.pas b/src/corelib/fpg_pofiles.pas
index 656e776d..76e9216c 100644
--- a/src/corelib/fpg_pofiles.pas
+++ b/src/corelib/fpg_pofiles.pas
@@ -267,7 +267,7 @@ var
f: TStream;
begin
if AFilename <> '' then
- f := TFileStream.Create(AFilename, fmOpenRead);
+ f := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyNone);
try
Self.Create(f);
finally
@@ -418,7 +418,7 @@ begin
// Now fpGUI translation
if (AFilename = '') or (not fpgFileExists(AFilename)) then
Exit;
- f := TFileStream.Create(AFilename, fmOpenRead);
+ f := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyNone);
try
s := '';
Size := f.Size - f.Position;