From 63fc571211d12dba66620757e43e936d3d048eaf Mon Sep 17 00:00:00 2001
From: marcoonthegit <marco@freepascal.org>
Date: Sat, 12 Jul 2025 13:36:05 +0200
Subject: [PATCH] * fix #41325  stylistic comment to make IID constants
 writeonly

---
 packages/winunits-base/src/activex.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp
index 33f14fe24a..799ce036ab 100644
--- a/packages/winunits-base/src/activex.pp
+++ b/packages/winunits-base/src/activex.pp
@@ -99,6 +99,7 @@ type
    POleColor           = LPOle_Color;
    HHandle             = UINT_PTR;
 
+{$PUSH}{$WRITABLECONST OFF}
 CONST
    GUID_NULL  : TGUID =  '{00000000-0000-0000-0000-000000000000}';
    IID_IPrint : TGUID = '{B722BCC9-4E68-101B-A2BC-00AA00404770}';
@@ -186,7 +187,7 @@ CONST
    IID_IOleCache2 : TGUID = '{00000128-0000-0000-C000-000000000046}';
    IID_IOleCacheControl : TGUID = '{00000129-0000-0000-C000-000000000046}';
    IID_IOleItemContainer : TGUID = '{0000011C-0000-0000-C000-000000000046}';
-
+{$POP}
 
      // bit flags for IExternalConnection
 CONST