From 02d903f8851929d157a1fb48e680a9503d8cfa5e Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Sat, 31 Oct 2020 01:53:12 -0300 Subject: [PATCH] Fixes textbox controls crashing after a paste. --- InForm/InForm.ui | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/InForm/InForm.ui b/InForm/InForm.ui index f14d50d..4f8ebd5 100644 --- a/InForm/InForm.ui +++ b/InForm/InForm.ui @@ -5532,7 +5532,9 @@ SUB __UI_CursorAdjustments(This AS LONG) IF Control(This).VisibleCursor >= (Control(This).Width - ((Control(This).BorderSize + __UI_DefaultCaptionIndent) * ABS(Control(This).HasBorder))) THEN Control(This).InputViewStart = __UI_FocusedTextBoxChars(Control(This).Cursor) - Control(This).Width / 2 'Control(This).InputViewStart + Control(This).Width / 4 ELSEIF Control(This).VisibleCursor <= 0 THEN - Control(This).InputViewStart = __UI_FocusedTextBoxChars(Control(This).Cursor) - Control(This).Width / 2 'Control(This).InputViewStart - Control(This).Width / 4 + IF Control(This).Cursor >= LBOUND(__UI_FocusedTextBoxChars) AND Control(This).Cursor <= UBOUND(__UI_FocusedTextBoxChars) THEN + Control(This).InputViewStart = __UI_FocusedTextBoxChars(Control(This).Cursor) - Control(This).Width / 2 'Control(This).InputViewStart - Control(This).Width / 4 + END IF END IF IF Control(This).InputViewStart < 0 THEN Control(This).InputViewStart = 0 ELSEIF Control(This).Multiline AND Control(This).Type = __UI_Type_TextBox THEN