QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 11:59:34 +00:00
Code Issues Releases Wiki Activity

Fix the code for selecting text in a single-line textbox with the mouse.

Browse source
This commit is contained in:
FellippeHeitor 2016-12-20 00:32:20 -02:00
parent 6db4a4be0e
commit 820723e979
1 changed files with 25 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
InForm/InForm.ui
View file

@ -1594,7 +1594,7 @@ SUB __UI_EventDispatcher
__UI_SelectionLength = 0
IF Control(__UI_Focus).Multiline AND Control(__UI_Focus).HoveringVScrollbarButton = 0 THEN
PositionCursorMultilineTB:
'Multi-line textbox click
'Multi-line textbox click (position cursor)
'Calculate which line was clicked
DIM ThisLine$, ThisLineLen AS LONG, ThisLineStart AS LONG
@ -1604,6 +1604,8 @@ SUB __UI_EventDispatcher
IF Control(__UI_Focus).CurrentLine = 0 THEN Control(__UI_Focus).CurrentLine = 1
ThisLine$ = __UI_GetTextBoxLine(__UI_Focus, Control(__UI_Focus).CurrentLine, ThisLineStart)
ThisLineLen = LEN(ThisLine$)
'Print the text offscreen just to fill the right variables
__UI_PrintString _WIDTH + 10, _HEIGHT + 10, ThisLine$
'New cursor position:
@ -1617,9 +1619,14 @@ SUB __UI_EventDispatcher
IF i > __UI_LastRenderedCharCount THEN Control(__UI_Focus).Cursor = ThisLineStart + ThisLineLen - 1
Control(__UI_Focus).SelectionStart = Control(__UI_Focus).Cursor
ELSE
'Position cursor in single-line textbox:
Control(__UI_Focus).TextIsSelected = False
__UI_SelectedText = ""
__UI_SelectionLength = 0
'Print the text offscreen just to fill the right variables
__UI_PrintString _WIDTH + 10, _HEIGHT + 10, Text(__UI_Focus)
'Single-line textbox click
FOR i = 1 TO __UI_LastRenderedCharCount
IF (__UI_MouseLeft - Control(__UI_Focus).Left - Control(Control(__UI_Focus).ParentID).Left + Control(__UI_Focus).InputViewStart) >= __UI_ThisLineChars(i - 1) AND (__UI_MouseLeft - Control(__UI_Focus).Left - Control(Control(__UI_Focus).ParentID).Left) + Control(__UI_Focus).InputViewStart <= __UI_ThisLineChars(i) THEN
@ -1629,7 +1636,6 @@ SUB __UI_EventDispatcher
NEXT
IF i > __UI_LastRenderedCharCount THEN Control(__UI_Focus).Cursor = LEN(Text(__UI_Focus))
IF __UI_MouseLeft < (Control(__UI_Focus).Left + Control(Control(__UI_Focus).ParentID).Left) THEN i = Control(__UI_Focus).Cursor = 0
Control(__UI_Focus).SelectionStart = Control(__UI_Focus).Cursor
END IF
__UI_IsSelectingText = True
@ -1693,18 +1699,27 @@ SUB __UI_EventDispatcher
_FONT (Control(__UI_IsSelectingTextOnID).Font)
IF NOT Control(__UI_IsSelectingTextOnID).Multiline THEN
'Single line selection
'Print the text offscreen just to fill the right variables
__UI_PrintString _WIDTH + 10, _HEIGHT + 10, Text(__UI_Focus)
IF __UI_MouseLeft > Control(__UI_Focus).Left + Control(Control(__UI_Focus).ParentID).Left AND __UI_MouseLeft < Control(__UI_Focus).Left + Control(Control(__UI_Focus).ParentID).Left + Control(__UI_Focus).Width THEN
FOR i = 1 TO __UI_LastRenderedCharCount
IF (__UI_MouseLeft - Control(__UI_Focus).Left - Control(Control(__UI_Focus).ParentID).Left + Control(__UI_Focus).InputViewStart) >= __UI_ThisLineChars(i - 1) AND (__UI_MouseLeft - Control(__UI_Focus).Left - Control(Control(__UI_Focus).ParentID).Left) + Control(__UI_Focus).InputViewStart <= __UI_ThisLineChars(i) THEN
Control(__UI_Focus).Cursor = i - 1
EXIT FOR
END IF
NEXT
IF i > __UI_LastRenderedCharCount THEN Control(__UI_Focus).Cursor = LEN(Text(__UI_Focus))
IF __UI_MouseLeft < Control(__UI_Focus).Left - Control(Control(__UI_Focus).ParentID).Left THEN Control(__UI_Focus).Cursor = 0
ELSEIF __UI_MouseLeft < Control(__UI_Focus).Left + Control(Control(__UI_Focus).ParentID).Left THEN
Control(__UI_Focus).Cursor = 0
ELSEIF __UI_MouseLeft > Control(__UI_Focus).Left + Control(Control(__UI_Focus).ParentID).Left + Control(__UI_Focus).Width THEN
Control(__UI_Focus).Cursor = LEN(Text(__UI_Focus))
END IF
IF Control(__UI_IsSelectingTextOnID).Cursor <> Control(__UI_IsSelectingTextOnID).SelectionStart THEN
Control(__UI_IsSelectingTextOnID).TextIsSelected = True
ELSE
Control(__UI_IsSelectingTextOnID).TextIsSelected = False
END IF
ELSE
'Multi-line textbox click