Source position: agraphics.pas line 572
type TShapeHookProc = function(
Hook: PHook;
Layer: PLayer;
Msg: PShapeHookMsg
):PRegion;