paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 09:20:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed checking readonly for non existing files

Browse Source 
git-svn-id: trunk@3901 -
This commit is contained in:
mattias 2003-03-07 13:32:40 +00:00
parent d392a8d123
commit 35d4bc1872
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/project.pp
View File

@ -794,7 +794,7 @@ begin
and FIgnoreFileDateOnDiskValid and FIgnoreFileDateOnDiskValid
and (FIgnoreFileDateOnDisk=Source.FileDateOnDisk) then and (FIgnoreFileDateOnDisk=Source.FileDateOnDisk) then
Result:=false; Result:=false;
if not IsVirtual then if (not IsVirtual) and FileExists(Filename) then
FileReadOnly:=FileIsWritable(Filename); FileReadOnly:=FileIsWritable(Filename);
end; end;
@ -2243,6 +2243,9 @@ end.
{ {
$Log$ $Log$
Revision 1.96 2003/03/07 13:32:40 mattias
fixed checking readonly for non existing files
Revision 1.95 2003/03/07 11:41:21 mattias Revision 1.95 2003/03/07 11:41:21 mattias
fixed readonly check and added script to quick create lazarus snapshot fixed readonly check and added script to quick create lazarus snapshot