Fix a bug in the launch of the preview component for Windows systems.

InForm/InForm.ui

@@ -77,13 +77,6 @@ TYPE __UI_ControlTYPE
     ThumbHeight AS INTEGER
     ThumbTop AS INTEGER
     VScrollbarRatio AS SINGLE
-    'HasHScrollbar AS _BYTE
-    'HScrollbarButton2Left AS INTEGER
-    'LongestLine AS LONG
-    'HoveringHScrollbarButton AS _BYTE
-    'ThumbWidth AS INTEGER
-    'ThumbLeft AS INTEGER
-    'HScrollbarRatio AS SINGLE
     Cursor AS LONG
     PasswordField AS _BYTE
     PrevCursor AS LONG

InForm/UiEditor.bas

@@ -248,7 +248,7 @@ SUB __UI_Click (id AS LONG)
             SendData b$, 33
         CASE "VIEWMENUPREVIEW"
             $IF WIN THEN
-                SHELL _DONTWAIT "InForm/UiEditorPreview.exe"
+                SHELL _DONTWAIT ".\InForm\UiEditorPreview.exe"
             $ELSE
                 SHELL _DONTWAIT "./InForm/UiEditorPreview"
             $END IF
@@ -1194,7 +1194,7 @@ SUB __UI_OnLoad
         END IF
         b$ = "Launching..."
         GOSUB ShowMessage
-        SHELL _DONTWAIT "InForm/UiEditorPreview.exe"
+        SHELL _DONTWAIT ".\InForm\UiEditorPreview.exe"
     $ELSE
         IF _FILEEXISTS("InForm/UiEditorPreview") = 0 THEN
         IF _FILEEXISTS("./InForm/UiEditorPreview.bas") = 0 THEN
@@ -5337,7 +5337,7 @@ SUB CheckPreview
                 b$ = MKL$(0): PUT #UiEditorFile, OffsetPreviewPID, b$
                 CLOSE #UiEditorFile
                 UiPreviewPID = 0
-                SHELL _DONTWAIT "InForm/UiEditorPreview.exe"
+                SHELL _DONTWAIT ".\InForm\UiEditorPreview.exe"
                 __UI_LastInputReceived = 0 'Make the "Please wait" message show up immediataly
                 DO
                     _LIMIT 10

InForm/xp.uitheme

@@ -620,21 +620,6 @@ SUB __UI_DrawTextBox (This AS __UI_ControlTYPE, ControlState, ss1 AS LONG, ss2 A
         This.ControlState = ControlState
         This.FocusState = __UI_Focus = This.ID
         __UI_TempCaptions(This.ID) = Caption(This.ID)
-        'IF Text(This.ID) <> __UI_TempTexts(This.ID) THEN
-        '    __UI_TempTexts(This.ID) = Text(This.ID)
-        '    IF This.Multiline THEN
-        '        This.HasHScrollbar = False
-        '        DIM TempWidth AS LONG
-        '        This.LongestLine = 0
-        '        FOR i = 1 TO __UI_CountLines(This.ID)
-        '            TempWidth = __UI_PrintWidth(__UI_GetTextBoxLine$(This.ID, i, 0))
-        '            IF TempWidth > This.LongestLine THEN This.LongestLine = TempWidth
-        '            IF (This.LongestLine > This.Width AND This.HasVScrollBar = False) OR (This.LongestLine > This.Width - __UI_ScrollbarWidth AND This.HasVScrollBar = True) THEN
-        '                This.HasHScrollbar = True
-        '            END IF
-        '        NEXT
-        '    END IF
-        'END IF
         This.SelectionLength = __UI_SelectionLength
         This.PrevCursor = This.Cursor
         This.PrevVisibleCursor = This.VisibleCursor
@@ -784,10 +769,6 @@ SUB __UI_DrawTextBox (This AS __UI_ControlTYPE, ControlState, ss1 AS LONG, ss2 A
             ELSE
                 This.HasVScrollbar = False
             END IF
-
-            'IF This.HasHScrollbar THEN
-            '    __UI_DrawHScrollbar This, ControlState
-            'END IF
         END IF
 
         IF This.HasBorder THEN