Exiles/coa-leatrix-plus
3
0
Fork 0
Code Pull Requests Actions Packages Releases 3 Wiki Activity

RecentChat - make the sliding work properly...

Browse Source
This commit is contained in:
Sattva
2024-02-21 01:35:41 +03:00
parent 3c1c8a9291
commit b44bb7f4df
1 changed files with 99 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Leatrix_Plus.lua
+99 -89
View File
@@ -7346,7 +7346,7 @@
end) end)
--===== Hide ScrollBar if window too small. =====-- --===== Hide ScrollBar if window too small. =====--
function HideScrollBar() local function HideScrollBar()
if editFrame:GetHeight() < 80 then if editFrame:GetHeight() < 80 then
scroll:Hide() scroll:Hide()
else else
@@ -12280,32 +12280,16 @@
-- Set solid white color for background instead of using 8x8 texture -- Set solid white color for background instead of using 8x8 texture
editFrame:SetBackdrop({ editFrame:SetBackdrop({
bgFile = "Interface\\BUTTONS\\WHITE8X8", -- use 8x8 texture bgFile = "Interface\\BUTTONS\\WHITE8X8", -- use 8x8 texture
edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
tile = true, tile = true,
tileEdge = true, tileEdge = true,
tileSize = 16, tileSize = 16,
edgeSize = 16, edgeSize = 16,
insets = { left = 4, right = 4, top = 4, bottom = 4 } insets = { left = 4, right = 4, top = 4, bottom = 4 }
}) })
editFrame:SetBackdropColor(0.00, 0.00, 0.0, 0.6) -- set transparency editFrame:SetBackdropColor(0.00, 0.00, 0.0, 0.6) -- set transparency
--===== Create Scroll Frame =====--
local scroll = CreateFrame("ScrollFrame", "LeatrixChatScroll", editFrame, "UIPanelScrollFrameTemplate")
scroll:SetPoint("TOPLEFT", editFrame, 26, -36)
scroll:SetPoint("BOTTOMRIGHT", editFrame, "BOTTOMRIGHT", -34, 8)
-- -- Add background color
-- editFrame.t = editFrame:CreateTexture(nil, "BACKGROUND")
-- editFrame.t:SetAllPoints()
-- editFrame.t:SetVertexColor(0.00, 0.00, 0.0, 0.6)
-- -- Set textures
-- editFrame.LeftTex:SetTexture(editFrame.RightTex:GetTexture()); editFrame.LeftTex:SetTexCoord(1, 0, 0, 1)
-- editFrame.BottomTex:SetTexture(editFrame.TopTex:GetTexture()); editFrame.BottomTex:SetTexCoord(0, 1, 1, 0)
-- editFrame.BottomRightTex:SetTexture(editFrame.TopRightTex:GetTexture()); editFrame.BottomRightTex:SetTexCoord(0, 1, 1, 0)
-- editFrame.BottomLeftTex:SetTexture(editFrame.TopRightTex:GetTexture()); editFrame.BottomLeftTex:SetTexCoord(1, 0, 1, 0)
-- editFrame.TopLeftTex:SetTexture(editFrame.TopRightTex:GetTexture()); editFrame.TopLeftTex:SetTexCoord(1, 0, 0, 1)
-- Create title bar -- Create title bar
@@ -12317,25 +12301,15 @@
titleFrame:SetToplevel(true) titleFrame:SetToplevel(true)
titleFrame:SetHitRectInsets(-6, -6, -6, -6) titleFrame:SetHitRectInsets(-6, -6, -6, -6)
-- titleFrame.CharCount:Hide()
-- titleFrame.t = titleFrame:CreateTexture(nil, "BACKGROUND")
-- titleFrame.t:SetAllPoints()
-- titleFrame.t:SetVertexColor(0.00, 0.00, 0.0, 0.6)
-- titleFrame.LeftTex:SetTexture(titleFrame.RightTex:GetTexture()); titleFrame.LeftTex:SetTexCoord(1, 0, 0, 1)
-- titleFrame.BottomTex:SetTexture(titleFrame.TopTex:GetTexture()); titleFrame.BottomTex:SetTexCoord(0, 1, 1, 0)
-- titleFrame.BottomRightTex:SetTexture(titleFrame.TopRightTex:GetTexture()); titleFrame.BottomRightTex:SetTexCoord(0, 1, 1, 0)
-- titleFrame.BottomLeftTex:SetTexture(titleFrame.TopRightTex:GetTexture()); titleFrame.BottomLeftTex:SetTexCoord(1, 0, 1, 0)
-- titleFrame.TopLeftTex:SetTexture(titleFrame.TopRightTex:GetTexture()); titleFrame.TopLeftTex:SetTexCoord(1, 0, 0, 1)
-- Set background texture for titleFrame -- Set background texture for titleFrame
titleFrame:SetBackdrop({ titleFrame:SetBackdrop({
bgFile = "Interface\\BUTTONS\\WHITE8X8", -- use 8x8 texture bgFile = "Interface\\BUTTONS\\WHITE8X8", -- use 8x8 texture
edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
tile = true, tile = true,
tileEdge = true, tileEdge = true,
tileSize = 16, tileSize = 16,
edgeSize = 16, edgeSize = 16,
insets = { left = 4, right = 4, top = 4, bottom = 4 } insets = { left = 4, right = 4, top = 4, bottom = 4 }
}) })
titleFrame:SetBackdropColor(0.00, 0.00, 0.0, 0.6) -- set transparency titleFrame:SetBackdropColor(0.00, 0.00, 0.0, 0.6) -- set transparency
@@ -12355,8 +12329,6 @@
titleFrame.x:SetJustifyH("RIGHT") titleFrame.x:SetJustifyH("RIGHT")
-- Drag to resize -- Drag to resize
editFrame:SetResizable(true) editFrame:SetResizable(true)
editFrame:SetMinResize(600, 50) editFrame:SetMinResize(600, 50)
@@ -12395,12 +12367,50 @@
end end
end) end)
-- Create custom scroll frame
local scrollFrame = CreateFrame("ScrollFrame", "LeatrixChatScroll", editFrame)
scrollFrame:SetPoint("TOPLEFT", editFrame, 26, -36)
scrollFrame:SetPoint("BOTTOMRIGHT", editFrame, "BOTTOMRIGHT", -34, 8)
scrollFrame:EnableMouseWheel(true)
-- Set the existing edit box as the scroll child
scrollFrame:SetScrollChild(editBox)
-- Create custom scrollbar
local scrollbar = CreateFrame("Slider", nil, editFrame, "UIPanelScrollBarTemplate")
scrollbar:SetPoint("TOPRIGHT", editFrame, "TOPRIGHT", -14, -36)
scrollbar:SetPoint("BOTTOMRIGHT", editFrame, "BOTTOMRIGHT", -14, 26)
scrollbar:SetMinMaxValues(1, 6000) -- Adjust the min and max values as needed
scrollbar:SetValueStep(1)
scrollbar:SetValue(1)
scrollbar:SetWidth(16)
scrollbar:SetScript("OnValueChanged", function(self, value)
scrollFrame:SetVerticalScroll(value)
end)
-- Update scrollbar when scroll frame is scrolled
scrollFrame:SetScript("OnVerticalScroll", function(self, offset)
scrollbar:SetValue(offset)
end)
-- Update scroll frame when scrollbar is moved
scrollbar:SetScript("OnMouseUp", function(self)
local value = scrollbar:GetValue()
scrollFrame:SetVerticalScroll(value)
end)
-- Enable mousewheel scrolling within the scroll frame
scrollFrame:SetScript("OnMouseWheel", function(self, delta)
local currentValue = scrollbar:GetValue()
scrollbar:SetValue(currentValue - delta * 30)
end)
-- Define a boolean variable to keep track of the editFrame visibility -- Define a boolean variable to keep track of the editFrame visibility
local isNormWindowShown = false; local isNormWindowShown = false;
local isTempWindowShown = false; local isTempWindowShown = false;
-- Close frame with right-click of editframe or editbox -- Close frame with right-click of editframe or editbox
local function CloseRecentChatWindow() local function CloseRecentChatWindow()
editBox:SetText("") editBox:SetText("")
@@ -12429,28 +12439,29 @@
CloseRecentChatWindow() isNormWindowShown = false; isTempWindowShown = false; CloseRecentChatWindow() isNormWindowShown = false; isTempWindowShown = false;
end) end)
-- Clear highlighted text and clear focus if enter key is pressed -- Clear highlighted text and clear focus if enter key is pressed
editBox:SetScript("OnEnterPressed", function() editBox:SetScript("OnEnterPressed", function()
editBox:HighlightText(0, 0) editBox:HighlightText(0, 0)
editBox:ClearFocus() editBox:ClearFocus()
end) end)
--===== Hide ScrollBar if window too small. =====-- ----===== Hide ScrollBar if window too small. =====--
function HideScrollBar() --local function HideScrollBar()
if editFrame:GetHeight() < 80 then -- if editFrame:GetHeight() < 80 then
scroll:Hide() -- scroll:Hide()
else -- else
scroll:Show() -- scroll:Show()
end -- end
end --end
--
editFrame:HookScript("OnSizeChanged", HideScrollBar) --editFrame:HookScript("OnSizeChanged", HideScrollBar)
--
HideScrollBar() --HideScrollBar()
--
editFrame:SetScript("OnUpdate", function(self, elapsed) --editFrame:SetScript("OnUpdate", function(self, elapsed)
HideScrollBar() -- HideScrollBar()
end) --end)
-- local titleBox = titleFrame.EditBox -- local titleBox = titleFrame.EditBox
-- titleBox:Hide() -- titleBox:Hide()
@@ -12460,6 +12471,8 @@
local function ShowChatbox(chtfrm) local function ShowChatbox(chtfrm)
editBox:SetText("") editBox:SetText("")
local NumMsg = chtfrm:GetNumMessages() local NumMsg = chtfrm:GetNumMessages()
scrollbar:SetMinMaxValues(1, 8 * NumMsg) -- Adjust the min and max values as needed
local StartMsg = 1 local StartMsg = 1
if NumMsg > 128 then StartMsg = NumMsg - 127 end if NumMsg > 128 then StartMsg = NumMsg - 127 end
local totalMsgCount = 0 local totalMsgCount = 0
@@ -12469,8 +12482,8 @@
-- Handle Battle.net messages -- Handle Battle.net messages
if string.match(chatMessage, "k:(%d+):(%d+):BN_WHISPER:") if string.match(chatMessage, "k:(%d+):(%d+):BN_WHISPER:")
or string.match(chatMessage, "k:(%d+):(%d+):BN_INLINE_TOAST_ALERT:") or string.match(chatMessage, "k:(%d+):(%d+):BN_INLINE_TOAST_ALERT:")
or string.match(chatMessage, "k:(%d+):(%d+):BN_INLINE_TOAST_BROADCAST:") or string.match(chatMessage, "k:(%d+):(%d+):BN_INLINE_TOAST_BROADCAST:")
then then
local ctype local ctype
if string.match(chatMessage, "k:(%d+):(%d+):BN_WHISPER:") then if string.match(chatMessage, "k:(%d+):(%d+):BN_WHISPER:") then
@@ -12511,29 +12524,26 @@
editBox:ClearFocus() editBox:ClearFocus()
end end
scroll:SetScrollChild(editBox)
-- Hook normal chat frame tab clicks -- Hook normal chat frame tab clicks
for i = 1, 50 do for i = 1, 50 do
if _G["ChatFrame" .. i] then if _G["ChatFrame" .. i] then
_G["ChatFrame" .. i .. "Tab"]:HookScript("OnClick", function() _G["ChatFrame" .. i .. "Tab"]:HookScript("OnClick", function()
if IsControlKeyDown() then if IsControlKeyDown() then
editBox:SetFont(_G["ChatFrame" .. i]:GetFont()) editBox:SetFont(_G["ChatFrame" .. i]:GetFont())
ShowChatbox(_G["ChatFrame" .. i]) ShowChatbox(_G["ChatFrame" .. i])
-- toggle editFrame visibility based on the current state -- toggle editFrame visibility based on the current state
if isNormWindowShown then if isNormWindowShown then
editFrame:Hide() editFrame:Hide()
isNormWindowShown = false isNormWindowShown = false
else else
editFrame:Show() editFrame:Show()
isNormWindowShown = true isNormWindowShown = true
end end
end end
end) end)
end end
end end
-- Hook temporary chat frame tab clicks -- Hook temporary chat frame tab clicks
@@ -12545,14 +12555,14 @@
editBox:SetFont(_G[cf]:GetFont()) editBox:SetFont(_G[cf]:GetFont())
ShowChatbox(_G[cf]) ShowChatbox(_G[cf])
-- toggle editFrame visibility based on the current state -- toggle editFrame visibility based on the current state
if isTempWindowShown then if isTempWindowShown then
editFrame:Hide() editFrame:Hide()
isTempWindowShown = false isTempWindowShown = false
else else
editFrame:Show() editFrame:Show()
isTempWindowShown = true isTempWindowShown = true
end end
end end
end) end)
end end