From d65a4d6fd02ca8cc94484180bea84fcacd5dd513 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 7 Jan 2025 14:04:23 +0100
Subject: [PATCH] rtl: added TTypeMember.Visibility

---
 packages/rtl/src/typinfo.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/packages/rtl/src/typinfo.pas b/packages/rtl/src/typinfo.pas
index 06041dc..12003ad 100644
--- a/packages/rtl/src/typinfo.pas
+++ b/packages/rtl/src/typinfo.pas
@@ -200,6 +200,15 @@ type
     );
   TTypeMemberKinds = set of TTypeMemberKind;
 
+  TTypeMemberVisibility = (
+    tmvPrivate,
+    tmvProtected,
+    tmvPublic,
+    tmvPublished,
+    tmvPublishedPublic  // public for extended RTTI, published for basic RTTI, cvPublished was missing in the RTTI directive
+    );
+  TTypeMemberVisibilities = set of TTypeMemberVisibility;
+
   { TTypeMember }
 
   TTypeMember = class external name 'rtl.tTypeMember'
@@ -207,6 +216,7 @@ type
     Name: String external name 'name';
     Kind: TTypeMemberKind external name 'kind';
     Attributes: TTypeInfoAttributes external name 'attr'; // can be nil
+    Visibility: TTypeMemberVisibility external name 'visibility';
   end;
   TTypeMemberDynArray = array of TTypeMember;