--- sbbs/sbbs3/ctrl/codeinputformunit.dfm	2018/04/24 16:39:34	1.1
+++ sbbs/sbbs3/ctrl/codeinputformunit.dfm	2018/04/24 16:41:00	1.1.1.2
@@ -10,6 +10,9 @@ object CodeInputForm: TCodeInputForm
   OldCreateOrder = True
   Position = poScreenCenter
   OnShow = FormShow
+  DesignSize = (
+    407
+    90)
   PixelsPerInch = 120
   TextHeight = 16
   object Bevel1: TBevel
@@ -51,12 +54,20 @@ object CodeInputForm: TCodeInputForm
     ModalResult = 2
     TabOrder = 1
   end
-  object Edit: TEdit
-    Left = 153
+  object ComboBox: TComboBox
+    Left = 152
     Top = 32
-    Width = 120
+    Width = 121
     Height = 24
-    CharCase = ecUpperCase
+    ItemHeight = 16
     TabOrder = 2
   end
+  object Edit: TEdit
+    Left = 152
+    Top = 32
+    Width = 121
+    Height = 24
+    TabOrder = 3
+    Visible = False
+  end
 end