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

fixed checking readonly for non existing files

Browse Source 
git-svn-id: trunk@2885 -
This commit is contained in:
mattias 2002-08-18 08:55:31 +00:00
parent fa463fcf07
commit ec5df4c9e5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -3796,7 +3796,8 @@ begin
if ActiveUnitInfo=nil then exit;
// check if file is writable on disk
if not ActiveUnitInfo.IsVirtual then
if (not ActiveUnitInfo.IsVirtual)
and FileExists(ActiveUnitInfo.Filename) then
ActiveUnitInfo.FileReadOnly:=not FileIsWritable(ActiveUnitInfo.Filename);
// if this file is part of the project and the project is virtual then save
@ -7833,6 +7834,9 @@ end.
{ =============================================================================
$Log$
Revision 1.476 2003/03/07 13:32:40 mattias
fixed checking readonly for non existing files
Revision 1.475 2003/03/07 11:41:21 mattias
fixed readonly check and added script to quick create lazarus snapshot