Msg sent through LA_ShapeHook.
Source position: agraphics.pas line 557
type TShapeHookMsg = record
Action: LongInt;
(SHAPEHOOKACTION_*)
NewShape: PRegion;
OldShape: PRegion;
NewBounds: PRectangle;
OldBounds: PRectangle;
end;