[Patch] if TPersistent-based object has no published properties then inherited objects are not visible in the inspector
Original Reporter info from Mantis: Maxerist
-
Reporter name: Max Vlasov
Original Reporter info from Mantis: Maxerist
- Reporter name: Max Vlasov
Description:
Actually there are two lines of inheritance, one for TPersistent, one for the objects that use the descendant of this TPersistent
the unit that can be installed is in the attachment, here is the snapshot from the interface section
The problem with this unit is that PersistentData here is not visible in the object inspector
type
TBasePersisent = class(TPersistent)
private
fSomeValue: integer;
protected
property SomeValue: integer read fSomeValue write fSomeValue;
end;
TInheritedPersistent = class(TBasePersisent)
published
property SomeValue;
end;
TBasePersisentTestComponent = class(TComponent)
private
fData: TBasePersisent;
procedure SetData(AValue: TBasePersisent);
protected
property PersistentData: TBasePersisent read fData write SetData;
end;
TPersisentTestComponent = class(TBasePersisentTestComponent)
public
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;
published
property PersistentData;
end;
Mantis conversion info:
- Mantis ID: 19994
- Version: 0.9.30.1 (SVN)
- Fixed in version: 0.9.31 (SVN)
- Target version: 0.99.0