home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 A / CHIP_HITWARE6_A.iso / internet / TransSoftMail / tmc4bpe.exe / %MAINDIR% / Tmc4.exe / 0 / RCDATA / TSUBSCRIBEFORM / TSUBSCRIBEFORM.txt
Encoding:
Text File  |  1999-02-07  |  4.7 KB  |  186 lines
  1. object SubScribeForm: TSubScribeForm
  2.   Left = 54
  3.   Top = 46
  4.   Width = 485
  5.   Height = 268
  6.   Caption = 'Subscription form...'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   OnShow = FormShow
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object LMDLabelFill1: TLMDLabelFill
  17.     Left = 0
  18.     Top = 0
  19.     Width = 477
  20.     Height = 27
  21.     FillObject.Style = sfGradient
  22.     FillObject.Gradient.Color = clRed
  23.     FillObject.Gradient.ColorCount = 31
  24.     FillObject.Gradient.Style = gstElliptic
  25.     Align = alTop
  26.     Alignment = agTopCenter
  27.     Caption = 'TransSoft'#39's Newsletter subscription...'
  28.     Font.Charset = ANSI_CHARSET
  29.     Font.Color = clWindowText
  30.     Font.Height = -19
  31.     Font.Name = 'Impact'
  32.     Font.Style = []
  33.     FontFx.Style = tdRaisedShadow
  34.     ParentFont = False
  35.   end
  36.   object Memo1: TMemo
  37.     Left = 0
  38.     Top = 27
  39.     Width = 477
  40.     Height = 155
  41.     Align = alTop
  42.     Font.Charset = DEFAULT_CHARSET
  43.     Font.Color = clWindowText
  44.     Font.Height = -15
  45.     Font.Name = 'MS Sans Serif'
  46.     Font.Style = []
  47.     Lines.Strings = (
  48.       
  49.         'Whenever a new release of our clients are posted to our homepage' +
  50.         ' and FTP '
  51.       
  52.         'site, introducing new, enriched set of  features, our newsletter' +
  53.         ' is posted to our '
  54.       'subscribers.'
  55.       
  56.         'This ables our users to easily keep track of new releases. Every' +
  57.         ' time a new '
  58.       
  59.         'release is presented, users can upgrade their current release si' +
  60.         'mply by means '
  61.       'of "Help|Automatic upgrade...".'
  62.       ''
  63.       
  64.         'To subscribe, simply click the [Subscribe Now] button, here belo' +
  65.         'w, and you will '
  66.       'receive an email of acknowledgement in return!')
  67.     ParentFont = False
  68.     TabOrder = 0
  69.   end
  70.   object Button1: TButton
  71.     Left = 296
  72.     Top = 192
  73.     Width = 87
  74.     Height = 25
  75.     Caption = 'Subscribe now!'
  76.     Default = True
  77.     TabOrder = 1
  78.     OnClick = Button1Click
  79.   end
  80.   object Button2: TButton
  81.     Left = 392
  82.     Top = 192
  83.     Width = 75
  84.     Height = 25
  85.     Cancel = True
  86.     Caption = 'Cancel'
  87.     ModalResult = 2
  88.     TabOrder = 2
  89.   end
  90.   object StatusBar1: TStatusBar
  91.     Left = 0
  92.     Top = 220
  93.     Width = 477
  94.     Height = 19
  95.     Panels = <>
  96.     SimplePanel = True
  97.   end
  98.   object MultiLang1: TMultiLang
  99.     Languages = 2
  100.     Words.Strings = (
  101.       '%Form%'
  102.       'Subscription form...'
  103.       '∩┐╜skriftarform...'
  104.       'LMDLabelFill1'
  105.       'TransSoft'#39's Newsletter subscription...'
  106.       '∩┐╜skrift a∩┐╜ fr∩┐╜ttabr∩┐╜fi TransSoft...'
  107.       'Memo1'
  108.       
  109.         'Whenever a new release of our clients are posted to our homepage' +
  110.         ' and FTP '
  111.       
  112.         '∩┐╜egar a∩┐╜ n∩┐╜jar ∩┐╜tg∩┐╜fur af internet-forritum okkar eru settar ∩┐╜ h' +
  113.         'eimas∩┐╜∩┐╜u'
  114.       '"'
  115.       
  116.         'site, introducing new, enriched set of  features, our newsletter' +
  117.         ' is posted to our '
  118.       
  119.         'e∩┐╜a FTP sv∩┐╜∩┐╜i TransSoft, og kynntir eru n∩┐╜ir m∩┐╜guleikar me∩┐╜ forr' +
  120.         'itin,'
  121.       '"'
  122.       'subscribers.'
  123.       '∩┐╜∩┐╜ er fr∩┐╜ttabr∩┐╜f okkar sent ∩┐╜t til ∩┐╜skrifenda.'
  124.       '"'
  125.       
  126.         'This ables our users to easily keep track of new releases. Every' +
  127.         ' time a new '
  128.       
  129.         '∩┐╜etta gerir notendum okkar kleyft a∩┐╜ vera alltaf me∩┐╜vita∩┐╜ir um h' +
  130.         'vort og'
  131.       '"'
  132.       
  133.         'release is presented, users can upgrade their current release si' +
  134.         'mply by means '
  135.       
  136.         'hva∩┐╜a n∩┐╜jungar eru ∩┐╜ gangi ∩┐╜ hverjum t∩┐╜ma. ∩┐╜egar n∩┐╜jar ∩┐╜tg∩┐╜fur e' +
  137.         'ru f∩┐╜anlegar'
  138.       '"'
  139.       'of "Help|Automatic upgrade...".'
  140.       'm∩┐╜ svo s∩┐╜kja ∩┐╜∩┐╜r me∩┐╜ "Hj∩┐╜lp|S∩┐╜kja n∩┐╜ja ∩┐╜tg∩┐╜fu...".'
  141.       '"'
  142.       ''
  143.       ''
  144.       '"'
  145.       
  146.         'To subscribe, simply click the [Subscribe Now] button, here belo' +
  147.         'w, and you will '
  148.       
  149.         'Til a∩┐╜ gerast ∩┐╜skrifandi, smelltu einfaldlega ∩┐╜ hnappin [∩┐╜skrift' +
  150.         '] h∩┐╜r fyrir ne∩┐╜an'
  151.       '"'
  152.       'receive an email of acknowledgement in return!'
  153.       'og ∩┐╜∩┐╜ munt f∩┐╜ sendan p∩┐╜st me∩┐╜ sta∩┐╜festingu um m∩┐╜tt∩┐╜ku!'
  154.       'Button1'
  155.       'Subscribe now!'
  156.       '∩┐╜skrift!'
  157.       'Button2'
  158.       'Cancel'
  159.       'H∩┐╜tta vi∩┐╜'
  160.       'StatusBar1'
  161.       ''
  162.       '')
  163.     Left = 432
  164.     Top = 72
  165.   end
  166.   object SMTP: TmsSMTP
  167.     WinsockLoaded = True
  168.     DefaultPort = 25
  169.     OnOpen = SMTPOpen
  170.     OnClosing = SMTPClosing
  171.     OnClosed = SMTPClosed
  172.     MailMessage = MessageSource
  173.     OnPrepare = SMTPPrepare
  174.     OnSending = SMTPSending
  175.     OnMailSent = SMTPMailSent
  176.     Left = 200
  177.     Top = 136
  178.   end
  179.   object MessageSource: TmsMessage
  180.     ContentType = 'text/plain'
  181.     ReturnReceipt = False
  182.     Left = 168
  183.     Top = 152
  184.   end
  185. end
  186.