142
142
procedure TCustomFrame.DefineProperties(Filer: TFiler);
148
148
Ancestor:=TComponent(Filer.Ancestor);
149
149
if Assigned(Ancestor) then Temp:=Ancestor.DesignInfo;
150
150
Filer.Defineproperty('DesignLeft',@ReadDesignLeft,@WriteDesignLeft,
152
152
Filer.Defineproperty('DesignTop',@ReadDesignTop,@WriteDesignTop,
156
156
procedure TCustomFrame.CalculatePreferredSize(var PreferredWidth,