Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Probleme mit IntersectRect.... (https://www.delphipraxis.net/101241-probleme-mit-intersectrect.html)

Jackie1983 10. Okt 2007 11:01


Probleme mit IntersectRect....
 
hi,

habe da ein kleines Problem bzw. vielleicht ja auch nur ein Denkfehler.
Habe auf meiner Form objekte zum selektiern.

in mouse down
MousRect.TopLeft := Point(x,y);

in mouse move
MousRect.BottomRight := Point(x,y);
schleife alle obj
obj.IsSelect := IntersectRect(outr,MousRect,Rect(obj.Pos.X,obj.Pos .Y,obj.Pos.x+obj.W,obj.Pos.Y+obj.H));

So weit funktioniert es auch aber nur wenn MousRect.TopLeft > MousRect.BottomRight ist.
Das heist ich ziehe einen selekt von oben nach unten.

Wenn ich jetzt aber von unten nach oben die maus zieh ist MousRect.TopLeft < MousRect.BottomRight und es kommt keine kollision zustande.....

also müste ich immer prüfen ob die ecke oben links immer die kleinste zahl hat, oder? :gruebel: :gruebel:

Sidorion 10. Okt 2007 11:11

Re: Probleme mit IntersectRect....
 
Ja. Wenn topleft.x>bottomright.x musst du dies xe tauschen, mit y genauso. Nicht einfach die Punkte tauschen.

Jackie1983 10. Okt 2007 11:23

Re: Probleme mit IntersectRect....
 
ah super,thx


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz