add view windows to column and grid menus

Author: mstop4

current-scripts/Demos/useful-scripts/objects/obj_column_menu/Create_0.gml

@@ -3,5 +3,6 @@ event_inherited();
 items = ds_list_create();
 num_items = 0;
 pos = 0;
+view_area = new Vector2(0, 0);
 
 column_menu_functions();

current-scripts/Demos/useful-scripts/objects/obj_column_menu/Draw_0.gml

@@ -1,12 +1,12 @@
 event_inherited();
 var _x = x + cursor_padding;
 
-for (var i=0; i<num_items; i++) {
+for (var i=view_area.x; i<=view_area.y; i++) {
 	var _item = items[| i];
 	var _type = _item.types[| ds_list_size(_item.types)-1];
-	
-	var _y = y + (item_height + line_spacing) * i;
-	
+
+	var _y = y + (item_height + line_spacing) * (i - view_area.x);
+
 	switch (_type) {
 		case "item":
 		case "selectable":
@@ -27,5 +27,5 @@ for (var i=0; i<num_items; i++) {
 }
 
 if (enabled) {
-	draw_sprite(cursor_spr, 0, x, y + (item_height + line_spacing) * pos + item_height / 2);
+	draw_sprite(cursor_spr, 0, x, y + (item_height + line_spacing) * (pos - view_area.x) + item_height / 2);
 }

current-scripts/Demos/useful-scripts/objects/obj_column_menu/Step_1.gml

@@ -10,11 +10,13 @@ control_state.poll_input();
 
 if (control_state.pressed_state[MENU_CONTROLS.UP]) {
 	pos = wrap(pos-1, 0, num_items);
+	self.column_menu_update_view();	
 	audio_play_sound(cursor_move_sfx, 1, false);
 }
 
 if (control_state.pressed_state[MENU_CONTROLS.DOWN]) {
 	pos = wrap(pos+1, 0, num_items);
+	self.column_menu_update_view();	
 	audio_play_sound(cursor_move_sfx, 1, false);
 }
 

current-scripts/Demos/useful-scripts/objects/obj_column_menu/obj_column_menu.yy

@@ -1,6 +1,7 @@
 event_inherited();
 
 items = ds_grid_create(1, 1);
-pos = { x: 0, y: 0 };
+pos = new Vector2(0, 0);
+view_area = new Rectangle(0, 0, 0, 0);
 
 grid_menu_functions();

current-scripts/Demos/useful-scripts/objects/obj_grid_menu/Create_0.gml

@@ -1,14 +1,14 @@
 event_inherited();
 
-for (var i=0; i<ds_grid_width(items); i++) {
-	var _x = x + cursor_padding * (i+1) + column_width * i;
+for (var i=view_area.left; i<=view_area.right; i++) {
+	var _x = x + cursor_padding * (i-view_area.left+1) + column_width * i;
 
-	for (var j=0; j<ds_grid_height(items); j++) {
+	for (var j=view_area.top; j<=view_area.bottom; j++) {
 		var _item = items[# i, j];
 		if (!is_struct(_item)) continue;
-		
+
 		var _type = _item.types[| ds_list_size(_item.types)-1];
-		var _y = y + (item_height + line_spacing) * j;
+		var _y = y + (item_height + line_spacing) * (j-view_area.top);
 
 		switch (_type) {
 			case "item":
@@ -32,7 +32,7 @@ for (var i=0; i<ds_grid_width(items); i++) {
 
 if (enabled) {
 	draw_sprite(cursor_spr, 0,
-		x + (cursor_padding + column_width) * pos.x,
-		y + (item_height + line_spacing) * pos.y + item_height / 2
+		x + (cursor_padding + column_width) * (pos.x - view_area.left),
+		y + (item_height + line_spacing) * (pos.y - view_area.top) + item_height / 2
 	);
 }

current-scripts/Demos/useful-scripts/objects/obj_grid_menu/Draw_0.gml

@@ -18,6 +18,8 @@ if (control_state.pressed_state[MENU_CONTROLS.UP]) {
 		_item = items[# pos.x, pos.y];
 	} until (is_struct(_item) || _cur_pos == pos.y)
 
+	self.grid_menu_update_view();
+
 	audio_play_sound(cursor_move_sfx, 1, false);
 }
 
@@ -29,6 +31,8 @@ if (control_state.pressed_state[MENU_CONTROLS.DOWN]) {
 		pos.y = wrap(pos.y+1, 0, ds_grid_height(items));
 		_item = items[# pos.x, pos.y];
 	} until (is_struct(_item) || _cur_pos == pos.y)
+	
+	self.grid_menu_update_view();
 
 	audio_play_sound(cursor_move_sfx, 1, false);
 }
@@ -48,6 +52,8 @@ if (control_state.pressed_state[MENU_CONTROLS.LEFT]) {
 		pos.x = wrap(pos.x-1, 0, ds_grid_width(items));
 		_item = items[# pos.x, pos.y];
 	} until (is_struct(_item) || _cur_pos == pos.x)
+	
+	self.grid_menu_update_view();
 
 	audio_play_sound(cursor_move_sfx, 1, false);
 }

current-scripts/Demos/useful-scripts/objects/obj_grid_menu/Step_1.gml

@@ -1,5 +1,6 @@
 /// @func  column_menu_init(config)
 /// @param config
+//         - {real} view_height
 //         - {font}   font
 //         - {sprite} cursor_spr
 //         - {sound}  cursor_move_sfx
@@ -8,6 +9,7 @@
 function column_menu_init(_config) {
 	self.menu_base_init(_config.font, _config.cursor_spr);
 
+  view_height = _config.view_height;
 	menu_font = _config.font;
 	cursor_spr = _config.cursor_spr;
 	cursor_padding = sprite_get_width(cursor_spr) + 16;
@@ -16,6 +18,26 @@ function column_menu_init(_config) {
 	cursor_confirm_sfx = _config.cursor_confirm_sfx;
 }
 
+/// @func column_menu_update_view()
+function column_menu_update_view() {
+	if (view_height > 0) {
+		if (pos < view_area.x) {
+			view_area.x = pos;
+			view_area.y = pos + view_height - 1;
+		} else if (pos > view_area.y) {
+			view_area.y = pos;
+			view_area.x = pos - (view_height - 1);
+		}
+	}
+}
+
+/// @func column_menu_update_view_area()
+function column_menu_update_view_area() {
+	view_area.y = view_height < 1
+		? num_items - 1
+		: min(num_items, pos + view_height - 1);
+}
+
 /// @func column_menu_get_item_by_index(menu, index)
 /// @param {obj_column_menu} menu
 /// @param {number} index
@@ -45,6 +67,7 @@ function column_menu_add_selectable(_config) {
 	ds_list_add(items, _new);
 	num_items++;
 	_new.parent_menu = self;
+	column_menu_update_view_area();
 	return _new;
 }
 
@@ -64,6 +87,7 @@ function column_menu_add_spinner(_config) {
 	ds_list_add(items, _new);
 	num_items++;
 	_new.parent_menu = self;
+	column_menu_update_view_height();
 	return _new;
 }
 
@@ -79,5 +103,6 @@ function column_menu_add_key_config(_config) {
 	ds_list_add(items, _new);
 	num_items++;
 	_new.parent_menu = self;
+	column_menu_update_view_height();
 	return _new;
 }

current-scripts/Demos/useful-scripts/objects/obj_grid_menu/obj_grid_menu.yy

@@ -2,6 +2,8 @@
 /// @param config 
 //         - {real}   width
 //         - {real}   height
+//		     - {real}   view_width
+//         - {real}   view_height
 //				 - {number} column_width
 //         - {font}   font
 //         - {sprite} cursor_spr
@@ -12,6 +14,8 @@ function grid_menu_init(_config) {
 	self.menu_base_init(_config.font, _config.cursor_spr);
 
 	column_width = _config.column_width;
+	view_width = _config.view_width;
+	view_height = _config.view_height;
 	menu_font = _config.font;
 	cursor_spr = _config.cursor_spr;
 	cursor_padding = sprite_get_width(cursor_spr) + 16;
@@ -20,6 +24,40 @@ function grid_menu_init(_config) {
 	cursor_confirm_sfx = _config.cursor_confirm_sfx;
 
 	ds_grid_resize(items, _config.width, _config.height);
+	
+	view_area.left = 0;
+	view_area.right = view_width < 1
+		? _config.width - 1
+		: _config.view_width - 1;
+
+
+	view_area.top = 0;
+	view_area.bottom = view_height < 1
+		? _config.height - 1
+		: _config.view_height - 1;
+}
+
+/// @func grid_menu_update_view()
+function grid_menu_update_view() {
+	if (view_height > 0) {
+		if (pos.y < view_area.top) {
+			view_area.top = pos.y;
+			view_area.bottom = pos.y + view_height - 1;
+		} else if (pos.y > view_area.bottom) {
+			view_area.bottom = pos.y;
+			view_area.top = pos.y - (view_height - 1);
+		}
+	}
+
+	if (view_width > 0) {
+		if (pos.x < view_area.left) {
+			view_area.left = pos.x;
+			view_area.right = pos.x + view_height - 1;
+		} else if (pos.x > view_area.right) {
+			view_area.right = pos.x;
+			view_area.left = pos.x - (view_height - 1);
+		}
+	}
 }
 
 /// @func grid_menu_get_item_by_index(menu, x, y)