home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 February / PCWorld_2007-02_cd.bin / temacd / qip / qip7997.exe / qip.exe / 0 / RCDATA / TANTIFORM / TANTIFORM.txt
Text File  |  2007-01-01  |  3KB  |  138 lines
  1. object AntiForm: TAntiForm
  2.   Left = 411
  3.   Top = 336
  4.   BorderStyle = bsToolWindow
  5.   Caption = 'Anti-Spam Bot'
  6.   ClientHeight = 336
  7.   ClientWidth = 425
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   FormStyle = fsStayOnTop
  15.   OldCreateOrder = False
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object GroupBoxAnti: TGroupBox
  20.     Left = 7
  21.     Top = 6
  22.     Width = 410
  23.     Height = 291
  24.     Font.Charset = DEFAULT_CHARSET
  25.     Font.Color = clWindowText
  26.     Font.Height = -11
  27.     Font.Name = 'MS Sans Serif'
  28.     Font.Style = []
  29.     ParentFont = False
  30.     TabOrder = 0
  31.     object LabelAntiQuest: TLabel
  32.       Left = 11
  33.       Top = 94
  34.       Width = 119
  35.       Height = 13
  36.       Caption = 'Your Anti-Spam question:'
  37.     end
  38.     object LabelAntiAns: TLabel
  39.       Left = 11
  40.       Top = 184
  41.       Width = 160
  42.       Height = 13
  43.       Caption = 'The right answer to your question:'
  44.     end
  45.     object LabelAntiAfter: TLabel
  46.       Left = 11
  47.       Top = 231
  48.       Width = 257
  49.       Height = 13
  50.       Caption = 'Your message after remote user gave the right answer:'
  51.     end
  52.     object PanelDesc: TPanel
  53.       Left = 10
  54.       Top = 17
  55.       Width = 389
  56.       Height = 71
  57.       BevelOuter = bvLowered
  58.       TabOrder = 0
  59.       object MemoDesc: TMemo
  60.         Left = 1
  61.         Top = 1
  62.         Width = 387
  63.         Height = 69
  64.         Align = alClient
  65.         BevelInner = bvNone
  66.         BorderStyle = bsNone
  67.         Font.Charset = DEFAULT_CHARSET
  68.         Font.Color = clWindowText
  69.         Font.Height = -11
  70.         Font.Name = 'Tahoma'
  71.         Font.Style = []
  72.         Lines.Strings = (
  73.           
  74.             'Description: This Anti-Spam system will prevent from receiving u' +
  75.             'nwanted '
  76.           
  77.             'spam messages by asking remote users your simple question. This ' +
  78.             'system '
  79.           
  80.             'works for users not on your contact list only. Users can'#39't send ' +
  81.             'messages to '
  82.           
  83.             'you until they give the right answer. Use well known question an' +
  84.             'd answer. '
  85.           'The answer is not case sensitive.')
  86.         ParentFont = False
  87.         ReadOnly = True
  88.         ScrollBars = ssVertical
  89.         TabOrder = 0
  90.       end
  91.     end
  92.     object MemoQuestion: TMemo
  93.       Left = 10
  94.       Top = 111
  95.       Width = 389
  96.       Height = 65
  97.       Lines.Strings = (
  98.         
  99.           'Hi, this is my Anti-Spam control. If you would like to chat with' +
  100.           ' me then please '
  101.         'give the right answer to the following simple question.'
  102.         'What is the name of our planet? English please. Thank you.')
  103.       MaxLength = 450
  104.       ScrollBars = ssVertical
  105.       TabOrder = 1
  106.     end
  107.     object EditAnswer: TEdit
  108.       Left = 10
  109.       Top = 201
  110.       Width = 389
  111.       Height = 21
  112.       MaxLength = 200
  113.       TabOrder = 2
  114.       Text = 'Earth'
  115.     end
  116.     object EditAfter: TEdit
  117.       Left = 10
  118.       Top = 248
  119.       Width = 389
  120.       Height = 21
  121.       MaxLength = 450
  122.       TabOrder = 3
  123.       Text = 
  124.         'Thank you. Now you can send messages directly to my contact list' +
  125.         '.'
  126.     end
  127.   end
  128.   object ButtonOK: TButton
  129.     Left = 341
  130.     Top = 304
  131.     Width = 75
  132.     Height = 25
  133.     Caption = 'OK'
  134.     TabOrder = 1
  135.     OnClick = ButtonOKClick
  136.   end
  137. end
  138.