Forum: Software-Projekte der Mitglieder
by LoCrux,
9. Mär 2007
@Amateurprofi
Hi.. und nun die Schelte... wie konntest Du dieses Thema nur aufgreifen?
Ich bin süchtig geworden nach diesem Problem.. das ist echt ne harte Nuss...
Bin gerade dabei so sämtliche verfügbare Literatur durchzustöbern...
Aber ich knack das... auch für sich überschlagende Polys (hoffentlich)...
irgendwie, irgendwo, irgendwann
Forum: Software-Projekte der Mitglieder
by LoCrux,
7. Mär 2007
HI JasonDX,
war mir soweit alles klar..
Vielleicht gefällt Dir die Lösung besser..
PROCEDURE AddPolyPoint(VAR APoly:TPolyPoints;pnt:TPoint);
VAR
Forum: Software-Projekte der Mitglieder
by LoCrux,
7. Mär 2007
OK.. Die einfachste Lösung (und auch die schnellste) ist gefunden... :lol:
Vorausgesetz, daß sich NUR das Polygon vollständig sichtbar auf einem CANVAS OBJEKT befindet.....
FUNCTION PointInPolygon(const aCanvas:TCanvas;const TestPoint: TPoint):Boolean;
BEGIN
RESULT := aCanvas.Pixles<>HINTERGRUNDFARBE
END;
Forum: Software-Projekte der Mitglieder
by LoCrux,
7. Mär 2007
Fettes Problem.. Werd mich auch mal daran versuchen....
Bei Erfolg --> GEBE LAUT...