Komponente mit TPaintBox: kann nicht mit Canvas zeichenen

[edmu]

nun ja, ich mache es so:

FPen := Value;

mfg edmu

[DeddyH]

Nimm besser Assign (auch für die Zuweisung von FPen zu Canvas.Pen).

[edmu]

wenn ich jetzt etwas im objektinspektor ändere, dann
möchte ich eine showmessage ausgeben. dieses funktioniert
aber leider nicht und deshalb werden die farben auch
nicht übernommen.

Delphi-Quellcode:

FPen           : TPen;    
property Pen  : TPen read FPen write SetPen;

Delphi-Quellcode:

procedure TPfeil.SetPen(Value: TPen);
begin
  //if Value <> FPen then begin
    showmessage('pen');   FUNKIONIERT NICHT
    FPen.Assign(Value);
    self.Repaint;
  //end;
end;

[sirius]

Hmm, kompliziert.
Also der OI ruft nicht das writeProperty sondern das Read-Property auf. Er verändert ja nicht das Objekt selber, sondern liest das Objekt aus und ändert etwas in dem Objekt (das sind dann aber Propertys von TPen), deswegen wird nur Read verwendet.

[Muetze1]

Zitat:

Zitat von DeddyH

Nimm besser Assign (auch für die Zuweisung von FPen zu Canvas.Pen).

Da ist genauso ein Setter hinter und der ruft Assign() auf

Zitat:

Zitat von sirius

Hmm, kompliziert.

Nö - nutze das OnChange Ereignis.

@edmu: Du rufst RePaint auf im Setter. Schau dir bitte meinen ersten Beitrag nochmal an und beachte Punkt 4.

[sirius]

Zitat:

Zitat von Muetze1

Zitat:

Zitat von sirius

Hmm, kompliziert.

Nö - nutze das OnChange Ereignis.

Das bezog sich auf die Erklärung, warum er nicht in SetPen landet, wenn er im OI die Farbe des Stiftes ändert :zwinker:
(Und ich denke das Showmessage, war nur zur Kontrolle)

[edmu]

habe es herausbekommen.
steht alles in der delphi-hilfe, siehe
"Eigenschaften untergeordneter Klassen setzen".
Komponentenentwicklung.

Delphi-Quellcode:

constructor TPfeil.Create(AOwner : TComponent);
var i : integer;
begin
  inherited Create(AOwner); { Diesen Schritt IMMER zuerst! }

  FPen := TPen.Create;     { Stift erzeugen }
  FPen.OnChange := StyleChanged; { Dem OnChange-Ereignis die Methode zuweisen }
  FBrush := TBrush.Create; { Pinsel erzeugen }
  FBrush.OnChange := StyleChanged; { Dem OnChange-Ereignis die Methode zuweisen }

end;

Delphi-Quellcode:

  published
    { Published-Deklarationen = Im Objektinspector sichtbar, Designmodus }
    ...
    procedure StyleChanged(Sender: TObject);

Delphi-Quellcode:

procedure TPfeil.StyleChanged(Sender: TObject);
begin
  Invalidate; { Komponente löschen und neu zeichnen }
  //Die Komponente zeichnet sich nun nach jeder Änderung an einer
  //der Eigenschaften Pen oder Brush neu.
end;

schönen dank