paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 00:47:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

Now the properties has the visibility info.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2025-03-15 10:45:21 -03:00 committed by Michael Van Canneyt
parent 516be722e2
commit c0d00ca638
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl/src/rtti.pas
View File

@ -170,7 +170,7 @@ type
function GetName: String; override;
function GetParent: TRttiType;
function GetStrictVisibility: Boolean; virtual;
function GetVisibility: TMemberVisibility; virtual;
function GetVisibility: TMemberVisibility;
function LoadCustomAttributes: TCustomAttributeArray; override;
public
constructor Create(AParent: TRttiType; ATypeInfo: TTypeMember); reintroduce;
@ -309,8 +309,6 @@ type
function GetPropertyType: TRttiType;
function GetIsWritable: boolean; override;
function GetIsReadable: boolean; override;
protected
function GetVisibility: TMemberVisibility; override;
public
constructor Create(AParent: TRttiType; ATypeInfo: TTypeMember);
@ -2362,12 +2360,6 @@ begin
Result := PropertyTypeInfo.Getter<>'';
end;
function TRttiProperty.GetVisibility: TMemberVisibility;
begin
// At this moment only published rtti-property-info is supported by pas2js
Result := mvPublished;
end;
{ TRttiType }
function TRttiType.GetName: string;