?? main.dfm
字號:
object MainForm: TMainForm
Left = 192
Top = 114
BorderStyle = bsDialog
Caption = 'Clever FTP Server'
ClientHeight = 385
ClientWidth = 438
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 136
Width = 18
Height = 13
Caption = 'Log'
end
object Label2: TLabel
Left = 8
Top = 56
Width = 19
Height = 13
Caption = 'Port'
end
object Label3: TLabel
Left = 8
Top = 84
Width = 39
Height = 13
Caption = 'Root Dir'
end
object Label4: TLabel
Left = 8
Top = 8
Width = 387
Height = 13
Caption =
'This is a sample FTP server. You can use any FTP client to conne' +
'ct to this server.'
WordWrap = True
end
object Label5: TLabel
Left = 8
Top = 32
Width = 375
Height = 13
Caption =
'Please use the "CleverTester" user name and "clevertester" passw' +
'ord to log-in.'
WordWrap = True
end
object btnStart: TButton
Left = 56
Top = 112
Width = 75
Height = 25
Caption = 'Start'
TabOrder = 2
OnClick = btnStartClick
end
object btnStop: TButton
Left = 144
Top = 112
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 3
OnClick = btnStopClick
end
object memLog: TMemo
Left = 0
Top = 155
Width = 438
Height = 230
Align = alBottom
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 4
end
object edtPort: TEdit
Left = 56
Top = 56
Width = 161
Height = 21
TabOrder = 0
Text = '21'
end
object edtRootDir: TEdit
Left = 56
Top = 84
Width = 353
Height = 21
TabOrder = 1
Text = 'C:\CleverFtpServer\'
end
object clFtpServer1: TclFtpServer
ServerName = 'Clever Internet Suite FTP service'
OnStart = clFtpServer1Start
OnStop = clFtpServer1Stop
OnAcceptConnection = clFtpServer1AcceptConnection
OnCloseConnection = clFtpServer1CloseConnection
OnReceiveCommand = clFtpServer1ReceiveCommand
OnSendResponse = clFtpServer1SendResponse
UserAccounts = <
item
UserName = 'CleverTester'
Password = 'clevertester'
DisplayName = 'Clever Tester'
ReadOnlyAccess = False
end>
CaseInsensitive = True
AllowAnonymousAccess = True
OnAuthenticate = clFtpServer1Authenticate
Left = 232
Top = 112
end
object clFtpFileHandler1: TclFtpFileHandler
Server = clFtpServer1
Left = 272
Top = 112
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -