Цветовой фильтр и клик сквозь окна

[Sirik]

В общем есть 2 вопроса:

1. как реализовать данный фильтр к картинке. на рис.1 исходная, на рис.2 полученная

2. как организовать клик мимо окна? окно изначально будет иметь некую прозрачность и будет растянуто на весь экран, надо все клики пропускать сквозь него на те окна, которые лежат за ним

рис.1


рис.2

[Хакер]

Ай-яй-яц?

[Sirik]

взял за основу данный код:

Поковырявшись немного в стилях вот что получилось.

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

Option Explicit

Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_LAYERED As Long = &H80000
Private Const WS_EX_TRANSPARENT As Long = &H20&
Private Const LWA_ALPHA As Long = &H2
Private Const HWND_TOPMOST As Long = -1
Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOSIZE As Long = &H1

Private Sub Form_Load()
Dim ExStyle As Long
    ExStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
    Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, ExStyle)
    Call SetLayeredWindowAttributes(Me.hwnd, 0, 120, LWA_ALPHA)
    Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

как сделать чтобы хотя бы кнопка реагировала? или любой компонент, естественно, что он должен остаться полупрозрачным

[Mikle]

Фильтр, на глазок, похоже, что берётся зелёная составляющая и передаётся в красную.

[Sirik]

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

[Mikle]

Вообще это похоже на съёмку инфракрасной камерой, простым фильтром не решить.

[Antonariy]

Вообще это похоже на съёмку инфракрасной камерой, простым фильтром не решить.

Но ведь более теплые объекты должны на ней быть светлее, правильно? Соответственно светлые стены здания должны быть темнее, чем темная фигня на их фоне, ибо отражают больше солнечных лучей и меньше нагреваются. А по краю крыши должна быть яркая полоса, потому что крыша греется очень сильно. Или виновата инфракрасная подсветка?

[Mikle]

Или стоит холодная погода, а дом отапливается.

[Sirik]

мне подошла простая полупрозрачная форма и backcolor темно-красный)
оказалась, что человеку нужен был не совсем тот эффект, что указан на рисунках: просто надо было, чтобы ночью глаза не раздражились ярким светом с монитора

для адаптации глаз к темноте не раздражая их ярким светом, считается что красный свет нейтрален и намного меньше раздражает их

[Хакер]

Тогда фикси гамму экрана, а не создавай «спиритическое» окно.

[Sirik]

попробую уговорить)