pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazEdit: when calling FileGetAttrUTF8 check for LongInt(feInvalidHandle) instead of feInvalidHandle.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3251 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2014-06-29 12:03:21 +00:00
parent b5f465ac84
commit af315f4311
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/lazedit/editorpagecontrol.pp
View File

@ -688,7 +688,7 @@ begin
//because it uses FILE_ATTRIBUTE_NORMAL //because it uses FILE_ATTRIBUTE_NORMAL
//see http://msdn.microsoft.com/en-us/library/windows/desktop/aa363858%28v=vs.85%29.aspx //see http://msdn.microsoft.com/en-us/library/windows/desktop/aa363858%28v=vs.85%29.aspx
Attr := FileGetAttrUTF8(Utf8Fn); Attr := FileGetAttrUTF8(Utf8Fn);
if (Attr = feInvalidHandle) then Attr := 0; if (Attr = LongInt(feInvalidHandle)) then Attr := 0;
if ((Attr and faHidden) = faHidden) then FileSetAttrUtf8(Utf8Fn, Attr and (not faHidden)); if ((Attr and faHidden) = faHidden) then FileSetAttrUtf8(Utf8Fn, Attr and (not faHidden));
{$endif} {$endif}
Lines.SaveToFile(Utf8Fn); Lines.SaveToFile(Utf8Fn);