Pixel-Composer/scripts/textArea/textArea.gml
2023-09-08 21:09:09 +02:00

804 lines
No EOL
22 KiB
Text

enum TEXT_AREA_FORMAT {
_default,
codeLUA,
codeHLSL,
delimiter,
path_template,
node_title,
}
function textArea(_input, _onModify, _extras = noone) : textInput(_input, _onModify, _extras) constructor {
font = f_p0;
hide = false;
color = COLORS._main_text;
boxColor = c_white;
auto_update = false;
_input_text_line = [];
_input_text_line_index = [];
_current_text = "";
_input_text = "";
_prev_text = "";
_last_value = "";
_prev_width = 0;
_stretch_width = false;
min_lines = 0;
line_width = 1000;
cursor = 0;
cursor_tx = 0;
cursor_pos_x = 0;
cursor_pos_x_to = 0;
cursor_pos_y = 0;
cursor_pos_y_to = 0;
cursor_line = 0;
char_run = 0
cursor_select = -1;
click_block = 0;
format = TEXT_AREA_FORMAT._default;
code_line_width = 48;
parser_server = noone;
autocomplete_box = instance_create(0, 0, o_dialog_textbox_autocomplete);
autocomplete_box.textbox = self;
autocomplete_server = noone;
autocomplete_object = noone;
function_guide_box = instance_create(0, 0, o_dialog_textbox_function_guide);
function_guide_box.textbox = self;
function_guide_server = noone;
shift_new_line = true;
_cl = -1;
static activate = function() { #region
WIDGET_CURRENT = self;
WIDGET_CURRENT_SCROLL = parent;
parentFocus();
_input_text = _current_text;
_last_value = _current_text;
cursor_pos_x = 0;
cursor_pos_y = 0;
click_block = 1;
KEYBOARD_STRING = "";
keyboard_lastkey = -1;
cut_line();
} #endregion
static deactivate = function() { #region
if(WIDGET_CURRENT != self) return;
apply();
WIDGET_CURRENT = noone;
UNDO_HOLDING = false;
} #endregion
static onModified = function() { #region
if((format == TEXT_AREA_FORMAT.codeLUA || format == TEXT_AREA_FORMAT.codeHLSL) && autocomplete_server != noone) {
var crop = string_copy(_input_text, 1, cursor);
var slp = string_splice(crop, [" ", "(", ",", "\n"]);
var pmt = array_safe_get(slp, -1,, ARRAY_OVERFLOW.loop);
var params = [];
if(parser_server != noone)
params = parser_server(crop, autocomplete_object);
var data = autocomplete_server(pmt, params);
if(array_length(data)) {
autocomplete_box.data = data;
autocomplete_box.active = true;
autocomplete_box.dialog_x = rx + cursor_pos_x + 1;
autocomplete_box.dialog_y = ry + cursor_pos_y + line_get_height() + 1;
autocomplete_box.prompt = pmt;
autocomplete_box.selecting= 0;
} else
autocomplete_box.active = false;
var _c = cursor;
var _v = false;
var _fn = "";
var _el = 0;
var amo = 0;
while(_c > 1) {
var cch0 = string_char_at(_input_text, _c - 1);
var cch1 = string_char_at(_input_text, _c);
if(_el == 0 && cch1 == ",") amo++;
if(_el == 0 && cch1 == "(" && string_variable_valid(cch0))
_v = true;
else if(cch1 == ")") _el++;
else if(cch1 == "(") _el--;
if(_v) {
if(!string_variable_valid(cch0))
break;
_fn = cch0 + _fn;
}
_c--;
}
var guide = function_guide_server(_fn);
if(guide != "") {
function_guide_box.active = true;
function_guide_box.dialog_x = rx + cursor_pos_x + 1;
function_guide_box.dialog_y = ry + cursor_pos_y - 12;
function_guide_box.prompt = guide;
function_guide_box.index = amo;
} else
function_guide_box.active = false;
}
} #endregion
static breakCharacter = function(ch) { #region
switch(format) {
case TEXT_AREA_FORMAT.codeHLSL :
case TEXT_AREA_FORMAT.codeLUA :
return ch == "\n" || array_exists(global.CODE_BREAK_TOKEN, ch);
default :
return ch == " " || ch == "\n";
}
} #endregion
static onKey = function(key) { #region
if(key == vk_left) {
if(key_mod_press(SHIFT)) {
if(cursor_select == -1)
cursor_select = cursor;
} else
cursor_select = -1;
move_cursor(-1);
if(key_mod_press(CTRL)) {
while(cursor > 0) {
var ch = string_char_at(_input_text, cursor);
if(breakCharacter(ch)) break;
cursor--;
}
}
}
if(key == vk_right) {
if(key_mod_press(SHIFT)) {
if(cursor_select == -1)
cursor_select = cursor;
} else
cursor_select = -1;
move_cursor(1);
if(key_mod_press(CTRL)) {
while(cursor < string_length(_input_text)) {
var ch = string_char_at(_input_text, cursor);
if(breakCharacter(ch)) break;
cursor++;
}
}
}
if(!(format == TEXT_AREA_FORMAT.codeLUA || format == TEXT_AREA_FORMAT.codeHLSL) || !autocomplete_box.active) {
if(key == vk_up) {
var _target;
if(cursor_line == 0)
_target = 0;
else {
var _l = cursor_line - 1;
var _str = _input_text_line[_l];
var _run = cursor_tx;
var _char = 0;
for( var i = 0; i < _l; i++ )
_char += string_length(_input_text_line[i]);
for( var i = 1; i < string_length(_str); i++ ) {
var _chr = string_char_at(_str, i);
_run += string_width(_chr);
if(_run > cursor_pos_x_to)
break;
_char++;
}
_target = _char;
}
if(key_mod_press(SHIFT)) {
if(cursor_select == -1)
cursor_select = cursor;
} else
cursor_select = -1;
cursor = _target;
onModified();
}
if(key == vk_down) {
var _target;
if(cursor_line == array_length(_input_text_line) - 1)
_target = string_length(_input_text);
else {
var _l = cursor_line + 1;
var _str = _input_text_line[_l];
var _run = cursor_tx;
var _char = 0;
for( var i = 0; i < _l; i++ )
_char += string_length(_input_text_line[i]);
for( var i = 1; i < string_length(_str); i++ ) {
var _chr = string_char_at(_str, i);
_run += string_width(_chr);
if(_run > cursor_pos_x_to) break;
_char++;
}
_target = _char;
}
if(key_mod_press(SHIFT)) {
if(cursor_select == -1)
cursor_select = cursor;
} else
cursor_select = -1;
cursor = _target;
onModified();
}
}
} #endregion
static apply = function() { #region
if(onModify) onModify(_input_text);
UNDO_HOLDING = true;
} #endregion
static move_cursor = function(delta) { #region
var ll = string_length(_input_text);
cursor = clamp(cursor + delta, 0, ll);
onModified();
} #endregion
static cut_line = function() { #region
_input_text_line = [];
_input_text_line_index = [];
draw_set_font(font);
var _txtLines = string_splice(_input_text, "\n");
var ss = "";
var _code = format == TEXT_AREA_FORMAT.codeLUA || format == TEXT_AREA_FORMAT.codeHLSL;
for( var i = 0, n = array_length(_txtLines); i < n; i++ ) {
var _txt = _txtLines[i] + (i < array_length(_txtLines)? "\n" : "");
var words;
if(_code)
words = token_splice(_txt);
else
words = string_splice(_txt, " ");
var currW = 0;
var currL = "";
var cut = true;
var len = array_length(words);
var _iIndex = i + 1;
for( var j = 0; j < len; j++ ) {
var word = words[j];
if(!_code && j < len - 1) word = word + " ";
if(string_width(word) > line_width) { //the entire word is longer than a line
for( var k = 1; k <= string_length(word); k++ ) {
var ch = string_char_at(word, k);
if(currW + string_width(ch) > line_width) {
array_push(_input_text_line, currL);
array_push(_input_text_line_index, _iIndex); _iIndex = "";
currW = 0;
currL = "";
}
currL += ch;
currW += string_width(ch);
}
continue;
}
if(currW + string_width(word) > line_width) {
array_push(_input_text_line, currL);
array_push(_input_text_line_index, _iIndex); _iIndex = "";
currW = 0;
currL = "";
}
cut = true;
currW += string_width(word);
currL += word;
}
if(cut) {
array_push(_input_text_line, currL);
array_push(_input_text_line_index, _iIndex); _iIndex = "";
}
}
} #endregion
static editText = function() { #region
var _input_text_pre = _input_text;
var modified = false;
#region text editor
if(key_mod_press(CTRL) && keyboard_check_pressed(ord("A"))) {
cursor_select = 0;
cursor = string_length(_input_text);
} else if(key_mod_press(CTRL) && (keyboard_check_pressed(ord("C")) || keyboard_check_pressed(ord("X")))) {
if(cursor_select != -1) {
var minc = min(cursor, cursor_select);
var maxc = max(cursor, cursor_select);
clipboard_set_text(string_copy(_input_text, minc, maxc - minc));
}
} else {
if(key_mod_press(CTRL) && keyboard_check_pressed(ord("V")))
KEYBOARD_STRING = clipboard_get_text();
if(keyboard_check_pressed(vk_escape)) {
} else if(keyboard_check_pressed(vk_tab)) {
} else if(( shift_new_line && keyboard_check_pressed(vk_enter) && key_mod_press(SHIFT)) ||
(!shift_new_line && keyboard_check_pressed(vk_enter))) {
var ch = "\n";
if(cursor_select == -1) {
var str_before = string_copy(_input_text, 1, cursor);
var str_after = string_copy(_input_text, cursor + 1, string_length(_input_text) - cursor);
_input_text = str_before + ch + str_after;
cut_line();
move_cursor(string_length(ch));
} else {
var minc = min(cursor, cursor_select);
var maxc = max(cursor, cursor_select);
var str_before = string_copy(_input_text, 1, minc);
var str_after = string_copy(_input_text, maxc + 1, string_length(_input_text) - maxc);
_input_text = str_before + ch + str_after;
cut_line();
cursor = minc + string_length(ch);
}
modified = true;
} else if(KEYBOARD_PRESSED == vk_backspace) {
if(cursor_select == -1) {
var str_before, str_after;
if(key_mod_press(CTRL)) {
var _c = cursor - 1;
while(_c > 0) {
var ch = string_char_at(_input_text, _c);
if(breakCharacter(ch)) break;
_c--;
}
str_before = string_copy(_input_text, 1, _c);
str_after = string_copy(_input_text, cursor + 1, string_length(_input_text) - cursor);
cursor = _c + 1;
} else {
str_before = string_copy(_input_text, 1, cursor - 1);
str_after = string_copy(_input_text, cursor + 1, string_length(_input_text) - cursor);
}
_input_text = str_before + str_after;
cut_line();
} else {
var minc = min(cursor, cursor_select);
var maxc = max(cursor, cursor_select);
var str_before = string_copy(_input_text, 1, minc);
var str_after = string_copy(_input_text, maxc + 1, string_length(_input_text) - maxc);
cursor = minc + 1;
_input_text = str_before + str_after;
cut_line();
}
cursor_select = -1;
move_cursor(-1);
modified = true;
} else if(KEYBOARD_PRESSED == vk_delete || (keyboard_check_pressed(ord("X")) && key_mod_press(CTRL) && cursor_select != -1)) {
if(cursor_select == -1) {
var str_before = string_copy(_input_text, 1, cursor);
var str_after = string_copy(_input_text, cursor + 2, string_length(_input_text) - cursor - 1);
_input_text = str_before + str_after;
cut_line();
} else {
var minc = min(cursor, cursor_select);
var maxc = max(cursor, cursor_select);
var str_before = string_copy(_input_text, 1, minc);
var str_after = string_copy(_input_text, maxc + 1, string_length(_input_text) - maxc);
cursor = minc;
_input_text = str_before + str_after;
cut_line();
}
cursor_select = -1;
modified = true;
} else if(KEYBOARD_STRING != "" && KEYBOARD_STRING != "\b" && KEYBOARD_STRING != "\r") {
var ch = KEYBOARD_STRING;
if(cursor_select == -1) {
var str_before = string_copy(_input_text, 1, cursor);
var str_after = string_copy(_input_text, cursor + 1, string_length(_input_text) - cursor);
_input_text = str_before + ch + str_after;
//print($"{str_before} + {ch} + {str_after}");
cut_line();
move_cursor(string_length(ch));
} else {
var minc = min(cursor, cursor_select);
var maxc = max(cursor, cursor_select);
var str_before = string_copy(_input_text, 1, minc);
var str_after = string_copy(_input_text, maxc + 1, string_length(_input_text) - maxc);
_input_text = str_before + ch + str_after;
cut_line();
cursor = minc + string_length(ch);
}
cursor_select = -1;
modified = true;
}
}
//if(modified) {
// print("==========");
// print(_input_text_pre);
// print($"cursor: {cursor}");
// print($"press: {KEYBOARD_STRING}");
// print(_input_text);
//}
KEYBOARD_STRING = "";
keyboard_lastkey = -1;
#endregion
if(modified) onModified();
if(auto_update && keyboard_check_pressed(vk_anykey))
apply();
if(keyboard_check_pressed(vk_left)) onKey(vk_left);
if(keyboard_check_pressed(vk_right)) onKey(vk_right);
if(keyboard_check_pressed(vk_up)) onKey(vk_up);
if(keyboard_check_pressed(vk_down)) onKey(vk_down);
if(keyboard_check_pressed(vk_home)) {
if(key_mod_press(SHIFT)) {
if(cursor_select == -1)
cursor_select = cursor;
} else
cursor_select = -1;
if(cursor_line == 0)
move_cursor(-cursor);
else {
var _str = _input_text_line[cursor_line];
while(string_char_at(_input_text, cursor) != "\n") {
if(cursor <= 0) break;
cursor--;
}
}
} else if(keyboard_check_pressed(vk_end)) {
if(key_mod_press(SHIFT)) {
if(cursor_select == -1)
cursor_select = cursor;
} else
cursor_select = -1;
var _str = _input_text_line[cursor_line];
while(string_char_at(_input_text, cursor + 1) != "\n" && cursor < string_length(_input_text)) {
cursor++;
}
} else if(keyboard_check_pressed(vk_escape) && !autocomplete_box.active) {
_input_text = _last_value;
cut_line();
deactivate();
} else if(( shift_new_line && keyboard_check_pressed(vk_enter) && !key_mod_press(SHIFT)) ||
(!shift_new_line && keyboard_check_pressed(vk_enter) && key_mod_press(SHIFT))) {
deactivate();
}
} #endregion
static display_text = function(_x, _y, _text, _mx = -1, _my = -1) { #region
_text = string_real(_text);
if(line_width != _prev_width) {
_prev_width = line_width;
cut_line();
}
var _xx = _x, _ch, _chw;
var target = -999;
draw_set_text(font, fa_left, fa_top, color);
draw_set_alpha(0.5 + 0.5 * interactable)
var ch_x = _x;
var ch_y = _y;
var _str;
//print("==========");
//print(_text);
//print(">>>>");
//print(_input_text);
//print("----");
//print(_input_text_line);
//print($"cursor: {cursor}");
if(_input_text != _text) {
_input_text = _text;
cut_line();
}
for( var i = 0, n = array_length(_input_text_line); i < n; i++ ) {
_str = _input_text_line[i];
if(format == TEXT_AREA_FORMAT._default)
draw_text_add(ch_x, ch_y, _str);
else if(format == TEXT_AREA_FORMAT.codeLUA)
draw_code_lua(ch_x, ch_y, _str);
else if(format == TEXT_AREA_FORMAT.codeHLSL)
draw_code_glsl(ch_x, ch_y, _str);
else if(format == TEXT_AREA_FORMAT.delimiter)
draw_text_delimiter(ch_x, ch_y, _str);
else if(format == TEXT_AREA_FORMAT.path_template)
draw_text_path(ch_x, ch_y, _str);
ch_y += line_get_height();
}
draw_set_alpha(1);
if(_mx != -1 && _my != -1) {
var char_run = 0, _l, _ch_w, _ch_h, _str, _chr;
var sx = _x;
var ch_x = sx;
var ch_cxo = sx;
var ch_cxn = sx;
var ch_y = _y;
for( var i = 0, n = array_length(_input_text_line); i < n; i++ ) {
_str = string_trim_end(_input_text_line[i]);
_l = string_length(_str);
_ch_h = line_get_height();
ch_cxo = sx;
ch_x = sx;
if(ch_y <= _my && ch_y + _ch_h >= _my) {
target = char_run + _l;
for( var j = 0; j < string_length(_str); j++ ) {
_chr = string_char_at(_str, j + 1);
_ch_w = string_width(_chr);
ch_cxn = ch_x + _ch_w / 2;
if(ch_cxo <= _mx && _mx <= ch_cxn) {
target = char_run + j;
break;
}
ch_x += _ch_w;
ch_cxo = ch_cxn;
}
break;
}
char_run += string_length(_input_text_line[i]);
ch_y += _ch_h;
}
}
if(target != -999) {
if(mouse_press(mb_left, active) || click_block == 1) {
cursor = target;
click_block = 0;
} else if(mouse_click(mb_left, active) && cursor != target) {
if(cursor_select == -1)
cursor_select = cursor;
cursor = target;
}
}
} #endregion
static drawParam = function(params) { #region
rx = params.rx;
ry = params.ry;
return draw(params.x, params.y, params.w, params.h, params.data, params.m);
} #endregion
static draw = function(_x, _y, _w, _h, _text, _m) { #region
x = _x;
y = _y;
w = _w;
h = _h;
_stretch_width = _w < 0;
_text = string_real(_text);
_current_text = _text;
draw_set_font(font);
if(_stretch_width) {
_w = string_width(self == WIDGET_CURRENT? _input_text : _text) + ui(16);
w = _w;
}
if(extras && instanceof(extras) == "buttonClass") {
extras.setFocusHover(active, hover);
extras.draw(_x + _w - ui(32), _y + _h / 2 - ui(32 / 2), ui(32), ui(32), _m, THEME.button_hide);
_w -= ui(40);
}
var tx = _x + ui(8);
var hh = _h;
if(format == TEXT_AREA_FORMAT._default) {
line_width = _w - ui(16);
} else if(format == TEXT_AREA_FORMAT.codeLUA || format == TEXT_AREA_FORMAT.codeHLSL) {
line_width = _w - ui(16 + code_line_width);
tx += ui(code_line_width);
}
if(_stretch_width) line_width = 9999999;
cursor_tx = tx;
var c_h = line_get_height();
var line_count = max(min_lines, array_length(_input_text_line));
hh = max(_h, ui(14) + c_h * line_count);
draw_sprite_stretched_ext(THEME.textbox, 3, _x, _y, _w, hh, boxColor, 1);
if(format == TEXT_AREA_FORMAT.codeLUA || format == TEXT_AREA_FORMAT.codeHLSL) {
draw_sprite_stretched_ext(THEME.textbox_code, 0, _x, _y, ui(code_line_width), hh, boxColor, 1);
draw_set_text(f_code, fa_right, fa_top, COLORS._main_text_sub);
var lx = _x + ui(code_line_width - 8);
for( var i = 0; i < array_length(_input_text_line_index); i++ ) {
var ly = _y + ui(7) + i * c_h;
draw_text(lx, ly, _input_text_line_index[i]);
}
}
var hoverRect = point_in_rectangle(_m[0], _m[1], _x, _y, _x + _w, _y + hh);
if(self == WIDGET_CURRENT) {
WIDGET_TAB_BLOCK = true;
draw_set_text(font, fa_left, fa_top, COLORS._main_text);
draw_sprite_stretched_ext(THEME.textbox, 2, _x, _y, _w, hh, COLORS._main_accent, 1);
editText();
#region draw
draw_set_text(font, fa_left, fa_top, COLORS._main_text);
#region draw cursor highlight
var _l, _str;
var ch_x = tx;
var ch_y = _y + ui(7);
var ch_sel_min = -1;
var ch_sel_max = -1;
char_run = 0;
if(cursor_select != -1) {
ch_sel_min = min(cursor_select, cursor);
ch_sel_max = max(cursor_select, cursor);
}
for( var i = 0, n = array_length(_input_text_line); i < n; i++ ) {
_str = _input_text_line[i];
_l = string_length(_str);
if(cursor_select != -1) {
draw_set_color(COLORS.widget_text_highlight);
if(char_run <= ch_sel_min && char_run + _l > ch_sel_min) {
var x1 = tx + string_width(string_copy(_str, 1, ch_sel_min - char_run));
var x2 = tx + string_width(string_copy(_str, 1, ch_sel_max - char_run));
draw_roundrect_ext(x1, ch_y, x2, ch_y + c_h, THEME_VALUE.highlight_corner_radius, THEME_VALUE.highlight_corner_radius, 0);
} else if(char_run >= ch_sel_min && char_run + _l < ch_sel_max) {
var x2 = tx + string_width(_str);
draw_roundrect_ext(tx, ch_y, x2, ch_y + c_h, THEME_VALUE.highlight_corner_radius, THEME_VALUE.highlight_corner_radius, 0);
} else if(char_run > ch_sel_min && char_run <= ch_sel_max && char_run + _l >= ch_sel_max) {
var x2 = tx + string_width(string_copy(_str, 1, ch_sel_max - char_run));
draw_roundrect_ext(tx, ch_y, x2, ch_y + c_h, THEME_VALUE.highlight_corner_radius, THEME_VALUE.highlight_corner_radius, 0);
}
}
if(char_run <= cursor && cursor < char_run + _l) {
if(format == TEXT_AREA_FORMAT.delimiter) {
var str_cur = string_copy(_str, 1, cursor - char_run);
str_cur = string_replace_all(str_cur, " ", "<space>");
cursor_pos_x_to = ch_x + string_width(str_cur);
} else
cursor_pos_x_to = ch_x + string_width(string_copy(_str, 1, cursor - char_run));
cursor_pos_y_to = ch_y;
cursor_line = i;
break;
}
char_run += _l;
ch_y += line_get_height();
}
cursor_pos_x = cursor_pos_x == 0? cursor_pos_x_to : lerp_float(cursor_pos_x, cursor_pos_x_to, 2);
cursor_pos_y = cursor_pos_y == 0? cursor_pos_y_to : lerp_float(cursor_pos_y, cursor_pos_y_to, 2);
#endregion
var _mx = -1;
var _my = -1;
if(hover && hoverRect) {
_mx = _m[0];
_my = _m[1];
}
display_text(tx, _y + ui(7), _input_text, _mx, _my);
if(cursor_pos_y != 0 && cursor_pos_x != 0) {
draw_set_color(COLORS._main_text_accent);
draw_line_width(cursor_pos_x, cursor_pos_y, cursor_pos_x, cursor_pos_y + c_h, 2);
}
#endregion
if(!point_in_rectangle(_m[0], _m[1], _x, _y, _x + _w, _y + hh) && mouse_press(mb_left)) {
deactivate();
}
} else {
if(hover && hoverRect) {
if(hide)
draw_sprite_stretched_ext(THEME.textbox, 1, _x, _y, _w, hh, boxColor, 0.5);
else
draw_sprite_stretched_ext(THEME.textbox, 1, _x, _y, _w, hh, boxColor, 0.5 + 0.5 * interactable);
if(mouse_press(mb_left, active))
activate();
} else if(!hide)
draw_sprite_stretched_ext(THEME.textbox, 0, _x, _y, _w, hh, boxColor, 0.5 + 0.5 * interactable);
display_text(tx, _y + ui(7), _text);
autocomplete_box.active = 0;
}
if(DRAGGING && (DRAGGING.type == "Text" || DRAGGING.type == "Number") && hover && hoverRect) {
draw_sprite_stretched_ext(THEME.ui_panel_active, 0, _x, _y, _w, hh, COLORS._main_value_positive, 1);
if(mouse_release(mb_left))
onModify(DRAGGING.data);
}
resetFocus();
shift_new_line = true;
return hh;
} #endregion
}