PL TextEngine: Klassenstruktur Problem.... ?

[Blup]

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.