Chat

--local
local background = "Interface\\textures\\solid.tga"
local border = "Interface\\textures\\Pixel Black.tga"
local font = "Interface\\FONTS\\Myriad Pro Cond.ttf"


--
local function DoNothing() end
ChatFrame1.ClearAllPoints = DoNothing


--Chatframe
DEFAULT_CHATFRAME_ALPHA = 0

--Create new Background
local chatBackground = CreateFrame("Frame")
chatBackground:SetPoint("BOTTOMLEFT", "ChatFrame1", "BOTTOMLEFT", -3, -3)
chatBackground:SetPoint("TOPRIGHT", "ChatFrame1", "TOPRIGHT", 3, 3)
chatBackground:SetFrameStrata("BACKGROUND")
chatBackground:SetBackdrop({
    bgFile = background,
    edgeFile = border,
    edgeSize = .5
})
chatBackground:SetBackdropColor(0, 0, 0, 0.4)

--Move ChatFrame
for i = 1, NUM_CHAT_WINDOWS do
    _G["ChatFrame"..i]:SetClampedToScreen(0)
end
ChatFrame1:ClearAllPoints()
ChatFrame1:SetPoint('BOTTOMLEFT', "UIParent", 'BOTTOMLEFT', 11, 33)
ChatFrame1.SetPoint = DoNothing

--Change Font
for i = 1, NUM_CHAT_WINDOWS do
    _G["ChatFrame"..i]:SetFont(font, 12)
end


--ChatTab
CHAT_FRAME_TAB_SELECTED_MOUSEOVER_ALPHA = 1.0;
CHAT_FRAME_TAB_SELECTED_NOMOUSE_ALPHA = 1.0;
CHAT_FRAME_TAB_ALERTING_MOUSEOVER_ALPHA = 1.0;
CHAT_FRAME_TAB_ALERTING_NOMOUSE_ALPHA = 1.0;
CHAT_FRAME_TAB_NORMAL_MOUSEOVER_ALPHA = 1.0;
CHAT_FRAME_TAB_NORMAL_NOMOUSE_ALPHA = 1.0;

--Remove Background
for i = 1, NUM_CHAT_WINDOWS do
    local k = {"Left", "Middle", "Right", "SelectedLeft", "SelectedMiddle", "SelectedRight", "HighlightLeft", "HighlightMiddle", "HighlightRight"}
    for j = 1, table.getn(k) do
        _G["ChatFrame"..i.."Tab"..k[j]]:Hide()
        _G["ChatFrame"..i.."Tab"..k[j]].Show = DoNothing
    end

    local fontString = _G["ChatFrame"..i.."Tab"]:GetFontString()
    fontString:SetFont(font, 12)
    fontString:SetTextColor(1, 1, 1, 1)
    fontString.SetTextColor = DoNothing
    fontString:SetShadowOffset(1, -1)
end

--Create new Background
local chatTabBackground = CreateFrame("Frame")
chatTabBackground:SetPoint("TOPLEFT", "ChatFrame1", "BOTTOMLEFT", -3, -3)
chatTabBackground:SetPoint("TOPRIGHT", "ChatFrame1", "TOPRIGHT", 3, -3)
chatTabBackground:SetHeight(14)
chatTabBackground:SetFrameStrata("BACKGROUND")
chatTabBackground:SetBackdrop({
    bgFile = background,
    edgeFile = border,
    edgeSize = .5
})
chatTabBackground:SetBackdropColor(0, 0, 0, 0.4)

--Move Tabs
GeneralDockManager:ClearAllPoints()
GeneralDockManager:SetPoint("TOPLEFT", "ChatFrame1", "BOTTOMLEFT", -5, 2.5)
GeneralDockManager:SetPoint("TOPRIGHT", "ChatFrame1", "BOTTOMRIGHT", 5, 2.5)

GeneralDockManagerScrollFrame:SetPoint("TOPRIGHT", "GeneralDockManager", "RIGHT", 0, 13)
GeneralDockManagerScrollFrame.SetPoint = DoNothing


--EditBox
--Move
ChatFrame1EditBox:ClearAllPoints()
ChatFrame1EditBox:SetPoint("BOTTOMLEFT", "ChatFrame1", "TOPLEFT", -5, 8)
ChatFrame1EditBox:SetPoint("BOTTOMRIGHT", "ChatFrame1", "TOPRIGHT", 5, 8)
ChatFrame1EditBox.SetPoint = DoNothing

--Remove Background
local k = {"Left", "Mid", "Right", "FocusLeft", "FocusMid", "FocusRight"}
for j = 1, table.getn(k) do
        _G["ChatFrame1EditBox"..k[j]]:Hide()
        _G["ChatFrame1EditBox"..k[j]].Show = DoNothing
end

--Create Background
ChatFrame1EditBox:SetBackdrop({
    bgFile = background,
    edgeFile = border,
    edgeSize = 1
})
ChatFrame1EditBox:SetBackdropColor(0, 0, 0, 0.4)
ChatFrame1EditBox:SetHeight(23)

--Change Font
ChatFrame1EditBoxHeader:SetFont(font, 12)
ChatFrame1EditBox:SetFont(font, 12)

--Move
ChatFrame1EditBoxHeader:SetPoint("LEFT", 6, 0)

--Correct TextInsets
local updateHeader = ChatEdit_UpdateHeader
function ChatEdit_UpdateHeader(editBox)
    updateHeader(editBox)
    editBox:SetTextInsets(5 + ChatFrame1EditBoxHeader:GetWidth(), 13, 0, 0);
end


--Button Frame
for i = 1, NUM_CHAT_WINDOWS do
    --Move
    _G["ChatFrame"..i.."ButtonFrameBottomButton"]:ClearAllPoints()
    _G["ChatFrame"..i.."ButtonFrameBottomButton"]:SetPoint("BOTTOMRIGHT", "GeneralDockManager", "TOPRIGHT", 5, -12.5)
    --_G["ChatFrame"..i.."ResizeButton"]:ClearAllPoints()
    _G["ChatFrame"..i.."ResizeButton"]:SetPoint("BOTTOMRIGHT", "GeneralDockManager", "BOTTOMRIGHT", 2, -5)


    --Hide unwanted buttons
    _G["ChatFrame"..i.."ButtonFrameUpButton"]:Hide()
    _G["ChatFrame"..i.."ButtonFrameDownButton"]:Hide()
    _G["ChatFrame"..i.."ButtonFrameUpButton"].Show = DoNothing
    _G["ChatFrame"..i.."ButtonFrameDownButton"].Show = DoNothing

    --Change Texture
    _G["ChatFrame"..i.."ButtonFrameBottomButtonFlash"]:SetTexture("Interface\\CHATFRAME\\UI_ChatIcon-ScrollEnd-Flash.blp")
    _G["ChatFrame"..i.."ButtonFrameBottomButton"]:GetHighlightTexture():SetTexture("Interface\\CHATFRAME\\UI_ChatIcon-ScrollEnd-Highlight.blp")
end

ChatFrameMenuButton:Hide()
ChatFrameMenuButton.Show = DoNothing

FriendsMicroButton:ClearAllPoints()
FriendsMicroButton:SetPoint("TOPLEFT", "ChatFrame1", "TOPRIGHT", 4, 0)