home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 September
/
Chip_2001-09_cd1.bin
/
zkuste
/
delphi
/
nastroje
/
d5
/
MFTP.ZIP
/
demo
/
ftpsearch
/
MAIN.DFM
/
MAIN.txt
Wrap
Text File
|
1999-01-02
|
10KB
|
274 lines
object frmMain: TfrmMain
Left = 194
Top = 161
BorderStyle = bsDialog
Caption = 'FTP Search'
ClientHeight = 366
ClientWidth = 566
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PopupMenu = PopupMenu1
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 8
Width = 126
Height = 13
Caption = 'What'#39's you are looking for:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 56
Width = 64
Height = 13
Caption = 'Search Type:'
end
object Bevel1: TBevel
Left = 0
Top = 98
Width = 569
Height = 2
end
object Button1: TButton
Left = 480
Top = 16
Width = 75
Height = 25
Caption = '&Search'
Enabled = False
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 480
Top = 56
Width = 75
Height = 25
Cancel = True
Caption = '&Close'
TabOrder = 2
OnClick = Button2Click
end
object ListView1: TListView
Left = 0
Top = 103
Width = 566
Height = 244
Align = alBottom
Columns = <
item
Caption = 'Name'
Width = 128
end
item
Alignment = taRightJustify
Caption = 'Size'
Width = 84
end
item
Caption = 'Modified'
Width = 108
end
item
Caption = 'Attributes'
Width = 80
end
item
Caption = 'URL'
Width = 128
end>
ReadOnly = True
ParentShowHint = False
ShowHint = True
SmallImages = ImageList1
TabOrder = 3
ViewStyle = vsReport
OnInfoTip = ListView1InfoTip
end
object StatusBar1: TStatusBar
Left = 0
Top = 347
Width = 566
Height = 19
Panels = <>
SimplePanel = False
SimpleText = 'Ready'
end
object Edit1: TEdit
Left = 8
Top = 24
Width = 457
Height = 21
TabOrder = 0
OnChange = Edit1Change
end
object ComboBox1: TComboBox
Left = 8
Top = 72
Width = 457
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 5
Items.Strings = (
'Case insensitive substring search '
'Case sensitive substring search '
'Case insensitive glob search '
'Case sensitive glob search '
'Regular expression search '
'Exact search '
'Case insensitive substring match '
'Case sensitive substring match '
'Case insensitive glob match '
'Case sensitive glob match '
'Regular expression match')
end
object MFtpSearch1: TMFtpSearch
Cache = False
MaxHit = 50
MaxMatch = 50
MaxSize = 0
MinSize = 0
Proxy = False
SearchType = mstCIUS
Server.Strings = (
'ftpsearch.lycos.com:80'
'ftp.sunet.se:8000'
'archie.is.co.za:80'
'ftpsearch.city.ru:80'
'woland.afti.nsu.ru:8000'
'unicorn.netlab.is.tsukuba.ac.jp:80'
'ftp.riken.go.jp:8000')
OnSearchInfo = MFtpSearch1SearchInfo
Left = 8
Top = 152
end
object ImageList1: TImageList
Left = 8
Top = 184
Bitmap = {
494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001001000000000000008
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000010421863186318631863
1863186318631863186318631863000000000000000010420000000000000000
0000000018631863186318631863000000000000000000000000000000000000
0000000000000000000000000000000000000000805210631063106310631063
1063106310631063106310631063106300000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000000000000
0000000000000000000000001863000000000000000000000000000000000000
00000000000000000000000000000000000000008052FE7F1073907310739073
1073907310739073107310731073106300000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000010420000
0000000000000000000000001863000000000000000000000000000000000000
00000000000000000000000000000000000000008052FE7F9073907390731073
9073107390731073907310731073106300000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000000000000
0000000000000000000000001863000000000000000000000000000000000000
00000000000000000000000000000000000000008052FE7F9073907390739073
9073907310739073107390731073106300000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000000000000
0000000000000000000000001863000000000000000000000000000000000000
00000000000000000000000000000000000000008052FE7F9073907390739073
9073107390731073907310739073106300000000000010420000000000000000
0000000000000000000000001863000000000000000010421042104210421042
1042000000000000000000001863000000000000000000000000000000000000
00000000000000000000000000000000000000008052FE7F9073907390739073
9073907390739073107390731073106300000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000000000000
0000000000000000000000001863000000000000000000000000000000000000
00000000000000000000000000000000000000008052FE7F9073907390739073
9073907390731073907310739073106300000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000000000000
0000000000000000000000001863000000000000000000000000000000000000
00000000000000000000000000000000000000008052FE7F9073907390739073
9073907390739073907390731073106300000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000000000000
0000000000000000000000001863000000000000000000000000000000000000
00000000000000000000000000000000000000008052FE7FFE7FFE7FFE7FFE7F
FE7FFE7FFE7FFE7FFE7FFE7F9073106300000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000000000000
0000000000000000000000001863000000000000000000000000000000000000
0000000000000000000000000000000000000000805210631063106310631063
1063106380528052805280528052805200000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000000000000
0000000000000000000000001863000000000000000000000000000000000000
000000000000000000000000000000000000000000008052FE7FFE7FFE7F9073
9073805200000000000000000000000000000000000010420000000000000000
0000000000000000000000001863000000000000000010420000000000000000
0000000000000000000000001863000000000000000000000000000000000000
0000000000000000000000000000000000000000000000008052805280528052
8052000000000000000000000000000000000000000010420000000000000000
0000000000000000000000000000000000000000000010420000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000010420000
1042000010420000104200000000000000000000000000000000000010420000
1042000010420000104200000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000100000000100010000000000800000000000000000000000
000000000000000000000000FFFFFF00FFFFE003C0030000C000C001DF010000
8000DFF9D77900008000DFF9D17900008000D819D91900008000DFF9DF790000
8000D819C01900008000DFF9DFF900008000D819D81900008000DFF9DFF90000
8000D899D89900008001DFF9DFF90000C03FDFF9DFF90000E07FD555D5550000
FFFFEAABEAAB0000FFFFF557F557000000000000000000000000000000000000
000000000000}
end
object PopupMenu1: TPopupMenu
AutoHotkeys = maManual
Left = 8
Top = 216
object ftpsearchlycoscom801: TMenuItem
Caption = 'ftpsearch.lycos.com:80'
Checked = True
OnClick = menuClick
end
object ftpsunetse80001: TMenuItem
Caption = 'ftp.sunet.se:8000'
Checked = True
OnClick = menuClick
end
object archieiscoza801: TMenuItem
Caption = 'archie.is.co.za:80'
OnClick = menuClick
end
object ftpsearchcityru801: TMenuItem
Caption = 'ftpsearch.city.ru:80'
OnClick = menuClick
end
object wolandaftinsuru80001: TMenuItem
Caption = 'woland.afti.nsu.ru:8000'
OnClick = menuClick
end
object unicornnetlabistsukubaacjp801: TMenuItem
Caption = 'unicorn.netlab.is.tsukuba.ac.jp:80'
OnClick = menuClick
end
object ftprikengojp80001: TMenuItem
Caption = 'ftp.riken.go.jp:8000'
OnClick = menuClick
end
end
end