Browse Source

* Disposed is protected, does not appear by default in RTTI

Michaël Van Canneyt 1 year ago
parent
commit
b3b4343e6b
1 changed files with 2 additions and 1 deletions
  1. 2 1
      rtl/inc/objpash.inc

+ 2 - 1
rtl/inc/objpash.inc

@@ -250,6 +250,7 @@
        {$ENDIF}
        {$ENDIF}
        protected
        protected
           function GetDisposed : Boolean; inline;
           function GetDisposed : Boolean; inline;
+          Property Disposed : Boolean Read GetDisposed;
        public
        public
           { please don't change the order of virtual methods, because
           { please don't change the order of virtual methods, because
             their vmt offsets are used by some assembler code which uses
             their vmt offsets are used by some assembler code which uses
@@ -304,7 +305,7 @@
           class function QualifiedClassName: RTLString;
           class function QualifiedClassName: RTLString;
           Procedure DisposeOf; inline;
           Procedure DisposeOf; inline;
           Procedure CheckDisposed; inline;
           Procedure CheckDisposed; inline;
-          Property Disposed : Boolean Read GetDisposed;
+          
           function Equals(Obj: TObject) : boolean;virtual;
           function Equals(Obj: TObject) : boolean;virtual;
           function GetHashCode: PtrInt;virtual;
           function GetHashCode: PtrInt;virtual;
           function ToString: RTLString; virtual;
           function ToString: RTLString; virtual;