Make the cursor blink again in textboxes. Also:

- Adjust PropertyValue control's width to show ok/no/wait indicators.

InForm/UiEditor.bas

@@ -658,6 +658,8 @@ SUB __UI_BeforeUpdateDisplay
         IF FirstSelected = 0 THEN FirstSelected = PreviewFormID
 
         IF __UI_Focus <> PropertyValueID THEN
+            Control(PropertyValueID).Width = 250
+
             SELECT CASE SelectedProperty
                 CASE 1 'Name
                     Text(PropertyValueID) = RTRIM$(PreviewControls(FirstSelected).Name)
@@ -738,6 +740,7 @@ SUB __UI_BeforeUpdateDisplay
                 CASE 14 'Padding
                     IF Text(PropertyValueID) = LTRIM$(STR$(PreviewControls(FirstSelected).Padding)) THEN PropertyAccept = True
             END SELECT
+            Control(PropertyValueID).Width = 225
             Control(PropertyUpdateStatusID).Hidden = False
             _DEST Control(PropertyUpdateStatusID).HelperCanvas
             CLS , _RGBA32(0, 0, 0, 0)

InForm/UiEditor.frm

@@ -179,7 +179,7 @@ SUB __UI_LoadForm
     Control(__UI_NewID).Max = 14
     Control(__UI_NewID).CanHaveFocus = True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "PropertyValue", 250, 23, 200, 20, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "PropertyValue", 225, 23, 200, 20, __UI_GetID("PropertiesFrame"))
     Control(__UI_NewID).HasBorder = True
     Control(__UI_NewID).CanHaveFocus = True
 

InForm/xp.uitheme

@@ -703,10 +703,8 @@ SUB __UI_DrawTextBox (This AS __UI_ControlTYPE, ControlState, ss1 AS LONG, ss2 A
                 IF TIMER - SetCursor# > .3 THEN
                     SetCursor# = TIMER
                     cursorBlink%% = NOT cursorBlink%%
-                ELSEIF TIMER - __UI_LastInputReceived < .1 THEN
-                    SetCursor# = TIMER
-                    cursorBlink%% = True
                 END IF
+
                 IF cursorBlink%% THEN
                     IF This.Cursor > UBOUND(__UI_ThisLineChars) THEN This.Cursor = UBOUND(__UI_ThisLineChars)
                     This.VisibleCursor = CaptionIndent + __UI_ThisLineChars(This.Cursor) - This.InputViewStart
@@ -738,9 +736,6 @@ SUB __UI_DrawTextBox (This AS __UI_ControlTYPE, ControlState, ss1 AS LONG, ss2 A
             IF TIMER - SetCursor# > .3 THEN
                 SetCursor# = TIMER
                 cursorBlink%% = NOT cursorBlink%%
-            ELSEIF TIMER - __UI_LastInputReceived < .1 THEN
-                SetCursor# = TIMER
-                cursorBlink%% = True
             END IF
 
             FOR ThisLine = This.FirstVisibleLine TO TotalLines