fnewaccountwizard.dfm

siMail, siMail, siMail, siMail

object frmNewAccountWizard: TfrmNewAccountWizard
  Left = 350
  Top = 307
  ActiveControl = txtIncoming
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'New account wizard'
  ClientHeight = 373
  ClientWidth = 602
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShortCut = FormShortCut
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object wizard: TJvWizard
    Left = 0
    Top = 0
    Width = 602
    Height = 373
    ActivePage = wizServer
    ButtonBarHeight = 42
    ButtonStart.Caption = 'To &Start Page'
    ButtonStart.NumGlyphs = 1
    ButtonStart.Layout = blGlyphLeft
    ButtonStart.ModalResult = 0
    ButtonStart.Width = 85
    ButtonLast.Caption = 'To &Last Page'
    ButtonLast.NumGlyphs = 1
    ButtonLast.Layout = blGlyphLeft
    ButtonLast.ModalResult = 0
    ButtonLast.Width = 85
    ButtonBack.Caption = '&<< Back'
    ButtonBack.NumGlyphs = 1
    ButtonBack.Layout = blGlyphLeft
    ButtonBack.ModalResult = 0
    ButtonBack.Width = 75
    ButtonNext.Caption = 'Next >&>'
    ButtonNext.NumGlyphs = 1
    ButtonNext.Layout = blGlyphLeft
    ButtonNext.ModalResult = 0
    ButtonNext.Width = 75
    ButtonFinish.Caption = '&Finish'
    ButtonFinish.NumGlyphs = 1
    ButtonFinish.Layout = blGlyphLeft
    ButtonFinish.ModalResult = 0
    ButtonFinish.Width = 75
    ButtonCancel.Caption = '&Cancel'
    ButtonCancel.NumGlyphs = 1
    ButtonCancel.Layout = blGlyphLeft
    ButtonCancel.ModalResult = 2
    ButtonCancel.Width = 75
    ButtonHelp.Caption = '&Help'
    ButtonHelp.NumGlyphs = 1
    ButtonHelp.Layout = blGlyphLeft
    ButtonHelp.ModalResult = 0
    ButtonHelp.Width = 75
    ShowRouteMap = True
    OnSelectNextPage = wizardSelectNextPage
    OnSelectPriorPage = wizardSelectPriorPage
    OnFinishButtonClick = wizardFinishButtonClick
    OnCancelButtonClick = wizardCancelButtonClick
    DesignSize = (
      602
      373)
    object wizWelcome: TJvWizardWelcomePage
      Header.Title.Color = clNone
      Header.Title.Text = 'Welcome'
      Header.Title.Anchors = [akLeft, akTop, akRight]
      Header.Title.Font.Charset = DEFAULT_CHARSET
      Header.Title.Font.Color = clWindowText
      Header.Title.Font.Height = -16
      Header.Title.Font.Name = 'MS Sans Serif'
      Header.Title.Font.Style = [fsBold]
      Header.Subtitle.Color = clNone
      Header.Subtitle.Text = 
        'This wizard will guide you through the creation of a new e-mail ' +
        'account.'
      Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom]
      Header.Subtitle.Font.Charset = DEFAULT_CHARSET
      Header.Subtitle.Font.Color = clWindowText
      Header.Subtitle.Font.Height = -11
      Header.Subtitle.Font.Name = 'MS Sans Serif'
      Header.Subtitle.Font.Style = []
      Header.ShowDivider = False
      Panel.Visible = False
      EnabledButtons = [bkStart, bkLast, bkNext, bkFinish, bkCancel, bkHelp]
      Color = clBtnFace
      Caption = 'Welcome'
      WaterMark.Visible = False
    end
    object wizProfile: TJvWizardInteriorPage
      Header.Height = 90
      Header.Title.Color = clNone
      Header.Title.Text = 'Profile'
      Header.Title.Anchors = [akLeft, akTop, akRight]
      Header.Title.Font.Charset = DEFAULT_CHARSET
      Header.Title.Font.Color = clWindowText
      Header.Title.Font.Height = -16
      Header.Title.Font.Name = 'MS Sans Serif'
      Header.Title.Font.Style = [fsBold]
      Header.Subtitle.Color = clNone
      Header.Subtitle.Text = 
        'si.Mail supports multiple users. Each user has a profile where s' +
        'ettings and messages are stored. Please type a profile name in t' +
        'he field below. If you want to prevent others from accessing you' +
        'r profile you may provide a password.'
      Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom]
      Header.Subtitle.Font.Charset = DEFAULT_CHARSET
      Header.Subtitle.Font.Color = clWindowText
      Header.Subtitle.Font.Height = -11
      Header.Subtitle.Font.Name = 'MS Sans Serif'
      Header.Subtitle.Font.Style = []
      Panel.Visible = False
      Caption = 'Profile'
      object Panel2: TPanel
        Left = 0
        Top = 90
        Width = 481
        Height = 241
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label14: TLabel
          Left = 8
          Top = 16
          Width = 63
          Height = 13
          Caption = 'Profile &Name:'
          FocusControl = txtProfile
          Transparent = True
        end
        object Label30: TLabel
          Left = 8
          Top = 40
          Width = 49
          Height = 13
          Caption = '&Password:'
          FocusControl = txtPwd
          Transparent = True
        end
        object Label31: TLabel
          Left = 8
          Top = 64
          Width = 88
          Height = 13
          Caption = '&Re-type password:'
          FocusControl = txtRetypePwd
          Transparent = True
        end
        object txtProfile: TEdit
          Left = 152
          Top = 12
          Width = 321
          Height = 21
          Hint = 'I recommend writing your name here'
          MaxLength = 64
          TabOrder = 0
          OnKeyPress = txtProfileKeyPress
        end
        object txtPwd: TEdit
          Left = 152
          Top = 36
          Width = 321
          Height = 21
          Hint = 'Profile password'
          MaxLength = 64
          PasswordChar = '*'
          TabOrder = 1
        end
        object txtRetypePwd: TEdit
          Left = 152
          Top = 60
          Width = 321
          Height = 21
          Hint = 'Profile password'
          MaxLength = 64
          PasswordChar = '*'
          TabOrder = 2
        end
      end
    end
    object wizAccount: TJvWizardInteriorPage
      Header.Title.Color = clNone
      Header.Title.Text = 'Account creation'
      Header.Title.Anchors = [akLeft, akTop, akRight]
      Header.Title.Font.Charset = DEFAULT_CHARSET
      Header.Title.Font.Color = clWindowText
      Header.Title.Font.Height = -16
      Header.Title.Font.Name = 'MS Sans Serif'
      Header.Title.Font.Style = [fsBold]
      Header.Subtitle.Color = clNone
      Header.Subtitle.Visible = False
      Header.Subtitle.Text = 'Subtitle'
      Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom]
      Header.Subtitle.Font.Charset = DEFAULT_CHARSET
      Header.Subtitle.Font.Color = clWindowText
      Header.Subtitle.Font.Height = -11
      Header.Subtitle.Font.Name = 'MS Sans Serif'
      Header.Subtitle.Font.Style = []
      Panel.Visible = False
      Caption = 'Account creation'
      object GroupBox1: TGroupBox
        Left = 8
        Top = 80
        Width = 465
        Height = 57
        Caption = ' &I want ... '
        TabOrder = 0
        object rbAcc1: TRadioButton
          Left = 8
          Top = 16
          Width = 449
          Height = 17
          Hint = 'si.Mail will use separate mailboxes'
          Caption = '... &to use separate Mailboxes for this account'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = rbAcc1Click
        end
        object rbAcc2: TRadioButton
          Left = 8
          Top = 32
          Width = 449
          Height = 17
          Hint = 
            'si.Mail will deliver all messages from this account into selecte' +
            'd one'
          Caption = '... t&hat all messages from this account are delivered to ...'
          TabOrder = 1
          Visible = False
          OnClick = rbAcc1Click
        end
      end
      object pnlAcc2: TGroupBox
        Left = 8
        Top = 144
        Width = 465
        Height = 177
        TabOrder = 2
        Visible = False
        object Label17: TLabel
          Left = 8
          Top = 16
          Width = 441
          Height = 33
          AutoSize = False
          Caption = 'Select account Name to deliver messages to.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object Label22: TLabel
          Left = 8
          Top = 80
          Width = 48
          Height = 13
          Caption = '&Deliver to:'
          FocusControl = cmboxAccount
          Transparent = True
        end
        object Label28: TLabel
          Left = 8
          Top = 56
          Width = 72
          Height = 13
          Caption = '&Account name:'
          FocusControl = txtAccountName2
          Transparent = True
        end
        object cmboxAccount: TComboBox
          Left = 144
          Top = 76
          Width = 305
          Height = 21
          Hint = 'Deliver messages to selected account'
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
        end
        object txtAccountName2: TEdit
          Left = 144
          Top = 52
          Width = 305
          Height = 21
          Hint = 'I recommend writing your Internet provider for account name'
          MaxLength = 64
          TabOrder = 1
          OnKeyPress = txtProfileKeyPress
        end
      end
      object pnlAcc1: TGroupBox
        Left = 8
        Top = 144
        Width = 465
        Height = 177
        TabOrder = 1
        object Label3: TLabel
          Left = 8
          Top = 16
          Width = 441
          Height = 33
          AutoSize = False
          Caption = 
            'Account name. I usually use my e-mail provider to define that na' +
            'me.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object Label4: TLabel
          Left = 8
          Top = 56
          Width = 72
          Height = 13
          Caption = '&Account name:'
          FocusControl = txtAccountName1
          Transparent = True
        end
        object Label6: TLabel
          Left = 8
          Top = 80
          Width = 449
          Height = 57
          AutoSize = False
          Caption = 
            'Default mailbox storage is in .\Profiles\%User Name%\%Account Na' +
            'me%  under si.Mail installation folder. If you want to store you' +
            'r account'#39's messages in other destination then press the ... but' +
            'ton and select it.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object Label5: TLabel
          Left = 8
          Top = 144
          Width = 67
          Height = 13
          Caption = 'Account &path:'
          FocusControl = txtAccountPath
          Transparent = True
        end
        object txtAccountName1: TEdit
          Left = 144
          Top = 52
          Width = 305
          Height = 21
          Hint = 'I recommend writing your Internet provider for account name'
          MaxLength = 64
          TabOrder = 0
          OnKeyPress = txtProfileKeyPress
        end
        object txtAccountPath: TEdit
          Left = 160
          Top = 140
          Width = 265
          Height = 21
          Hint = 'Use other than default storage folder'
          Enabled = False
          TabOrder = 1
          Text = '<Default>'
        end
        object cmdAccountPath: TBitBtn
          Left = 424
          Top = 140
          Width = 25
          Height = 19
          Hint = 'Select folder'
          Caption = '...'
          TabOrder = 2
        end
      end
    end
    object wizUser: TJvWizardInteriorPage
      Header.Title.Color = clNone
      Header.Title.Text = 'User Info'
      Header.Title.Anchors = [akLeft, akTop, akRight]
      Header.Title.Font.Charset = DEFAULT_CHARSET
      Header.Title.Font.Color = clWindowText
      Header.Title.Font.Height = -16
      Header.Title.Font.Name = 'MS Sans Serif'
      Header.Title.Font.Style = [fsBold]
      Header.Subtitle.Color = clNone
      Header.Subtitle.Visible = False
      Header.Subtitle.Text = 'Subtitle'
      Header.Subtitle.Anchors = [akLeft, akTop, akRight, akBottom]
      Header.Subtitle.Font.Charset = DEFAULT_CHARSET
      Header.Subtitle.Font.Color = clWindowText
      Header.Subtitle.Font.Height = -11
      Header.Subtitle.Font.Name = 'MS Sans Serif'
      Header.Subtitle.Font.Style = []
      Panel.Visible = False
      Caption = 'User Info'
      object Panel3: TPanel
        Left = 0
        Top = 70
        Width = 481
        Height = 261
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label16: TLabel
          Left = 8
          Top = 8
          Width = 97
          Height = 13
          Caption = 'User information:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label8: TLabel
          Left = 8
          Top = 32
          Width = 56
          Height = 13
          Caption = '&Your Name:'
          FocusControl = txtYourName
          Transparent = True
        end
        object Label24: TLabel
          Left = 8
          Top = 56
          Width = 62