LoTROInterface SVN KragenBars

-- version 1.0
-- Initial version.

import "Turbine.UI";
import "Turbine.UI.Lotro";
import "KragenPlugs.Utils";

DeltaButtonControl = class( Turbine.UI.Control );

local defaultResources = {
          Normal=nil
        , Hover=nil
        , Pressed=nil
        , Disabled=nil
};

function DeltaButtonControl:Constructor( tResources, bfZoneTest, ctlAttachTo )
        Turbine.UI.Control.Constructor( self );

        if ctlAttachTo ~= nil then
                self:SetParent( ctlAttachTo );
        end
        if type(tResources) ~= "table" then
                self.resource = defaultResources;
        else
                self.resource = tResources;
        end
        if type(bfZoneTest) ~= "function" then
                self.InTheZone = function( sender, mx, my )
                        if mx < 0 or my < 0 or mx > self:GetWidth() or my > self:GetHeight() then
                                return false;
                        end

                        return true;
                end
        else
                self.InTheZone = bfZoneTest;
        end

        self.bEnabled = true;
        self.bMouseMoving = false;

        self:SetSize( 20, 20 );
        self:SetBackground( self.resource.Normal );
        self:SetBlendMode( Turbine.UI.BlendMode.AlphaBlend );
        self:SetPosition( 0, 0 );
        self:SetVisible( true );
        self:SetOpacity( 1 );

        self.MouseEnter = function( sender, args )
                self:RefreshImage();
        end

        self.MouseLeave = function( sender, args )
                self:RefreshImage();
        end

        self.MouseDown = function( sender, args )
                if self:IsEnabled() then
                        self:SetMouseMoving( true, args );
                end
        end

        self.MouseUp = function( sender, args )
                self:SetMouseMoving( false, args );
        end

        self.MouseMove = function( sender, args )
                if self:IsMouseMoving() then
                        if type( self.Delta ) == "function" then
                                local t = { };
                                t.X = args.X;
                                t.Y = args.Y;
                                t.deltaX = args.X - self.deltaStartX;
                                t.deltaY = args.Y - self.deltaStartY;
                                self:Delta(t);
                        end
                end

                self:RefreshImage();
        end
end

function DeltaButtonControl:IsEnabled( )
        return self.bEnabled;
end

function DeltaButtonControl:IsMouseMoving( )
        return self.bMouseMoving;
end

function DeltaButtonControl:SetMouseMoving( bValue, args )
        if self.bMouseMoving == bValue then
                return;
        end

        self.bMouseMoving = bValue;

        local t = { };
        t.X = args.X;
        t.Y = args.Y;

        if self:IsMouseMoving() then
                self.deltaStartX = args.X;
                self.deltaStartY = args.Y;

                if type( self.DeltaStart ) == "function" then
                        t.deltaX = 0;
                        t.deltaY = 0;
                        self:DeltaStart(t);
                end
        else
                t.deltaX = args.X - self.deltaStartX;
                t.deltaY = args.Y - self.deltaStartY;

                if type( self.DeltaEnd ) == "function" then
                        self:DeltaEnd(t);
                end
                if self:InTheZone( args.X, args.Y ) then
                        if type( self.Click ) == "function" then
                                self:Click(t);
                        end
                end
        end

        self:RefreshImage();
end

function DeltaButtonControl:SetEnabled( bValue )
        if self.bEnabled == bValue then
                return;
        elseif type( bValue ) ~= "boolean" then
                self.bEnabled = true;
        else
                self.bEnabled = bValue;
        end

        self:RefreshImage();
end

function DeltaButtonControl:RefreshImage( )
        local mx, my = self:GetMousePosition();

        if not self:IsEnabled() then
                self:SetBackground( self.resource.Disabled );
        elseif self:InTheZone( mx, my ) and self:IsMouseMoving() then
                self:SetBackground( self.resource.Pressed );
        elseif self:InTheZone( mx, my ) then
                self:SetBackground( self.resource.Hover );
        else
                self:SetBackground( self.resource.Normal );
        end
end