Bug: IntersectRect liefert falsche Resultate

[Uwe Raabe]

Zitat von Amateurprofi:

Korrekt wäre es m.E. zum Beispiel so

Delphi-Quellcode:

FUNCTION MyIntersectRect(const A,B:TRect):Boolean;
begin
  Result:=(A.Left<B.Right) and (A.Right>B.Left) and (A.Top<B.Bottom) and (A.Bottom>B.Top);
end;

Das entspricht auch der aktuellen Implementierung in Delphi 10 Seattle und Delphi 10.1 Berlin (ältere habe ich gerade nicht zur Hand).