Source position: agraphics.pas line 882
type TShapeHookMsg = record
Action: LongWord;
NewShape: PRegion;
OldShape: PRegion;
NewBounds: PRectangle;
OldBounds: PRectangle;
end;