"Echte" Sichtbarkeitsprüfung

[DGL-luke]

Zitat:

Überlappen sich R1 und R2 nicht, gibt IntersectRect false zurück und dem Parameter Rect wird ein Rechteck mit der Position (0,0), der Breite 0 und der Höhe 0 zugewiesen.

Belügt mich da die Delphi-OH?! Wohl eher die als dein Source-Code(hab ja keine vcl-sourcen)...

hab das jetzt so nachgebildet:

Delphi-Quellcode:

if not IntersectRect(ir,r,area) then
    begin
      ir.left := 0;
      ir.Top  := 0;
      ir.Right := 0;
      ir.Bottom := 0;
    end;

und dann folgerichtig meinen anfänglichen code wieder eingetragen:

Delphi-Quellcode:

intersectspace := abs((ir.Right - ir.Left) * (ir.Bottom - ir.Top));

if ((intersectspace > 50) xor IsValidSpace) then
  begin
    machwas;
  end;

Kurioserweise bekomme ich jetzt nur die Borland-IDE und die Anwendung selbst in machwas geliefert (das ist ein teil einer EnumWindowsProc)...

//roter Kasten:
Ja, genau....