gfunc.pas

来自「智能交通系统演示」· PAS 代码 · 共 26 行

unit GFunc;


interface
uses Types;

function IsInRect(AObj, ARegion: TRect): boolean;

implementation

function IsInRect(AObj, ARegion: TRect): boolean;
var
  Lx, Ly: integer;
begin
  result := false;
  Lx := (AObj.Left + AObj.Right) div 2;
  Ly := (AObj.Top + AObj.Bottom) div 2;
  if (Lx > ARegion.Left) and (Lx < Aregion.Right) and
    (Ly > ARegion.Top) and (Ly < ARegion.Bottom) then
    result := true;

end;


end.