home *** CD-ROM | disk | FTP | other *** search
- object frmCDDB: TfrmCDDB
- Left = 311
- Top = 111
- BorderStyle = bsDialog
- Caption = 'FreeDB'
- ClientHeight = 294
- ClientWidth = 259
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poOwnerFormCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- DesignSize = (
- 259
- 294)
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 6
- Top = 48
- Width = 59
- Height = 13
- Caption = 'CD-R/ROM:'
- end
- object Label2: TLabel
- Left = 6
- Top = 90
- Width = 71
- Height = 13
- Caption = 'FreeDB server:'
- end
- object Label3: TLabel
- Left = 6
- Top = 130
- Width = 21
- Height = 13
- Caption = 'Info:'
- end
- object Label4: TLabel
- Left = 100
- Top = 106
- Width = 5
- Height = 13
- Caption = ':'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Image1: TImage
- Left = 6
- Top = 14
- Width = 60
- Height = 16
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- OnClick = Image1Click
- end
- object ME: TMemo
- Left = 6
- Top = 144
- Width = 247
- Height = 142
- Anchors = [akLeft, akTop, akRight, akBottom]
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -12
- Font.Name = 'Courier New'
- Font.Style = []
- Lines.Strings = (
- 'Pokud chcete vyu'#382#237't funkci'
- 'serveru FreeDB mus'#237'te:'
- ''
- '1. B'#253't p'#345'ipojeni k Internetu'
- ''
- '2. M'#237't v CD mechanice disk,'
- ' ke kter'#233'mu chcete cddb'
- ' informace st'#225'hnout.')
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- WantTabs = True
- WordWrap = False
- end
- object cbDrive: TComboBox
- Left = 6
- Top = 62
- Width = 59
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 3
- TabOrder = 1
- Text = 'D'
- Items.Strings = (
- 'A'
- 'B'
- 'C'
- 'D'
- 'E'
- 'F'
- 'G'
- 'H'
- 'I'
- 'J'
- 'K'
- 'L'
- 'M'
- 'N'
- 'O'
- 'P'
- 'Q'
- 'R'
- 'S'
- 'T'
- 'U'
- 'V'
- 'W'
- 'X'
- 'Y'
- 'Z')
- end
- object btStart: TButton
- Left = 178
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Start'
- Default = True
- TabOrder = 2
- OnClick = btStartClick
- end
- object edServer: TEdit
- Left = 6
- Top = 104
- Width = 93
- Height = 21
- TabOrder = 3
- Text = 'freedb.freedb.org'
- end
- object edPort: TEdit
- Left = 106
- Top = 104
- Width = 35
- Height = 21
- TabOrder = 4
- Text = '8880'
- end
- object TCP: TWSocket
- LineMode = False
- LineLimit = 65536
- LineEnd = #13#10
- LineEcho = False
- LineEdit = False
- Addr = 'freedb.freedb.org'
- Port = '888'
- Proto = 'tcp'
- LocalAddr = '0.0.0.0'
- LocalPort = '0'
- MultiThreaded = False
- MultiCast = False
- MultiCastIpTTL = 1
- ReuseAddr = False
- ComponentOptions = []
- OnDataAvailable = TCPDataAvailable
- OnSessionClosed = TCPSessionClosed
- OnSessionConnected = TCPSessionConnected
- OnError = TCPError
- FlushTimeout = 60
- SendFlags = wsSendNormal
- LingerOnOff = wsLingerOn
- LingerTimeout = 0
- SocksLevel = '5'
- SocksAuthentication = socksNoAuthentication
- Left = 78
- Top = 166
- end
- object VI: TVerInfo
- Left = 108
- Top = 168
- end
- end
-