|
@@ -3606,6 +3606,7 @@ begin
|
|
begin
|
|
begin
|
|
def:=TPpuPropDef.Create(ParentDef);
|
|
def:=TPpuPropDef.Create(ParentDef);
|
|
readcommonsym('Property ',def);
|
|
readcommonsym('Property ',def);
|
|
|
|
+ write ([space,' Prop Options : ']);
|
|
propoptions:=readpropertyoptions;
|
|
propoptions:=readpropertyoptions;
|
|
if ppo_overrides in propoptions then
|
|
if ppo_overrides in propoptions then
|
|
begin
|
|
begin
|