chatscrollwheeel.lua

local function scroller(frame, delta)
	if delta > 0 then
		if IsShiftKeyDown() then frame:ScrollToTop()
		else frame:ScrollUp() end
	elseif delta < 0 then
		if IsShiftKeyDown() then frame:ScrollToBottom()
		else frame:ScrollDown() end
	end
end

for i=1,NUM_CHAT_WINDOWS do
	local cf = _G["ChatFrame"..i]
	cf:EnableMouseWheel(true)
	cf:SetScript("OnMouseWheel", scroller)
end

movechatedit.lua

local eb = ChatFrameEditBox
eb:ClearAllPoints()
eb:SetPoint("TOPLEFT",  ChatFrame1, "TOPLEFT",  -5, 4)
eb:SetPoint("TOPRIGHT", ChatFrame1, "TOPRIGHT", 5, 4)
eb:SetAltArrowKeyMode(false)