Прозрачный Rectangle

[ANDLL]

Собственно как сделать?
Прототип фнкции такой:

Код: Выделить всё

Private Sub RectangleT(ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal nColor As Long, ByVal nTranspernse As Byte)
Dim nX As Long, nY As Long
For nX = X1 To X2
    For nY = Y1 To Y2
        Dim nCurColor As Long, nNewColor As Long
        nCurColor = GetPixel(hDC, nX, nY)
        'А вот и проблема, что нужно писать nNewColor=...
        SetPixel hDC, nX, nY, nNewColor
    Next
Next
End Sub


Эта функция рисует частично прозрачный прямоугольник заданным цветом.
Думаю, вопрос понятен...

[alibek]

Раскладываешь исходный и конечный цвет по RGB, получаешь составляющие как
R = R1 + (R2-R1)*nTranspernse/256
и получаешь результирующий цвет.
Только лучше использовать TransparentBlt, он все за тебя сделает.

[tyomitch]

Собственно как сделать?

Думаю, вопрос понятен...

Посмотри функцию Blend в моём меню (Наши проекты -> PopupMenu2)

[ANDLL]

2tyomitch:
Функция Blend делаем в принципе тоже самое, про что говорил alibek. Только слогаемые сгруппированы по-другому.
Я, правда, предпочитаю использовать CopyMemory для разделения на цвета, так круче. Но кому что нравиться.

2alibek:
А что делает TransperentBlt такого, что могло бы пригодиться при решении этой проблемы

И спасибо за формулу Еще не проверял, но думаю заработает...

[alibek]

Создаешь битмап нужного размера (такой же, как требуемый прямоугольник), заливаешь его требуемым цветом и накладываешь на нужный тебе участок с нужной тебе прозрачностью.
Я просто с функцией ошибся, не TransparentBlt, а GdiAlphaBlend.

[alibek]

Кстати, я вот глянул, есть даже GdiGradientFillRect

[tyomitch]

2tyomitch:
Функция Blend делаем в принципе тоже самое, про что говорил alibek. Только слогаемые сгруппированы по-другому.

Я же не говорил, что это что-то принципиально другое. Просто это готовая функция, а не только намёк на её реализацию.

GdiAlphaBlend и GdiGradientFillRect -

Operating Systems Supported

Requires Windows 2000 or later; Win9x/ME: Not supported

GradientFillRect в этом отношении лучше.

[ANDLL]

2tyomitch:
Функция Blend делаем в принципе тоже самое, про что говорил alibek. Только слогаемые сгруппированы по-другому.

Я же не говорил, что это что-то принципиально другое. Просто это готовая функция, а не только намёк на её реализацию.

GdiAlphaBlend и GdiGradientFillRect -

Operating Systems Supported

Requires Windows 2000 or later; Win9x/ME: Not supported

GradientFillRect в этом отношении лучше.

Да, ладно. Буду использовать вашу формулу.