--- sbbs/sbbs3/ctrl/ftpformunit.dfm 2018/04/24 16:39:34 1.1 +++ sbbs/sbbs3/ctrl/ftpformunit.dfm 2018/04/24 16:41:10 1.1.1.2 @@ -1,6 +1,6 @@ object FtpForm: TFtpForm - Left = 322 - Top = 143 + Left = 856 + Top = 689 Width = 350 Height = 150 Caption = 'FTP Server' @@ -9,14 +9,13 @@ object FtpForm: TFtpForm DragMode = dmAutomatic Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText - Font.Height = -10 + Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnHide = FormHide - OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 13 + PixelsPerInch = 120 + TextHeight = 16 object ToolBar: TToolBar Left = 0 Top = 0 @@ -40,21 +39,26 @@ object FtpForm: TFtpForm Top = 0 Action = MainForm.FtpStop end - object ToolButton1: TToolButton + object RecycleButton: TToolButton Left = 46 Top = 0 + Action = MainForm.FtpRecycle + end + object ToolButton1: TToolButton + Left = 69 + Top = 0 Width = 8 Caption = 'ToolButton1' ImageIndex = 3 Style = tbsSeparator end object ConfigureButton: TToolButton - Left = 54 + Left = 77 Top = 0 Action = MainForm.FtpConfigure end object ToolButton2: TToolButton - Left = 77 + Left = 100 Top = 0 Width = 8 Caption = 'ToolButton2' @@ -62,20 +66,20 @@ object FtpForm: TFtpForm Style = tbsSeparator end object Status: TStaticText - Left = 85 + Left = 108 Top = 0 Width = 150 Height = 22 Hint = 'FTP Server Status' AutoSize = False BorderStyle = sbsSunken - Caption = 'Status' + Caption = 'Down' ParentShowHint = False ShowHint = True TabOrder = 0 end object ToolButton3: TToolButton - Left = 235 + Left = 258 Top = 0 Width = 8 Caption = 'ToolButton3' @@ -83,7 +87,7 @@ object FtpForm: TFtpForm Style = tbsSeparator end object ProgressBar: TProgressBar - Left = 243 + Left = 266 Top = 0 Width = 75 Height = 22 @@ -99,7 +103,7 @@ object FtpForm: TFtpForm Left = 0 Top = 25 Width = 342 - Height = 98 + Height = 92 Align = alClient ReadOnly = True ScrollBars = ssBoth