--- sbbs/sbbs3/ctrl/telnetformunit.dfm 2018/04/24 16:39:34 1.1 +++ sbbs/sbbs3/ctrl/telnetformunit.dfm 2018/04/24 16:41:05 1.1.1.2 @@ -1,6 +1,6 @@ object TelnetForm: TTelnetForm - Left = 721 - Top = 437 + Left = 596 + Top = 341 Width = 350 Height = 214 Caption = 'Telnet Server' @@ -10,15 +10,14 @@ object TelnetForm: TTelnetForm DragMode = dmAutomatic Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText - Font.Height = -11 + Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDefault OnHide = FormHide - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 + PixelsPerInch = 120 + TextHeight = 16 object ToolBar: TToolBar Left = 0 Top = 0 @@ -47,23 +46,28 @@ object TelnetForm: TTelnetForm ParentShowHint = False ShowHint = True end - object ToolButton1: TToolButton + object RecycleButton: TToolButton Left = 46 Top = 0 + Action = MainForm.TelnetRecycle + end + object ToolButton1: TToolButton + Left = 69 + Top = 0 Width = 8 Caption = 'ToolButton1' ImageIndex = 1 Style = tbsSeparator end object ConfigureButton: TToolButton - Left = 54 + Left = 77 Top = 0 Action = MainForm.TelnetConfigure ParentShowHint = False ShowHint = True end object ToolButton2: TToolButton - Left = 77 + Left = 100 Top = 0 Width = 8 Caption = 'ToolButton2' @@ -71,7 +75,7 @@ object TelnetForm: TTelnetForm Style = tbsSeparator end object Status: TStaticText - Left = 85 + Left = 108 Top = 0 Width = 150 Height = 22 @@ -79,11 +83,11 @@ object TelnetForm: TTelnetForm Align = alClient AutoSize = False BorderStyle = sbsSunken - Caption = 'Status' + Caption = 'Down' TabOrder = 0 end object ToolButton3: TToolButton - Left = 235 + Left = 258 Top = 0 Width = 8 Caption = 'ToolButton3' @@ -91,7 +95,7 @@ object TelnetForm: TTelnetForm Style = tbsSeparator end object ProgressBar: TProgressBar - Left = 243 + Left = 266 Top = 0 Width = 75 Height = 22 @@ -107,7 +111,7 @@ object TelnetForm: TTelnetForm Left = 0 Top = 25 Width = 342 - Height = 162 + Height = 156 Align = alClient ReadOnly = True ScrollBars = ssBoth