home *** CD-ROM | disk | FTP | other *** search
- object frmSettings: TfrmSettings
- Left = 261
- Top = 163
- Width = 344
- Height = 230
- BorderIcons = []
- Caption = 'Settings'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 5
- Top = 4
- Width = 328
- Height = 165
- ActivePage = TabSheet1
- TabOrder = 2
- object TabSheet1: TTabSheet
- Caption = 'Basic settings'
- object Label5: TLabel
- Left = 15
- Top = 92
- Width = 33
- Height = 13
- Caption = 'SMTP '
- end
- object Label4: TLabel
- Left = 15
- Top = 24
- Width = 117
- Height = 13
- Caption = 'Your main e-mail address'
- end
- object Label1: TLabel
- Left = 5
- Top = 5
- Width = 53
- Height = 13
- Caption = 'User Info'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 5
- Top = 73
- Width = 38
- Height = 13
- Caption = 'Server'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 271
- Top = 92
- Width = 31
- Height = 13
- Caption = 'Port nr'
- end
- object edsSMTP: TEdit
- Left = 15
- Top = 107
- Width = 246
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- Text = 'mail.geocities.com'
- end
- object edsEmail: TEdit
- Left = 13
- Top = 40
- Width = 300
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object cmdMailTo: TButton
- Left = 239
- Top = 4
- Width = 75
- Height = 25
- Caption = 'MailTo'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = cmdMailToClick
- end
- object edsPort: TEdit
- Left = 268
- Top = 107
- Width = 45
- Height = 21
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- Text = '25'
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Dial Up'
- object Label27: TLabel
- Left = 5
- Top = 5
- Width = 41
- Height = 13
- Caption = 'Dial up'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label29: TLabel
- Left = 15
- Top = 52
- Width = 95
- Height = 13
- Caption = 'Use this dialup entry'
- end
- object chkDialup: TCheckBox
- Left = 15
- Top = 28
- Width = 300
- Height = 17
- Caption = '&Use dialup connection'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object lstEntries: TComboBox
- Left = 15
- Top = 68
- Width = 186
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = lstEntriesClick
- end
- end
- end
- object cmdOk: TButton
- Left = 174
- Top = 173
- Width = 75
- Height = 25
- Caption = '&Ok'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = cmdOkClick
- end
- object cmdCancel: TButton
- Left = 256
- Top = 173
- Width = 75
- Height = 25
- Caption = '&Cancel'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = cmdCancelClick
- end
- end
-