Pixel-Composer/scripts/scrollPane/scrollPane.gml

function scrollPane(_w, _h, ondraw) constructor {
	scroll_y		= 0;
	scroll_y_raw	= 0;
	scroll_y_to		= 0;
	
	w			= _w;
	h			= _h;
	surface_w   = _w - 8;
	surface_h   = _h;
	surface     = surface_create(surface_w, surface_h);
	
	drawFunc    = ondraw;
	
	content_h   = 0;
	
	scroll_step = 64;
	active      = false;
	
	is_scrolling		= false;
	
	function resize(_w, _h) {
		w = _w;
		h = _h;
		surface_w   = _w - 8;
		surface_h   = _h;
		
		if(surface_w > 1 && surface_h > 1) {
			if(is_surface(surface)) 
				surface_size_to(surface, surface_w, surface_h);
			else
				surface = surface_create(surface_w, surface_h);
		}
	}
	
	function draw(x, y, _mx = mouse_mx - x, _my = mouse_my - y) {
		var mx = _mx, my = _my;

		if(!point_in_rectangle(mx, my, 0, 0, w, h)) {
			mx = -100;	
			my = -100;	
		}
		
		if(!is_surface(surface)) surface = surface_create(surface_w, surface_h);
		surface_set_target(surface);
			draw_clear(c_ui_blue_black);
			content_h = max(0, drawFunc(scroll_y, [mx, my]) - surface_h);
		surface_reset_target();
		
		scroll_y_to		= clamp(scroll_y_to, -content_h, 0);
		scroll_y_raw	= lerp_float(scroll_y_raw, scroll_y_to, 3);
		scroll_y		= round(scroll_y_raw);
		draw_surface_safe(surface, x, y);
		
		if(active && point_in_rectangle(mx, my, 0, 0, surface_w, surface_h)) {
			if(mouse_wheel_down())	scroll_y_to = clamp(scroll_y_to - scroll_step, -content_h, 0);
			if(mouse_wheel_up())	scroll_y_to = clamp(scroll_y_to + scroll_step, -content_h, 0);
		}
		
		if(abs(content_h) > 0) {
			draw_scroll(x + surface_w + 6, y + 6, true, surface_h - 12, -scroll_y / content_h, surface_h / (surface_h + content_h), c_ui_blue_grey, c_ui_blue_white, x + _mx, y + _my);
		}
	}
	
	function draw_scroll(scr_x, scr_y, is_vert, scr_s, scr_prog, scr_size, bar_col, bar_hcol, mx, my) {
		var scr_scale_s = scr_s * scr_size;
		var scr_prog_s  = scr_prog * (scr_s - scr_scale_s);
		var scr_w, scr_h, bar_w, bar_h, bar_x, bar_y;
		
		if(is_vert) {
			scr_w	= 4;
			scr_h	= scr_s;
			bar_w	= 4;
			bar_h   = scr_scale_s;
			bar_x	= scr_x;
			bar_y	= scr_y + scr_prog_s;
		} else {
			scr_w	= scr_s;
			scr_h	= 4;
			bar_w	= scr_scale_s;
			bar_h   = 4;
			bar_x	= scr_x + scr_prog_s;
			bar_y	= scr_y;
		}
	
		draw_sprite_stretched_ext(s_ui_scrollbar, 0, bar_x, bar_y, bar_w, bar_h, bar_col, 1);
		if(point_in_rectangle(mx, my, scr_x - 2, scr_y - 2, scr_x + scr_w + 2, scr_y + scr_h + 2) || is_scrolling) {
			draw_sprite_stretched_ext(s_ui_scrollbar, 0, bar_x, bar_y, bar_w, bar_h, bar_hcol, 1);
			if(mouse_check_button(mb_left)) {
				if(is_vert)	
					scroll_y_to = clamp((my - scr_y - scr_scale_s / 2) / (scr_s - scr_scale_s), 0, 1) * -content_h;
				else
					scroll_y_to = clamp((mx - scr_x - scr_scale_s / 2) / (scr_s - scr_scale_s), 0, 1) * -content_h;
				is_scrolling = true;
			} else 
				is_scrolling = false;
		} else 
			is_scrolling = false;
	}
}