Search for .dat files

Author: Blitz54

src/Export/Classes/DatListControl.lua

@@ -4,9 +4,28 @@
 -- Dat list control.
 --
 local DatListClass = newClass("DatListControl", "ListControl", function(self, anchor, rect)
-	self.ListControl(anchor, rect, 14, "VERTICAL", false, main.datFileList)
+	self.originalList = main.datFileList
+	self.searchBuf = ""
+	self.filteredList = self.originalList
+	self.ListControl(anchor, rect, 14, "VERTICAL", false, self.filteredList)
 end)
 
+function DatListClass:BuildFilteredList()
+	local search = self.searchBuf:lower()
+	if search == "" then
+		self.filteredList = self.originalList
+	else
+		self.filteredList = {}
+		for _, file in ipairs(self.originalList) do
+			if file.name:lower():find(search, 1, true) then
+				table.insert(self.filteredList, file)
+			end
+		end
+	end
+	self.list = self.filteredList
+	--self:SelectIndex(1)
+end
+
 function DatListClass:GetRowValue(column, index, datFile)
 	if column == 1 then
 		return "^7"..datFile.name

src/Export/Main.lua

@@ -222,7 +222,12 @@ function main:Init()
 		end
 	}
 
-	self.controls.datList = new("DatListControl", nil, {10, 70, 250, function() return self.screenH - 70 end})
+	self.controls.datSearch = new("EditControl", {"TOPLEFT",self.controls.datSource,"BOTTOMLEFT"}, {0, 2, 250, 18}, nil, "^8Search .dat files", nil, nil, function(buf)
+		self.controls.datList.searchBuf = buf
+		self.controls.datList:BuildFilteredList()
+	end)
+
+	self.controls.datList = new("DatListControl", {"TOPLEFT",self.controls.datSearch,"BOTTOMLEFT"}, {0, 2, 250, function() return self.screenH - 100 end})
 
 	self.controls.specEditToggle = new("ButtonControl", nil, {270, 10, 100, 18}, function() return self.editSpec and "Done <<" or "Edit >>" end, function()
 		self.editSpec = not self.editSpec