Mercurial > wow > hansgar_and_franzok_assist

annotate Libs/DF/scrollbar.lua @ 63:3552946c0b9a tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v8.2.0.062 for changeset d6704922ef5d
author Tercioo
date Fri, 28 Jun 2019 20:06:18 -0300
parents 0682d738499b
children
rev   line source
Tercio@11 1
Tercio@11 2 local DF = _G ["DetailsFramework"]
Tercio@20 3 if (not DF or not DetailsFrameworkCanLoad) then
Tercio@20 4 return
Tercio@20 5 end
Tercio@11 6
Tercio@11 7 function DF:CreateScrollBar (master, slave, x, y)
Tercio@11 8 return DF:NewScrollBar (master, slave, x, y)
Tercio@11 9 end
Tercio@11 10
Tercio@11 11 function DF:NewScrollBar (master, slave, x, y)
Tercio@11 12
Tercio@11 13 local new_slider = CreateFrame ("Slider", nil, master)
Tercio@11 14 new_slider.scrollMax = 560 --default - tamanho da janela de fundo
Tercio@11 15
Tercio@11 16 -- ///// SLIDER /////
Tercio@11 17 new_slider:SetPoint ("TOPLEFT", master, "TOPRIGHT", x, y)
Tercio@11 18 new_slider.ativo = true
Tercio@11 19
Tercio@11 20 new_slider.bg = new_slider:CreateTexture (nil, "BACKGROUND")
Tercio@11 21 new_slider.bg:SetAllPoints (true)
Tercio@11 22 new_slider.bg:SetTexture (0, 0, 0, 0)
Tercio@11 23 --coisinha do meio
Tercio@11 24 new_slider.thumb = new_slider:CreateTexture (nil, "OVERLAY")
Tercio@11 25 new_slider.thumb:SetTexture ("Interface\\Buttons\\UI-ScrollBar-Knob")
Tercio@11 26 new_slider.thumb:SetSize (29, 30)
Tercio@11 27 new_slider:SetThumbTexture (new_slider.thumb)
Tercio@11 28
Tercio@11 29 new_slider:SetOrientation ("VERTICAL")
Tercio@11 30 new_slider:SetSize(16, 100)
Tercio@11 31 new_slider:SetMinMaxValues(0, new_slider.scrollMax)
Tercio@11 32 new_slider:SetValue(0)
Tercio@11 33 new_slider.ultimo = 0
Tercio@11 34
Tercio@11 35 local botao_cima = CreateFrame ("Button", nil, master)
Tercio@11 36
Tercio@11 37 botao_cima:SetPoint ("BOTTOM", new_slider, "TOP", 0, -12)
Tercio@11 38 botao_cima.x = 0
Tercio@11 39 botao_cima.y = -12
Tercio@11 40
Tercio@11 41 botao_cima:SetWidth (29)
Tercio@11 42 botao_cima:SetHeight (32)
Tercio@11 43 botao_cima:SetNormalTexture ("Interface\\BUTTONS\\UI-ScrollBar-ScrollUpButton-Up")
Tercio@11 44 botao_cima:SetPushedTexture ("Interface\\BUTTONS\\UI-ScrollBar-ScrollUpButton-Down")
Tercio@11 45 botao_cima:SetDisabledTexture ("Interface\\BUTTONS\\UI-ScrollBar-ScrollUpButton-Disabled")
Tercio@11 46 botao_cima:Show()
Tercio@11 47 botao_cima:Disable()
Tercio@11 48
Tercio@11 49 local botao_baixo = CreateFrame ("Button", nil, master)
Tercio@11 50 botao_baixo:SetPoint ("TOP", new_slider, "BOTTOM", 0, 12)
Tercio@11 51 botao_baixo.x = 0
Tercio@11 52 botao_baixo.y = 12
Tercio@11 53
Tercio@11 54 botao_baixo:SetWidth (29)
Tercio@11 55 botao_baixo:SetHeight (32)
Tercio@11 56 botao_baixo:SetNormalTexture ("Interface\\BUTTONS\\UI-ScrollBar-ScrollDownButton-Up")
Tercio@11 57 botao_baixo:SetPushedTexture ("Interface\\BUTTONS\\UI-ScrollBar-ScrollDownButton-Down")
Tercio@11 58 botao_baixo:SetDisabledTexture ("Interface\\BUTTONS\\UI-ScrollBar-ScrollDownButton-Disabled")
Tercio@11 59 botao_baixo:Show()
Tercio@11 60 botao_baixo:Disable()
Tercio@11 61
Tercio@11 62 master.baixo = botao_baixo
Tercio@11 63 master.cima = botao_cima
Tercio@11 64 master.slider = new_slider
Tercio@11 65
Tercio@11 66 botao_baixo:SetScript ("OnMouseDown", function(self)
Tercio@11 67 if (not new_slider:IsEnabled()) then
Tercio@11 68 return
Tercio@11 69 end
Tercio@11 70
Tercio@11 71 local current = new_slider:GetValue()
Tercio@11 72 local minValue, maxValue = new_slider:GetMinMaxValues()
Tercio@11 73 if (current+5 < maxValue) then
Tercio@11 74 new_slider:SetValue (current+5)
Tercio@11 75 else
Tercio@11 76 new_slider:SetValue (maxValue)
Tercio@11 77 end
Tercio@11 78 self.precionado = true
Tercio@11 79 self.last_up = -0.3
Tercio@11 80 self:SetScript ("OnUpdate", function(self, elapsed)
Tercio@11 81 self.last_up = self.last_up + elapsed
Tercio@11 82 if (self.last_up > 0.03) then
Tercio@11 83 self.last_up = 0
Tercio@11 84 local current = new_slider:GetValue()
Tercio@11 85 local minValue, maxValue = new_slider:GetMinMaxValues()
Tercio@11 86 if (current+2 < maxValue) then
Tercio@11 87 new_slider:SetValue (current+2)
Tercio@11 88 else
Tercio@11 89 new_slider:SetValue (maxValue)
Tercio@11 90 end
Tercio@11 91 end
Tercio@11 92 end)
Tercio@11 93 end)
Tercio@11 94 botao_baixo:SetScript ("OnMouseUp", function(self)
Tercio@11 95 self.precionado = false
Tercio@11 96 self:SetScript ("OnUpdate", nil)
Tercio@11 97 end)
Tercio@11 98
Tercio@11 99 botao_cima:SetScript ("OnMouseDown", function(self)
Tercio@11 100 if (not new_slider:IsEnabled()) then
Tercio@11 101 return
Tercio@11 102 end
Tercio@11 103
Tercio@11 104 local current = new_slider:GetValue()
Tercio@11 105 if (current-5 > 0) then
Tercio@11 106 new_slider:SetValue (current-5)
Tercio@11 107 else
Tercio@11 108 new_slider:SetValue (0)
Tercio@11 109 end
Tercio@11 110 self.precionado = true
Tercio@11 111 self.last_up = -0.3
Tercio@11 112 self:SetScript ("OnUpdate", function(self, elapsed)
Tercio@11 113 self.last_up = self.last_up + elapsed
Tercio@11 114 if (self.last_up > 0.03) then
Tercio@11 115 self.last_up = 0
Tercio@11 116 local current = new_slider:GetValue()
Tercio@11 117 if (current-2 > 0) then
Tercio@11 118 new_slider:SetValue (current-2)
Tercio@11 119 else
Tercio@11 120 new_slider:SetValue (0)
Tercio@11 121 end
Tercio@11 122 end
Tercio@11 123 end)
Tercio@11 124 end)
Tercio@11 125 botao_cima:SetScript ("OnMouseUp", function(self)
Tercio@11 126 self.precionado = false
Tercio@11 127 self:SetScript ("OnUpdate", nil)
Tercio@11 128 end)
Tercio@58 129 --> isso aqui pra quando o slider ativar, o scroll fica na posi��o zero
Tercio@11 130 botao_cima:SetScript ("OnEnable", function (self)
Tercio@11 131 local current = new_slider:GetValue()
Tercio@11 132 if (current == 0) then
Tercio@11 133 botao_cima:Disable()
Tercio@11 134 end
Tercio@11 135 end)
Tercio@11 136
Tercio@11 137 new_slider:SetScript ("OnValueChanged", function (self)
Tercio@11 138 local current = self:GetValue()
Tercio@11 139 master:SetVerticalScroll (current)
Tercio@11 140
Tercio@11 141 local minValue, maxValue = new_slider:GetMinMaxValues()
Tercio@11 142
Tercio@11 143 if (current == minValue) then
Tercio@11 144 botao_cima:Disable()
Tercio@11 145 elseif (not botao_cima:IsEnabled()) then
Tercio@11 146 botao_cima:Enable()
Tercio@11 147 end
Tercio@11 148
Tercio@11 149 if (current == maxValue) then
Tercio@11 150 botao_baixo:Disable()
Tercio@11 151 elseif (not botao_baixo:IsEnabled()) then
Tercio@11 152 botao_baixo:Enable()
Tercio@11 153 end
Tercio@11 154
Tercio@11 155 end)
Tercio@11 156
Tercio@11 157 new_slider:SetScript ("OnShow", function (self)
Tercio@11 158 botao_cima:Show()
Tercio@11 159 botao_baixo:Show()
Tercio@11 160 end)
Tercio@11 161
Tercio@11 162 new_slider:SetScript ("OnDisable", function (self)
Tercio@11 163 botao_cima:Disable()
Tercio@11 164 botao_baixo:Disable()
Tercio@11 165 end)
Tercio@11 166
Tercio@11 167 new_slider:SetScript ("OnEnable", function (self)
Tercio@11 168 botao_cima:Enable()
Tercio@11 169 botao_baixo:Enable()
Tercio@11 170 end)
Tercio@11 171
Tercio@11 172 master:SetScript ("OnMouseWheel", function (self, delta)
Tercio@11 173 if (not new_slider:IsEnabled()) then
Tercio@11 174 return
Tercio@11 175 end
Tercio@11 176
Tercio@11 177 local current = new_slider:GetValue()
Tercio@11 178 if (delta < 0) then
Tercio@11 179 --baixo
Tercio@11 180 local minValue, maxValue = new_slider:GetMinMaxValues()
Tercio@11 181 if (current + (master.wheel_jump or 20) < maxValue) then
Tercio@11 182 new_slider:SetValue (current + (master.wheel_jump or 20))
Tercio@11 183 else
Tercio@11 184 new_slider:SetValue (maxValue)
Tercio@11 185 end
Tercio@11 186 elseif (delta > 0) then
Tercio@11 187 --cima
Tercio@11 188 if (current + (master.wheel_jump or 20) > 0) then
Tercio@11 189 new_slider:SetValue (current - (master.wheel_jump or 20))
Tercio@11 190 else
Tercio@11 191 new_slider:SetValue (0)
Tercio@11 192 end
Tercio@11 193 end
Tercio@11 194 end)
Tercio@11 195
Tercio@11 196 function new_slider:Altura (h)
Tercio@11 197 self:SetHeight (h)
Tercio@11 198 end
Tercio@11 199
Tercio@11 200 function new_slider:Update (desativar)
Tercio@11 201
Tercio@11 202 if (desativar) then
Tercio@11 203 new_slider:Disable()
Tercio@11 204 new_slider:SetValue(0)
Tercio@11 205 new_slider.ativo = false
Tercio@11 206 master:EnableMouseWheel (false)
Tercio@11 207 return
Tercio@11 208 end
Tercio@11 209
Tercio@11 210 self.scrollMax = slave:GetHeight()-master:GetHeight()
Tercio@11 211 if (self.scrollMax > 0) then
Tercio@11 212 new_slider:SetMinMaxValues (0, self.scrollMax)
Tercio@11 213 if (not new_slider.ativo) then
Tercio@11 214 new_slider:Enable()
Tercio@11 215 new_slider.ativo = true
Tercio@11 216 master:EnableMouseWheel (true)
Tercio@11 217 end
Tercio@11 218 else
Tercio@11 219 new_slider:Disable()
Tercio@11 220 new_slider:SetValue(0)
Tercio@11 221 new_slider.ativo = false
Tercio@11 222 master:EnableMouseWheel (false)
Tercio@11 223 end
Tercio@11 224 end
Tercio@11 225
Tercio@11 226 function new_slider:cimaPoint (x, y)
Tercio@11 227 botao_cima:SetPoint ("BOTTOM", new_slider, "TOP", x, (y)-12)
Tercio@11 228 end
Tercio@11 229
Tercio@11 230 function new_slider:baixoPoint (x, y)
Tercio@11 231 botao_baixo:SetPoint ("TOP", new_slider, "BOTTOM", x, (y)+12)
Tercio@11 232 end
Tercio@11 233
Tercio@11 234 return new_slider
Tercio@58 235 end