|
|
1.1 root 1: object FtpForm: TFtpForm 1.1.1.2 ! root 2: Left = 446 ! 3: Top = 759 ! 4: Width = 525 1.1 root 5: Height = 150 6: Caption = 'FTP Server' 7: Color = clBtnFace 8: DragKind = dkDock 9: DragMode = dmAutomatic 10: Font.Charset = DEFAULT_CHARSET 11: Font.Color = clWindowText 12: Font.Height = -13 13: Font.Name = 'MS Sans Serif' 14: Font.Style = [] 15: OldCreateOrder = False 16: OnHide = FormHide 17: PixelsPerInch = 120 18: TextHeight = 16 19: object ToolBar: TToolBar 20: Left = 0 21: Top = 0 1.1.1.2 ! root 22: Width = 517 1.1 root 23: Height = 25 24: Caption = 'ToolBar' 25: EdgeBorders = [] 26: EdgeInner = esLowered 27: Flat = True 28: Images = MainForm.ImageList 29: ParentShowHint = False 30: ShowHint = True 31: TabOrder = 0 32: object StartButton: TToolButton 33: Left = 0 34: Top = 0 35: Action = MainForm.FtpStart 36: end 1.1.1.2 ! root 37: object LogPauseButton: TToolButton 1.1 root 38: Left = 23 39: Top = 0 1.1.1.2 ! root 40: Action = MainForm.FtpPause ! 41: Style = tbsCheck ! 42: end ! 43: object StopButton: TToolButton ! 44: Left = 46 ! 45: Top = 0 1.1 root 46: Action = MainForm.FtpStop 47: end 48: object RecycleButton: TToolButton 1.1.1.2 ! root 49: Left = 69 1.1 root 50: Top = 0 51: Action = MainForm.FtpRecycle 52: end 53: object ToolButton1: TToolButton 1.1.1.2 ! root 54: Left = 92 1.1 root 55: Top = 0 56: Width = 8 57: Caption = 'ToolButton1' 58: ImageIndex = 3 59: Style = tbsSeparator 60: end 61: object ConfigureButton: TToolButton 1.1.1.2 ! root 62: Left = 100 1.1 root 63: Top = 0 64: Action = MainForm.FtpConfigure 65: end 66: object ToolButton2: TToolButton 1.1.1.2 ! root 67: Left = 123 1.1 root 68: Top = 0 69: Width = 8 70: Caption = 'ToolButton2' 71: ImageIndex = 5 72: Style = tbsSeparator 73: end 74: object Status: TStaticText 1.1.1.2 ! root 75: Left = 131 1.1 root 76: Top = 0 77: Width = 150 78: Height = 22 79: Hint = 'FTP Server Status' 80: AutoSize = False 81: BorderStyle = sbsSunken 82: Caption = 'Down' 83: ParentShowHint = False 84: ShowHint = True 85: TabOrder = 0 86: end 87: object ToolButton3: TToolButton 1.1.1.2 ! root 88: Left = 281 1.1 root 89: Top = 0 90: Width = 8 91: Caption = 'ToolButton3' 92: ImageIndex = 6 93: Style = tbsSeparator 94: end 95: object ProgressBar: TProgressBar 1.1.1.2 ! root 96: Left = 289 1.1 root 97: Top = 0 98: Width = 75 99: Height = 22 100: Hint = 'FTP Server Utilization' 101: Min = 0 102: Max = 100 103: Smooth = True 104: Step = 1 105: TabOrder = 1 106: end 1.1.1.2 ! root 107: object ToolButton4: TToolButton ! 108: Left = 364 ! 109: Top = 0 ! 110: Width = 8 ! 111: Caption = 'ToolButton4' ! 112: ImageIndex = 7 ! 113: Style = tbsSeparator ! 114: end ! 115: object LogLevelText: TStaticText ! 116: Left = 372 ! 117: Top = 0 ! 118: Width = 75 ! 119: Height = 22 ! 120: Hint = 'Log Level' ! 121: AutoSize = False ! 122: BorderStyle = sbsSunken ! 123: TabOrder = 2 ! 124: end ! 125: object LogLevelUpDown: TUpDown ! 126: Left = 447 ! 127: Top = 0 ! 128: Width = 16 ! 129: Height = 22 ! 130: Hint = 'Log Level Adjustment' ! 131: Min = 0 ! 132: Max = 7 ! 133: Position = 0 ! 134: TabOrder = 3 ! 135: Wrap = False ! 136: OnChangingEx = LogLevelUpDownChangingEx ! 137: end 1.1 root 138: end 1.1.1.2 ! root 139: object Log: TRichEdit 1.1 root 140: Left = 0 141: Top = 25 1.1.1.2 ! root 142: Width = 517 1.1 root 143: Height = 92 144: Align = alClient 1.1.1.2 ! root 145: Font.Charset = DEFAULT_CHARSET ! 146: Font.Color = clWindowText ! 147: Font.Height = -14 ! 148: Font.Name = 'MS Sans Serif' ! 149: Font.Style = [] ! 150: HideScrollBars = False ! 151: ParentFont = False 1.1 root 152: ReadOnly = True 153: ScrollBars = ssBoth 154: TabOrder = 1 1.1.1.2 ! root 155: WordWrap = False 1.1 root 156: end 157: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.