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