mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Build under 32 bit

Browse source 
(cherry picked from commit 91b57011ee)
This commit is contained in:
Alexander Koblov 2023-12-03 17:03:38 +03:00
commit 6a34f7a7c1
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
components/doublecmd/dcosutils.pas
View file

@ -235,7 +235,7 @@ function mbFileSize(const FileName: String): Int64;
function FileGetSize(Handle: System.THandle): Int64;
function FileFlush(Handle: System.THandle): Boolean;
function FileFlushData(Handle: System.THandle): Boolean;
function FileIsReadOnly(Handle: System.THandle): Boolean;
function FileIsReadOnlyEx(Handle: System.THandle): Boolean;
function FileAllocate(Handle: System.THandle; Size: Int64): Boolean;
{ Directory handling functions}
function mbGetCurrentDir: String;
@ -1408,7 +1408,7 @@ begin
end;
{$ENDIF}
function FileIsReadOnly(Handle: System.THandle): Boolean;
function FileIsReadOnlyEx(Handle: System.THandle): Boolean;
{$IF DEFINED(MSWINDOWS)}
var
Info: BY_HANDLE_FILE_INFORMATION;

2
src/feditor.pas
View file

@ -420,7 +420,7 @@ begin
Reader := TFileStreamUAC.Create(aFileName, fmOpenRead or fmShareDenyNone);
try
SetLength(sOriginalText, Reader.Size);
actFileSave.Enabled:= not FileIsReadOnly(Reader.Handle);
actFileSave.Enabled:= not FileIsReadOnlyEx(Reader.Handle);
Reader.Read(Pointer(sOriginalText)^, Length(sOriginalText));
finally
Reader.Free;