ポイントがポリゴン内にあるかどうかを確認しますか？

Question

私はいくつかのポリゴンリスト項目（不規則な形）からなるDelphi（TCustomControlから継承）でカスタムコントロールを作成しています。アイテムごとにマウスイベントを実装する必要がありますが、まず、マウスの位置が指定されたポリゴン（array of TPoint）内にあるかどうかを検出できる必要があります。私はヒットテストメッセージ（WM_NCHITTEST）をキャッチしており、これがこの検証を行う必要がある場所です。私は多角形をいくつも持っているので、各ポリゴンアイテムをループし、このチェックを実行してマウスのX/Y位置がこのポリゴン内にあるかどうかを調べます。

procedure TMyControl.WMNCHitTest(var Message: TWMNCHitTest); 
var 
    P: TPoint; //X/Y of Mouse 
    Poly: TPoints; //array of TPoint 
    X: Integer; //iterator 
    I: TMyListItem; //my custom list item 
begin 
    P.X:= Message.XPos; 
    P.Y:= Message.YPos; 
    for X := 0 to Items.Count - 1 do begin 
    I:= Items[X]; //acquire my custom list item by index 
    Poly:= I.Points; //acquire polygon points 

    //Check if Point (P) is within Polygon (Poly)...? 

    end; 
end; 

Answer 1

あなたはPtInRegionを使用することができます。http://en.wikipedia.org/wiki/Point_in_polygon#Ray_casting_algorithm

ほとんどのコンピュータグラフィックスクラスは一例としてこれを使用します。

function PointInPolygon(Point: TPoint; const Polygon: array of TPoint): Boolean; 
var 
    rgn: HRGN; 
begin 
    rgn := CreatePolygonRgn(Polygon[0], Length(Polygon), WINDING); 
    Result := PtInRegion(rgn, Point.X, Point.Y); 
    DeleteObject(rgn); 
end; 

Answer 2

あなたがここで見つけるレイキャスティングアルゴリズムを使用することができます。

Answer 3

点がポリゴンの内側にあるかどうかを確認するには、その点を通る水平線を想像し、左から右に向かって、この想像線がポリゴンと交差する回数を数えます。点を打つ前に多角形の数が奇数である場合、点が内側にある場合、その点が多角形の外側にある場合、点は内側にあります。

Answer 4

私たちが広範囲に使用する別の手法があります。これは、数学をまったく含まず、あらゆる形状の非常に複雑な埋め込みコントロールをまったく処理できません。ユーザーがクリックできるように、すべての部分が色分けされた（下の図に示すように）コントロールの画面外のイメージを持つだけです。

マウスを動かすと、単にマウスの下のピクセルの色をオフスクリーンイメージで見てください。これは、マウスの上にあるボタン/コントロール、さまざまな部品の色の

Color mask

//擬似コード

function MouseOverControl(LocalMousePos:TPoint):ControlID; 
begin 
    //sanity check 
    Result:=IDNull; 
    if (LocalMouse.X < 0) or (LocalMouse.X > ControlWidth) or 
     (LocalMouse.Y < 0) or (LocalMouse.Y > ControlHeight) then 
      exit; 
    case OffScreenControlMask.Canvas.Pixels[LocalMousePos.X,LocalMousePos.Y] of 
    clwhite:exit; 
    clRed:result:=ControlIDOne; 
    clGreen:result:=ControlIDTwo; 
    clBlue:result:=ControlIDThree; 
    ... etc 
    end; 
end; 

注：取り付けカラーマスク画像は中央のボタンとの象限に分割5つの同一の円形のコントロールを表す（そしてそれらはすべて同じ色を使用するので私たちは各色の定数を持っており、マウスの右にある不規則なコントロールとその下のセットまたは四角いボタンのほか、単純なXPositionによってマウスが5つのうちのどれかを判別します。