FPC / Custom TPaintbox: Onpaint deklarieren

[Sir Rufo]

Es empfiehlt sich bei der Ableitung von TPaintBox die protected Methode TPaintBox.Paint zu überschreiben und nicht die Eigenschaft TPaintBox.OnPaint intern zu belegen.

Die Eigenschaft ist published und kann von aussen neu belegt werden und schwupps wird der eigene Code nicht mehr ausgeführt.

Delphi-Quellcode:

procedure TMyPaintBox.Paint;
begin
  // Hier eigener Code vor dem Aufruf von OnPaint
  inherited; // Auskommentieren, wenn OnPaint gar nicht aufgerufen werden soll
  // Hier eigener Code nach dem Aufruf von OnPaint
end;