Wozu ist ein "Canvas.Pen.Assign(Pen)" gut?

[Jazzman_Marburg]

Zitat von DeddyH:

Angenommen, Deine Komponente hat eine Color-Property. Wie willst Du nun erreichen, dass auch mit dieser Farbe gezeichnet wird?

Ich denke doch so:

Delphi-Quellcode:

TMyPaper = CLASS(TCustomControl)

PROPERTY PaperColor : TColor  READ FPaperColor WRITE SetPaperColor;
...

PROCEDURE TMyPaper.SetPaperColor(Value: TColor);
BEGIN

  IF FPaperColor <> Value THEN
  BEGIN
    FPaperColor := Value;
    INVALIDATE;
  END;

END;

PROCEDURE TGraphPaper.Paint;
BEGIN
  INHERITED;

  // Canvas.Pen.Assign(Pen);      --> Mit oder ohne, spielt keine Rolle (glaube ich!)
  // Canvas.Brush.Assign(Brush);   "    "
  // Canvas.Font.Assign(Font);     "    "

  Canvas.Brush.Color := FPaperColor;
  Canvas.Rectangle(0, 0, Width, Height);
...

Oder verstehe ich Dich falsch?

Gruß
Jazzman