TimMenu: improved style of dropdownm

Author: titaniummachine1

TimMenu/Globals.lua

@@ -17,6 +17,8 @@ Globals.Colors = {
 	TabSelectedUnderline = { 255, 255, 255, 255 },
 	WidgetOutline = { 100, 100, 100, 77 },
 	ArrowBoxBg = { 55, 100, 215, 255 },
+	DropdownSelected = { 90, 90, 90, 255 },
+	DropdownSelectedHover = { 110, 110, 110, 255 },
 }
 
 -- Style settings

TimMenu/Widgets/Dropdown.lua

@@ -43,10 +43,14 @@ local function DrawDropdownPopupItem(win, relX, relY, width, itemH, pad, opt, is
 	draw.SetFont(Globals.Style.Font)
 	local bgColor = Globals.Colors.Item
 	if isSelected then
-		bgColor = Globals.Colors.HighlightActive
+		bgColor = Globals.Colors.DropdownSelected or Globals.Colors.HighlightActive
 	end
 	if isHovered then
-		bgColor = Globals.Colors.ItemHover
+		if isSelected then
+			bgColor = Globals.Colors.DropdownSelectedHover or Globals.Colors.ItemHover
+		else
+			bgColor = Globals.Colors.ItemHover
+		end
 	end
 	Common.SetColor(bgColor)
 	Common.DrawFilledRect(absX, absY, absX + width, absY + itemH)