paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 16:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix #41325 stylistic comment to make IID constants writeonly

Browse Source
This commit is contained in:
marcoonthegit 2025-07-12 13:36:05 +02:00
parent 5d72473ca1
commit 63fc571211
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/winunits-base/src/activex.pp
View File

@ -99,6 +99,7 @@ type
POleColor = LPOle_Color; POleColor = LPOle_Color;
HHandle = UINT_PTR; HHandle = UINT_PTR;
{$PUSH}{$WRITABLECONST OFF}
CONST CONST
GUID_NULL : TGUID = '{00000000-0000-0000-0000-000000000000}'; GUID_NULL : TGUID = '{00000000-0000-0000-0000-000000000000}';
IID_IPrint : TGUID = '{B722BCC9-4E68-101B-A2BC-00AA00404770}'; IID_IPrint : TGUID = '{B722BCC9-4E68-101B-A2BC-00AA00404770}';
@ -186,7 +187,7 @@ CONST
IID_IOleCache2 : TGUID = '{00000128-0000-0000-C000-000000000046}'; IID_IOleCache2 : TGUID = '{00000128-0000-0000-C000-000000000046}';
IID_IOleCacheControl : TGUID = '{00000129-0000-0000-C000-000000000046}'; IID_IOleCacheControl : TGUID = '{00000129-0000-0000-C000-000000000046}';
IID_IOleItemContainer : TGUID = '{0000011C-0000-0000-C000-000000000046}'; IID_IOleItemContainer : TGUID = '{0000011C-0000-0000-C000-000000000046}';
{$POP}
// bit flags for IExternalConnection // bit flags for IExternalConnection
CONST CONST