From 9215b0b64d22663f3b2a04f46c4ffbdd4a7a03a5 Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Wed, 20 Feb 2002 01:07:35 +0000
Subject: [PATCH] Added Edit box support.
---
src/sbbs3/ctrl/CodeInputFormUnit.cpp | 5 ++++-
src/sbbs3/ctrl/CodeInputFormUnit.h | 1 +
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/sbbs3/ctrl/CodeInputFormUnit.cpp b/src/sbbs3/ctrl/CodeInputFormUnit.cpp
index 3034be502a..1f462ef4f4 100644
--- a/src/sbbs3/ctrl/CodeInputFormUnit.cpp
+++ b/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;
}
//---------------------------------------------------------------------------
diff --git a/src/sbbs3/ctrl/CodeInputFormUnit.h b/src/sbbs3/ctrl/CodeInputFormUnit.h
index 44fc7b61e7..bc3473ff13 100644
--- a/src/sbbs3/ctrl/CodeInputFormUnit.h
+++ b/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:
--
GitLab