Select Code to Download

Select or download this

    #Draw rectangle with the image as brush
    my $brsBitmap = Win32::GUI::Brush->new(
            -style => 3,                 #BS_PATTERN
            -pattern => $bmBitmap,
            );

Select or download this

    $dcDev->SelectObject($rhBrush->{noPen});
    Win32::GUI::AdHoc::SetBrushOrgEx($dcDev,        #Move the brush or
+igin
...
            $rhPosCache->{left} + $leftBitmap + $widthBitmap + 1,
            $rhPosCache->{top} + $topBitmap + $heightBitmap + 1,
            );