То есть происходят мелькания? Хуже работает?
Нет, мельканий нет. Я про самоокрашивание. Если курсор над вторым Edit, его фон меняется на зелёный, а если кликнуть в нём, фон верхнего становится чёрным.
]]>Ты имеешь ввиду сообщения?
Я имею в виду сабклассинг, как в моём последнем примере. Там разве что-то мелькает?
]]>И возможно ли указать для каждого контрола свои опции курсор, фон и.т.д. ... может возможно как то хитрым путём, может связанным с RegisterClass, сначала изменить имена классов указанных контролов на какие то свои, и потом для них назначить опции как для разных по классу контролов.
А зачем такие сложности? Это всё можно сделать способом выше (сабклассингом).
]]>При наведении и кликах на Edit тоже разово изменение происходит.
То есть происходят мелькания? Хуже работает?
]]>
#SingleInstance Force
Global Ctrl := []
OnMessage(WM_CTLCOLOREDIT := 0x133, "WM_CTLCOLOR")
OnMessage(WM_CTLCOLORSTATIC := 0x138, "WM_CTLCOLOR")
Gui, Add, Edit, w200 r12 hwndhCtrl1, ReadWrite
Gui, Add, Edit, wp hwndhCtrl2 ReadOnly, ReadOnly
Gui, Add, Text, wp hwndhCtrl3 Center, Первый текст
Gui, Add, Text, wp hwndhCtrl4 Center, Второй текст
GuiControl, Focus, %hCtrl1%
Gui, Show
RandColor:
Loop 4 {
Random, Rand, 0, 0xFFFFFF
SetControlColor(hCtrl%A_Index%, Rand, Rand^0xFFFFFF)
}
Return
F11::GoSub, RandColor
SetControlColor(hwnd, BG, FG) {
Ctrl[hwnd] := {BG:BG,FG:FG}
WM_CTLCOLOR(DllCall("GetDC", "Ptr", hwnd), hwnd)
DllCall("RedrawWindow", "Ptr", hwnd, "Uint", 0, "Uint", 0, "Uint", 0x1|0x4)
}
WM_CTLCOLOR(wParam, lParam) {
If !Ctrl.HasKey(lParam)
Return 0
hBrush := DllCall("CreateSolidBrush", UInt, Ctrl[lParam].BG)
DllCall("SetTextColor", Ptr, wParam, UInt, Ctrl[lParam].FG)
DllCall("SetBkColor", Ptr, wParam, UInt, Ctrl[lParam].BG)
DllCall("SetBkMode", Ptr, wParam, UInt, 2)
Return hBrush
}