#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 
}