Source position: orca_scene3d.pas line 483
type TCanvasPaintEvent = procedure(
Sender: TObject;
const Canvas: TCanvas;
const ARect: TRect;
var Update: Boolean
) of object;