Force the input cursor to always at the end of the text (Memo) box.

src/sbbs3/chat/MainFormUnit.cpp

@@ -307,3 +307,12 @@ void __fastcall TMainForm::FormCreate(TObject *Sender)
 
 
 
+
+void __fastcall TMainForm::LocalEnter(TObject *Sender)
+{
+    Local->SelLength=0;
+    Local->SelStart=Local->Text.Length();
+   
+}
+//---------------------------------------------------------------------------
+

src/sbbs3/chat/MainFormUnit.dfm

 object MainForm: TMainForm
-  Left = 564
-  Top = 184
+  Left = 787
+  Top = 244
   Width = 417
   Height = 251
   Caption = 'Synchronet Chat'
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
-  Font.Height = -14
+  Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   OldCreateOrder = False
@@ -15,26 +15,26 @@ object MainForm: TMainForm
   OnClose = FormClose
   OnCreate = FormCreate
   OnShow = FormShow
-  PixelsPerInch = 120
-  TextHeight = 16
+  PixelsPerInch = 96
+  TextHeight = 13
   object Splitter1: TSplitter
     Left = 0
-    Top = 105
-    Width = 409
+    Top = 85
+    Width = 401
     Height = 2
     Cursor = crVSplit
     Align = alTop
   end
   object Local: TMemo
     Left = 0
-    Top = 107
-    Width = 409
-    Height = 116
+    Top = 87
+    Width = 401
+    Height = 126
     Align = alClient
     Color = clBlack
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clLime
-    Font.Height = -15
+    Font.Height = -12
     Font.Name = 'System'
     Font.Pitch = fpFixed
     Font.Style = []
@@ -43,19 +43,21 @@ object MainForm: TMainForm
     ScrollBars = ssVertical
     TabOrder = 0
     WantTabs = True
+    OnClick = LocalEnter
+    OnEnter = LocalEnter
     OnKeyPress = LocalKeyPress
   end
   object Remote: TMemo
     Left = 0
     Top = 0
-    Width = 409
-    Height = 105
+    Width = 401
+    Height = 85
     TabStop = False
     Align = alTop
     Color = clBlack
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clGreen
-    Font.Height = -15
+    Font.Height = -12
     Font.Name = 'System'
     Font.Pitch = fpFixed
     Font.Style = []

src/sbbs3/chat/MainFormUnit.h

@@ -61,6 +61,7 @@ __published:	// IDE-managed Components
     void __fastcall InputTimerTick(TObject *Sender);
     void __fastcall TimerTick(TObject *Sender);
     void __fastcall FormCreate(TObject *Sender);
+    void __fastcall LocalEnter(TObject *Sender);
 private:	// User declarations
 public:		// User declarations
     __fastcall TMainForm(TComponent* Owner);