Port over checkbox images from pob2, show icons for spectre type for filtering

Author: Blitz54

src/Assets/monstercategory/categorybeasts.png

@@ -11,6 +11,7 @@ local CheckBoxClass = newClass("CheckBoxControl", "Control", "TooltipHost", func
 	self.labelWidth = DrawStringWidth(self.width - 4, "VAR", label or "") + 5
 	self.changeFunc = changeFunc
 	self.state = initialState
+	self.checkImage = nil
 end)
 
 function CheckBoxClass:IsMouseOver()
@@ -42,6 +43,8 @@ function CheckBoxClass:Draw(viewPort, noTooltip)
 	elseif self.borderFunc then
 		local r, g, b = self.borderFunc()
 		SetDrawColor(r, g, b)
+	elseif self.checkImage and self.state then
+		SetDrawColor(0.75, 0.75, 0.75)
 	else
 		SetDrawColor(0.5, 0.5, 0.5)
 	end
@@ -56,15 +59,30 @@ function CheckBoxClass:Draw(viewPort, noTooltip)
 		SetDrawColor(0, 0, 0)
 	end
 	DrawImage(nil, x + 1, y + 1, size - 2, size - 2)
-	if self.state then
-		if not enabled then
-			SetDrawColor(0.33, 0.33, 0.33)
-		elseif mOver then
-			SetDrawColor(1, 1, 1)
+	if self.checkImage then
+		if self.state then
+			if not enabled then
+				SetDrawColor(0.33, 0.33, 0.33)
+			elseif mOver then
+				SetDrawColor(2, 2, 2)
+			else
+				SetDrawColor(1, 1, 1)
+			end
 		else
-			SetDrawColor(0.75, 0.75, 0.75)
+			SetDrawColor(0.5, 0.5, 0.5)
+		end
+		DrawImage(self.checkImage.handle, x + 1, y + 1, size - 2, size - 2, self.checkImage[1])
+	else
+		if self.state then
+			if not enabled then
+				SetDrawColor(0.33, 0.33, 0.33)
+			elseif mOver then
+				SetDrawColor(1, 1, 1)
+			else
+				SetDrawColor(0.75, 0.75, 0.75)
+			end
+			main:DrawCheckMark(x + size/2, y + size/2, size * 0.8)
 		end
-		main:DrawCheckMark(x + size/2, y + size/2, size * 0.8)
 	end
 	if enabled then
 		SetDrawColor(1, 1, 1)
@@ -106,3 +124,8 @@ function CheckBoxClass:OnKeyUp(key)
 	end
 	self.clicked = false
 end
+
+---@param image table @The image to display instead of a check.  Expects a `handle` field with an image handle, and the sprite position at index `1`.  All other fields are ignored.  Set to `nil` to draw a normal check.
+function CheckBoxClass:SetCheckImage(image)
+	self.checkImage = image
+end