From b2f14c07ae39a3ddb762647cbe7820454b8d6cc1 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Thu, 14 Nov 2019 02:57:05 -0300
Subject: [PATCH] Declares __UI_RegisterResult for all new forms.

Prevents issues if the user wants to have OPTION _EXPLICIT in their code.
---
 InForm/UiEditor.bas | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

diff --git a/InForm/UiEditor.bas b/InForm/UiEditor.bas
index bfacdda..a89904c 100644
--- a/InForm/UiEditor.bas
+++ b/InForm/UiEditor.bas
@@ -4132,20 +4132,7 @@ SUB SaveForm (ExitToQB64 AS _BYTE, SaveOnlyFrm AS _BYTE)
     IF PreviewControls(PreviewFormID).CanResize THEN
         PRINT #TextFileNum, "    $RESIZE:ON"
     END IF
-    PRINT #TextFileNum, "    DIM __UI_NewID AS LONG";
-    FOR i = 1 TO UBOUND(PreviewControls)
-        IF LEN(PreviewKeyCombos(i)) > 0 THEN
-            PRINT #TextFileNum, ", __UI_RegisterResult AS LONG"
-            EXIT FOR
-        END IF
-    NEXT
-    IF i = UBOUND(PreviewControls) + 1 THEN
-        IF AddGifExtension THEN
-            PRINT #TextFileNum, ", __UI_RegisterResult AS LONG"
-        ELSE
-            PRINT #TextFileNum,
-        END IF
-    END IF
+    PRINT #TextFileNum, "    DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG"
     PRINT #TextFileNum,
 
     'First pass is for the main form and containers (frames and menubars).