Pascal eXtended Library (aka Asphyre) released!

[devchenxip]

Sphinx304：

function OverlapRect(const Rect1, Rect2: TRect): Boolean;
begin
   Result:= (Rect1.Left < Rect2.Right) and (Rect1.Right >  Rect2.Left) and (Rect1.Top < Rect2.Bottom) and (Rect1.Bottom > Rect2.Top);
end;

PXL：

function OverlapRect(const Rect1, Rect2: TIntRect): Boolean;
begin
  Result := (Rect2.Left < Rect1.Right) and (Rect2.Right > Rect1.Left) and (Rect2.Top < Rect1.Bottom) and
    (Rect2.Bottom > Rect1.Top);
end;

dear LP, It took me two hours to debug the changes...