paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add missing FILE_ATTRIBUTE_XXX constants as found in WinCE 5.0 headers (only FILE_ATTRIBUTE_DEVICE is not defined)

Browse Source 
(cherry picked from commit 7ec5e24541)
This commit is contained in:
Pierre Muller 2023-02-08 12:44:30 +00:00 committed by marcoonthegit
parent 50dfb198c5
commit e19509affb
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/vcl-compat/src/system.ioutils.pp
View File

@ -330,9 +330,9 @@ Const
WinAttrs : Array[TFileAttribute] of Integer =
(FILE_ATTRIBUTE_READONLY, FILE_ATTRIBUTE_HIDDEN, FILE_ATTRIBUTE_SYSTEM,
FILE_ATTRIBUTE_DIRECTORY,FILE_ATTRIBUTE_ARCHIVE, 0{FILE_ATTRIBUTE_DEVICE},
FILE_ATTRIBUTE_NORMAL, FILE_ATTRIBUTE_TEMPORARY,0{FILE_ATTRIBUTE_SPARSE_FILE},
0{FILE_ATTRIBUTE_REPARSE_POINT}, FILE_ATTRIBUTE_COMPRESSED, 0{FILE_ATTRIBUTE_OFFLINE},
0{FILE_ATTRIBUTE_NOT_CONTENT_INDEXED}, 0{FILE_ATTRIBUTE_ENCRYPTED},0{FILE_ATTRIBUTE_REPARSE_POINT});
FILE_ATTRIBUTE_NORMAL, FILE_ATTRIBUTE_TEMPORARY,FILE_ATTRIBUTE_SPARSE_FILE,
FILE_ATTRIBUTE_REPARSE_POINT, FILE_ATTRIBUTE_COMPRESSED, FILE_ATTRIBUTE_OFFLINE,
FILE_ATTRIBUTE_NOT_CONTENT_INDEXED, FILE_ATTRIBUTE_ENCRYPTED,FILE_ATTRIBUTE_REPARSE_POINT);
{$ENDIF}
{$IFDEF WINDOWS}

5
rtl/wince/wininc/defines.inc
View File

@ -452,6 +452,11 @@
FILE_ATTRIBUTE_READONLY = 1;
FILE_ATTRIBUTE_SYSTEM = 4;
FILE_ATTRIBUTE_TEMPORARY = 256;
FILE_ATTRIBUTE_SPARSE_FILE = $200;
FILE_ATTRIBUTE_REPARSE_POINT = $400;
FILE_ATTRIBUTE_OFFLINE = $1000;
FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = $2000;
FILE_ATTRIBUTE_ENCRYPTED = $40;
FILE_FLAG_WRITE_THROUGH = $80000000;
FILE_FLAG_OVERLAPPED = 1073741824;
FILE_FLAG_NO_BUFFERING = 536870912;