FillPath パスの塗りつぶし

Cの宣言：

BOOL FillPath(HDC hDC);

VBの宣言：

Declare Function FillPath Lib "gdi32" (ByVal hDC As Long) As Long

説明：

FillPath実行後、パスは破棄される。

引数の意味は以下の通り。

hDC	描画先のデバイスを識別するデバイスコンテキストのハンドル。

戻り値は、関数の実行結果を表す真偽値である。

VBのサンプル：

Private Sub Command1_Click()
    
    Dim hBrush As Long
    Dim hOldBrush As Long
    
    'パスの作成
    BeginPath Picture1.hDC
    
    Ellipse Picture1.hDC, 0, 0, 100, 100
    Ellipse Picture1.hDC, 50, 50, 150, 150
    
    EndPath Picture1.hDC

    'パスの描画
    hBrush = CreateHatchBrush(HS_BDIAGONAL, vbBlack)
    hOldBrush = SelectObject(Picture1.hDC, hBrush)
    
    SetPolyFillMode Picture1.hDC, ALTERNATE
    FillPath Picture1.hDC

    '後処理
    SelectObject Picture1.hDC, hOldBrush
    DeleteObject hBrush

End Sub