Meine Bedenken beziehen sich auf den Schreibzugriff auf Objektproperty, z.B. auf Border in der Klasse TPLTE_Style_ObjectSurface.
Das Objekt fBorder wird von der Klasse erzeugt und freigegeben, andere Objekte sollten deshalb keinen direkten Schreibzugriff erhalten.
Das sollte IMO so aussehen:
Delphi-Quellcode:
type
TPLTE_Style_ObjectSurface = class(TPLTE_Style_BaseExt)
private
fBorder: TPLTE_Style_Border;
protected
procedure SetBorder(aBorder: TPLTE_Style_Border); virtual;
published
property Border: TPLTE_Style_Border read fBorder write SetBorder;
end;
procedure TPLTE_Style_ObjectSurface.SetBorder(aBorder: TPLTE_Style_Border);
begin
fBorder.Assign(aBorder);
end;
Wenn du das Projekt hier nicht an deinen Beitrag hängen möchtest, kannst du es mir auch per PN zukommen lassen.