home *** CD-ROM | disk | FTP | other *** search
- object frmBanish: TfrmBanish
- Left = 280
- Top = 220
- BorderStyle = bsDialog
- Caption = 'Banish Address'
- ClientHeight = 238
- ClientWidth = 248
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- KeyPreview = True
- OldCreateOrder = False
- Position = poMainFormCenter
- OnClose = FormClose
- OnKeyPress = FormKeyPress
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 34
- Width = 233
- Height = 113
- AutoSize = False
- Caption =
- 'Enter the hostname that you do not want your computer to be able' +
- ' to connect to. When your computer tries to look up the IP of t' +
- 'he hostname, it will get 0.0.0.0 and will be unable to connect.'#13 +
- #10#13#10'A line will be added to your hosts file. You can manually edi' +
- 't this file by clicking '
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Label2: TLabel
- Left = 8
- Top = 163
- Width = 26
- Height = 13
- Caption = 'Host:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object lblEdit: TLabel
- Left = 163
- Top = 126
- Width = 22
- Height = 13
- Cursor = crHandPoint
- Caption = 'here'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsUnderline]
- ParentFont = False
- OnClick = lblEditClick
- end
- object edHostname: TEdit
- Left = 40
- Top = 161
- Width = 201
- Height = 21
- TabOrder = 0
- OnChange = edHostnameChange
- OnKeyPress = edHostnameKeyPress
- end
- object OK: TButton
- Left = 24
- Top = 201
- Width = 75
- Height = 25
- Caption = '&OK'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = OKClick
- end
- object Cancel: TButton
- Left = 128
- Top = 201
- Width = 75
- Height = 25
- Caption = '&Cancel'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = CancelClick
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 248
- Height = 29
- Align = alTop
- BevelOuter = bvLowered
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- object header: TLabel
- Left = 13
- Top = 6
- Width = 100
- Height = 16
- Caption = 'Banish Address'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- end
-