1
0
Bifurcation 0
Ce dépôt a été archivé le 2024-10-10. Vous pouvez voir ses fichiers ou le cloner, mais pas ouvrir de ticket ou de demandes d'ajout, ni soumettre de changements.
ButtonForge-classic/ButtonForge/UILibDragIcon.lua
2018-05-12 10:23:16 +10:00

92 lignes
2,8 Kio
Lua

--[[
Author: Alternator (Massiner of Nathrezim)
Copyright 2010
Notes:
]]
local UILib = BFUILib;
local Util = BFUtil;
local Const = BFConst;
local MiscFrame = BFEventFrames["Misc"];
local DragIcon = CreateFrame("FRAME", "ssasm", BFIconDragOverlay);
DragIcon:SetPoint("TOPLEFT", UIParent, "TOPLEFT");
DragIcon:SetFrameStrata("FULLSCREEN_DIALOG");
DragIcon.CornerTexture = DragIcon:CreateTexture();
DragIcon.CornerTexture:SetPoint("TOPLEFT", DragIcon, "TOPLEFT");
DragIcon.CornerTexture:SetPoint("BOTTOMRIGHT", DragIcon, "BOTTOMRIGHT");
DragIcon.CornerTexture:SetTexture(Const.ImagesDir.."Pickup.tga");
DragIcon.CornerTexture:SetDrawLayer("OVERLAY");
DragIcon.Texture = DragIcon:CreateTexture();
DragIcon.Texture:SetPoint("TOPLEFT", DragIcon, "TOPLEFT");
DragIcon.Texture:SetPoint("BOTTOMRIGHT", DragIcon, "BOTTOMRIGHT");
function UILib.StartDraggingIcon(Icon, Width, Height, Command, Data, Subvalue, TexCoords)
SetCursor("ITEM_CURSOR");
BFIconDragOverlay:Show();
DragIcon.Texture:SetTexture(Icon);
DragIcon:SetSize(Width, Height);
if (TexCoords) then
DragIcon.Texture:SetTexCoord(unpack(TexCoords));
else
DragIcon.Texture:SetTexCoord(0, 1, 0, 1);
end
DragIcon.CustomCommand = Command;
DragIcon.CustomData = Data;
DragIcon.CustomSubvalue = Subvalue;
PlaySoundFile("Sound\\Interface\\Uspelliconpickup.Wav");
Util.CursorAction = true;
MiscFrame:OnEvent("ACTIONBAR_SHOWGRID"); --to cause the updates we want to happen
DragIcon:RegisterEvent("CURSOR_UPDATE"); -- I can't remember why we don't do it here - but this event was a real pain to get working as desired here!
DragIcon.Started = true;
end
function UILib.StopDraggingIcon()
if (DragIcon.CustomCommand) then
DragIcon:UnregisterEvent("CURSOR_UPDATE");
DragIcon:UnregisterEvent("CURSOR_UPDATE");
DragIcon.CustomCommand = nil;
DragIcon.CustomData = nil;
DragIcon.CustomSubvalue = nil;
PlaySoundFile("Sound\\Interface\\Uspellicondrop.Wav");
SetCursor(nil);
DragIcon:UnregisterEvent("CURSOR_UPDATE");
Util.CursorAction = false;
MiscFrame:OnEvent("ACTIONBAR_HIDEGRID"); --to cause the updates we want to happen
BFIconDragOverlay:Hide()
end
end
function UILib.GetDragInfo()
return DragIcon.CustomCommand, DragIcon.CustomData, DragIcon.CustomSubvalue;
end
function DragIcon:OnEvent(Event)
UILib.StopDraggingIcon();
end
function DragIcon:OnUpdate()
GetCursorPosition();
local Left, Top = GetCursorPosition();
local Scale = UIParent:GetEffectiveScale();
if (DragIcon.Started) then
SetCursor("ITEM_CURSOR");
DragIcon.Started = false;
DragIcon:RegisterEvent("CURSOR_UPDATE");
end
if (self.Left ~= Left or self.Top ~= Top) then
self.Left = Left;
self.Top = Top;
self:ClearAllPoints();
self:SetPoint("TOPLEFT", UIParent, "BOTTOMLEFT", Left / Scale, Top / Scale);
end
end
DragIcon:SetScript("OnEvent", DragIcon.OnEvent);
DragIcon:SetScript("OnUpdate", DragIcon.OnUpdate);