From 929d5c359c2a9c1c07d9196693b06f143473dfcd Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Sun, 17 Mar 2019 19:24:36 -0300
Subject: [PATCH] Fixes #93: Hides cursor when window is not in focus.

---
 InForm/xp.uitheme | 1 +
 1 file changed, 1 insertion(+)

diff --git a/InForm/xp.uitheme b/InForm/xp.uitheme
index cab14f2..46c6768 100644
--- a/InForm/xp.uitheme
+++ b/InForm/xp.uitheme
@@ -833,6 +833,7 @@ SUB __UI_DrawTextBox (This AS __UI_ControlTYPE, ControlState, ss1 AS LONG, ss2 A
                     SetCursor# = TIMER
                     cursorBlink%% = NOT cursorBlink%%
                 END IF
+                IF _WINDOWHASFOCUS = False THEN cursorBlink%% = False
 
                 IF This.Cursor > UBOUND(__UI_ThisLineChars) THEN This.Cursor = UBOUND(__UI_ThisLineChars)
                 This.VisibleCursor = CaptionIndent + __UI_ThisLineChars(This.Cursor) - This.InputViewStart