Added Edit box support.

src/sbbs3/ctrl/CodeInputFormUnit.cpp

@@ -49,7 +49,10 @@ __fastcall TCodeInputForm::TCodeInputForm(TComponent* AOwner)
 //---------------------------------------------------------------------
 void __fastcall TCodeInputForm::FormShow(TObject *Sender)
 {
-	ActiveControl=ComboBox;	
+	if(Edit->Visible)
+    	ActiveControl=Edit;
+    else
+		ActiveControl=ComboBox;
 }
 //---------------------------------------------------------------------------
 

src/sbbs3/ctrl/CodeInputFormUnit.h

@@ -56,6 +56,7 @@ __published:
 	TBevel *Bevel1;
 	TLabel *Label;
     TComboBox *ComboBox;
+	TEdit *Edit;
 	void __fastcall FormShow(TObject *Sender);
 private:
 public: