diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-31 15:03:45 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-31 15:03:45 +0200 |
| commit | de734718e9fbd342a0312e76ed9ad782057fdcf2 (patch) | |
| tree | 20d176338a91e331966827a36d17400acda6d88d | |
| parent | 4386377a59dc066a34d94e470247fe18fd00db9b (diff) | |
| download | fpGUI-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.pas | 4 |
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; |