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

Fixes #93: Hides cursor when window is not in focus.

Browse source
This commit is contained in:
FellippeHeitor 2019-03-17 19:24:36 -03:00
parent 40daacf007
commit 929d5c359c
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
InForm/xp.uitheme
View file

@ -833,6 +833,7 @@ SUB __UI_DrawTextBox (This AS __UI_ControlTYPE, ControlState, ss1 AS LONG, ss2 A
SetCursor# = TIMER SetCursor# = TIMER
cursorBlink%% = NOT cursorBlink%% cursorBlink%% = NOT cursorBlink%%
END IF END IF
IF _WINDOWHASFOCUS = False THEN cursorBlink%% = False
IF This.Cursor > UBOUND(__UI_ThisLineChars) THEN This.Cursor = UBOUND(__UI_ThisLineChars) IF This.Cursor > UBOUND(__UI_ThisLineChars) THEN This.Cursor = UBOUND(__UI_ThisLineChars)
This.VisibleCursor = CaptionIndent + __UI_ThisLineChars(This.Cursor) - This.InputViewStart This.VisibleCursor = CaptionIndent + __UI_ThisLineChars(This.Cursor) - This.InputViewStart