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

LazEdit: when calling FileGetAttrUTF8 check for feInvalidHandle.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3036 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2014-05-10 16:23:34 +00:00
parent ee011598e4
commit 203059b3df
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/lazedit/editorpagecontrol.pp
View File

@ -683,11 +683,12 @@ var
Attr: LongInt; Attr: LongInt;
begin begin
try try
Attr := FileGetAttrUTF8(Utf8Fn); {$ifdef windows}
//TFileStreamUtf8.Create fails on hidden files on Windows, //TFileStreamUtf8.Create fails on hidden files on Windows,
//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
{$ifdef windows} Attr := FileGetAttrUTF8(Utf8Fn);
if (Attr = 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);