Truncate start of custom sound filename to fit the textbox

Author: Bentroen

scripts/draw_window_instruments/draw_window_instruments.gml

@@ -104,7 +104,7 @@ function draw_window_instruments() {
 	    if (ins.user) {draw_theme_color()}
 	    if (!ins.loaded) draw_set_color(c_red)
 	    if (insselect = b) draw_set_color(c_white)
-	    draw_text(x1 + 18 + 194, y1 + 90 + 20 * a, condstr(ins.filename = "", "None") + ins.filename)
+	    draw_text(x1 + 18 + 194, y1 + 90 + 20 * a, condstr(ins.filename = "", "None") + string_truncate(ins.filename, 144, true))
 	    if (ins.filename = "") popup_set_window(x1 + 14 + 194, y1 + 88 + 20 * a, 160, 20, "No sound file has been selected\nfor this instrument.")
 	    else if (!ins.loaded) popup_set_window(x1 + 14 + 194, y1 + 88 + 20 * a, 160, 20, "This sound file could not be found.")
 	    if (mouse_rectangle(x1 + 14 + 194, y1 + 88 + 20 * a, 160, 20) && insselect = b && wmenu = 0) {

scripts/string_maxwidth/string_maxwidth.gml

@@ -1,15 +1,28 @@
 function string_maxwidth(argument0, argument1) {
 	// string_maxwidth(str, w)
-	var str, nstr, maxw, w, c;
+	var str, nstr, maxw, w, c, truncate_start;
 	str = argument0
 	maxw = argument1
+	truncate_start = false
+	if (argument_count > 2) {
+		truncate_start = argument[2]
+	}
 	w = 0
 	nstr = ""
-	for (c = 1; c <= string_length(str); c += 1) {
-	    w += string_width(string_char_at(str, c))
-	    if (string_char_at(str, c) = "\n") w = 0
-	    if (w > maxw) break
-	    nstr += string_char_at(str, c)
+	if (truncate_start) {
+		for (c = string_length(str); c >= 1; c -= 1) {
+			w += string_width(string_char_at(str, c))
+			if (string_char_at(str, c) = "\n") w = 0
+			if (w > maxw) break
+			nstr = string_char_at(str, c) + nstr
+		}
+	} else {
+		for (c = 1; c <= string_length(str); c += 1) {
+		    w += string_width(string_char_at(str, c))
+		    if (string_char_at(str, c) = "\n") w = 0
+		    if (w > maxw) break
+		    nstr += string_char_at(str, c)
+		}
 	}
 	return nstr
 

scripts/string_truncate/string_truncate.gml

@@ -1,15 +1,21 @@
 function string_truncate(argument0, argument1) {
 	// string_truncate(str, maxwidth)
-	// Truncates a string to maxwidth and adds ellipses (...) at the end
+	// Truncates a string to maxwidth and adds ellipses (...) at the end or start
 
-	var str, maxwidth
+	var str, maxwidth, truncate_start
 	str = argument0
 	maxwidth = argument1
-
+	truncate_start = false
+	if (argument_count > 2) {
+		truncate_start = argument[2]
+	}
+	
 	if (string_width(str) > maxwidth) {
-		return string_maxwidth(str, maxwidth) + "..."
+		if (truncate_start) {
+			return "..." + string_maxwidth(str, maxwidth, true)
+		} else {
+			return string_maxwidth(str, maxwidth) + "..."
+		}
 	}
 	return str
-
-
 }