PC World Komputer 1998 July & August/Pcwk78a98.iso/E-MAIL/Emailnot/_SETUP.1/CIECHECK.exe/0/RCDATA/TREGISTRATIONFORM/TREGISTRATIONFORM.txt

Text File | 1998-05-06 | 6KB | 249 lines

object RegistrationForm: TRegistrationForm
  Left = 95
  Top = 50
  HelpContext = 20
  ActiveControl = ToEdit
  BorderStyle = bsDialog
  Caption = 'Registration Form'
  ClientHeight = 278
  ClientWidth = 489
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 489
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    BorderWidth = 1
    TabOrder = 0
    object SendButton: TSpeedButton
      Left = 10
      Top = 5
      Width = 31
      Height = 31
      Hint = 'Send'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000
        000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF
        FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F
        FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF
        9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000
        0000777777777777777733333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SendButtonClick
    end
    object Bevel1: TBevel
      Left = 0
      Top = 39
      Width = 565
      Height = 7
      Shape = bsTopLine
    end
    object Bevel2: TBevel
      Left = 0
      Top = 0
      Width = 565
      Height = 6
      Shape = bsTopLine
    end
  end
  object SendInfoPanel: TPanel
    Left = 0
    Top = 41
    Width = 489
    Height = 60
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 17
      Top = 9
      Width = 33
      Height = 14
      Alignment = taRightJustify
      Caption = 'From : '
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 66
      Top = 8
      Width = 31
      Height = 14
      Alignment = taRightJustify
      Caption = 'Name'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 68
      Top = 33
      Width = 32
      Height = 14
      Alignment = taRightJustify
      Caption = 'E-Mail'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ToEdit: TEdit
      Left = 113
      Top = 5
      Width = 283
      Height = 22
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 113
      Top = 29
      Width = 283
      Height = 22
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 255
    Width = 489
    Height = 23
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object StatusBar1: TStatusBar
      Left = 0
      Top = -2
      Width = 489
      Height = 25
      Panels = <
        item
          Width = 300
        end
        item
          Width = 100
        end
        item
          Width = 50
        end>
      SimplePanel = False
    end
    object ProgressBar1: TProgressBar
      Left = 278
      Top = 2
      Width = 120
      Height = 21
      Min = 0
      Max = 100
      TabOrder = 1
    end
  end
  object BodyMemo: TMemo
    Left = 0
    Top = 101
    Width = 489
    Height = 154
    Align = alClient
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      'Thanks for using CIECHECK 3.62. All comments are welcome !'

        '----------------------------------------------------------------' +
        '----------------------------------'
      'For personal user :'
      ''
      'User Name :'
      'Where did you get the program :'
      'Donation (Y/N) : '
      'Donation Fee : '
      ''

        'After registration, we will send you a password for the above Na' +
        'me within 1 or 2 days.'
      ''

        '----------------------------------------------------------------' +
        '----------------------------------'
      'For corporation User :'
      ''

        'It is a freeware only for personal use ! You should pay US$20 fo' +
        'r corporation license.'
      ''
      'Order Form of CIECHECK 3.62 '
      '--------------------------------------'
      'Company Name :'
      'User Name :'
      'Address :'
      'Tel :'
      'Fax :'
      'Price : $20'
      'Card : Visa/Master Card'
      'Card No :'
      'Expired Date :'
      'Signature :'
      '')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 3
    WantTabs = True
  end
  object msSMTP1: TmsSMTP
    WinsockLoaded = True
    DefaultPort = 25
    OnOpen = msSMTP1Open
    OnClosing = msSMTP1Closing
    OnClosed = msSMTP1Closed
    OnError = msSMTP1Error
    MailMessage = msMessage1
    OnProgress = msSMTP1Progress
    OnPrepare = msSMTP1Prepare
    OnSending = msSMTP1Sending
    OnMailSent = msSMTP1MailSent
    Left = 97
    Top = 8
  end
  object msMessage1: TmsMessage
    ContentType = 'text/plain'
    ReturnReceipt = False
    Left = 135
    Top = 8
  end
end