Add Show/Hide Piano Toggle

Good for stuff like recording a video

Author: ShinkoNet

scripts/control_create/control_create.gml

@@ -36,6 +36,7 @@ songfolder = songs_directory
 icons_init()
 refreshrate = 0 //0 = 30fps, 1 = 60fps
 fade = 0
+rhval = 270
 
 // File
 filename = ""
@@ -153,6 +154,7 @@ dragstereob = 0
 dragstereo = 0
 
 // Piano
+show_piano = 1
 show_keynames = 1
 show_keyboard = 1
 show_notechart = 0

scripts/control_draw/control_draw.gml

@@ -58,7 +58,10 @@ draw_clear(window_background)
 
 // Calculate area
 totalcols = floor((rw - 198) / 32)
-totalrows = floor((rh - 270) / 32)
+if show_piano = 1 {
+	rhval = 270
+}
+totalrows = floor((rh - rhval) / 32)
 if (min(keysmax, floor((rw - 32) / 39)) != keysshow) {
     startkey = 27 - floor(min(keysmax, floor((rw - 32) / 39)) / 2)
     sharpkeys = 0

scripts/draw_window_preferences/draw_window_preferences.gml

@@ -104,11 +104,20 @@ if (selected_tab = 0) {
 
 
     draw_areaheader(x1 + 22, y1 + 240, 456, 110, "Piano")
-    if (draw_checkbox(x1 + 40, y1 + 256, show_keynames, "Show key names", "If the names of the keys should be shown.")) show_keynames=!show_keynames
-    if (draw_checkbox(x1 + 40, y1 + 276, show_keyboard, "Show keyboard shortcuts", "Show the keyboard shortcuts of the keys.")) show_keyboard=!show_keyboard
-    if (draw_checkbox(x1 + 40, y1 + 296, show_notechart, "Show note chart when hovering over keys", "Whether to show a note chart\nwhen hovering over the keys.")) show_notechart=!show_notechart
-    draw_text(x1 + 40, y1 + 326, "Keys to show:")
-    keysmax = median(20, draw_dragvalue(3, x1 + 120, y1 + 326, keysmax, 2), 50)
+    if (draw_checkbox(x1 + 40, y1 + 256, show_piano, "Show Piano", "Whether the piano should be visible.")) {
+		show_piano=!show_piano
+		keysmax=0
+		rhval=120
+		if show_piano = 1 {
+			keysmax=20
+			rhval=270
+		}
+}
+    if (draw_checkbox(x1 + 40, y1 + 276, show_keynames, "Show key names", "If the names of the keys should be shown.")) show_keynames=!show_keynames
+    if (draw_checkbox(x1 + 40, y1 + 296, show_keyboard, "Show keyboard shortcuts", "Show the keyboard shortcuts of the keys.")) show_keyboard=!show_keyboard
+    if (draw_checkbox(x1 + 40, y1 + 316, show_notechart, "Show note chart when hovering over keys", "Whether to show a note chart\nwhen hovering over the keys.")) show_notechart=!show_notechart
+    draw_text(x1 + 40, y1 + 336, "Keys to show:")
+    keysmax = median(0, draw_dragvalue(3, x1 + 120, y1 + 336, keysmax, 2), 50)
     popup_set_window(x1 + 40, y1 + 322, 150, 21, "The amount of keys to show. A high number may\nslow down the program on old computers.")
 } else if (selected_tab = 2) {
     draw_areaheader(x1 + 22, y1 + 74, 456, 120, "Mouse wheel")

scripts/load_settings/load_settings.gml

@@ -99,6 +99,8 @@ soundsystem = max(0, buffer_read_byte())
 refreshrate = buffer_read_byte()
 fade = buffer_read_byte()
 realstereo = buffer_read_byte()
+show_piano = buffer_read_byte()
+rhval = buffer_read_byte()
 
 buffer_delete(buffer)
 return 1

scripts/save_settings/save_settings.gml

@@ -93,6 +93,8 @@ buffer_write_byte(soundsystem)
 buffer_write_byte(refreshrate)
 buffer_write_byte(fade)
 buffer_write_byte(realstereo)
+buffer_write_byte(show_piano)
+buffer_write_byte(rhval)
 
 buffer_export(buffer, data_directory + "settings.onbs")
 buffer_delete(buffer)