home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2003 January
/
ChipCD_1.03.iso
/
zkuste
/
delphi
/
kompon
/
d567
/
MAIL2000.ZIP
/
DemoForm.dfm
/
DemoForm.txt
Wrap
Text File
|
2001-09-05
|
28KB
|
1,103 lines
object Form1: TForm1
Left = 154
Top = 82
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsDialog
Caption = 'Mail2000 Demo'
ClientHeight = 429
ClientWidth = 618
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 618
Height = 429
ActivePage = TabSheet3
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'POP3'
object Label1: TLabel
Left = 20
Top = 24
Width = 121
Height = 13
AutoSize = False
Caption = 'Host'
FocusControl = eHost
end
object Label2: TLabel
Left = 20
Top = 68
Width = 121
Height = 13
AutoSize = False
Caption = 'UserName'
FocusControl = eUsername
end
object Label3: TLabel
Left = 20
Top = 112
Width = 121
Height = 13
AutoSize = False
Caption = 'Password'
FocusControl = ePassword
end
object lStatus: TLabel
Left = 20
Top = 288
Width = 153
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Disconnected'
end
object Label4: TLabel
Left = 300
Top = 24
Width = 181
Height = 13
AutoSize = False
Caption = 'Last response (may be truncated)'
end
object Label25: TLabel
Left = 8
Top = 359
Width = 246
Height = 13
Anchors = [akLeft, akBottom]
Caption = 'Comments to: tmail2000@yahoogroups.com'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label26: TLabel
Left = 152
Top = 24
Width = 50
Height = 13
AutoSize = False
Caption = 'Port'
FocusControl = ePort
end
object Label31: TLabel
Left = 8
Top = 375
Width = 493
Height = 13
Anchors = [akLeft, akBottom]
Caption =
'Please visit and check for lastest version at http://groups.yaho' +
'o.com/group/tmail2000'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 76
Top = 200
Width = 65
Height = 13
Caption = '<- Message #'
end
object bConnect: TButton
Left = 20
Top = 160
Width = 75
Height = 25
Caption = 'Connect'
TabOrder = 4
OnClick = bConnectClick
end
object eHost: TEdit
Left = 20
Top = 40
Width = 121
Height = 21
TabOrder = 0
end
object eUsername: TEdit
Left = 20
Top = 84
Width = 121
Height = 21
TabOrder = 2
end
object ePassword: TEdit
Left = 20
Top = 128
Width = 121
Height = 21
PasswordChar = '*'
TabOrder = 3
end
object bDisconnect: TButton
Left = 104
Top = 160
Width = 77
Height = 25
Caption = 'Disconnect'
Enabled = False
TabOrder = 5
OnClick = bDisconnectClick
end
object bRetrieve: TButton
Left = 20
Top = 228
Width = 77
Height = 21
Caption = 'Retrieve'
Enabled = False
TabOrder = 9
OnClick = bRetrieveClick
end
object eMsgNum: TEdit
Left = 20
Top = 196
Width = 33
Height = 21
TabOrder = 7
Text = '1'
end
object UpDown1: TUpDown
Left = 53
Top = 196
Width = 15
Height = 21
Associate = eMsgNum
Min = 1
Position = 1
TabOrder = 8
Wrap = False
end
object ProgressBar1: TProgressBar
Left = 20
Top = 307
Width = 150
Height = 16
Anchors = [akLeft, akBottom]
Min = 0
Max = 100
TabOrder = 13
end
object ProgressBar2: TProgressBar
Left = 20
Top = 331
Width = 150
Height = 16
Anchors = [akLeft, akBottom]
Min = 0
Max = 100
TabOrder = 14
end
object ePort: TEdit
Left = 152
Top = 40
Width = 50
Height = 21
TabOrder = 1
Text = '110'
end
object mResponse: TMemo
Left = 300
Top = 40
Width = 281
Height = 325
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 15
end
object cbHeader: TCheckBox
Left = 104
Top = 230
Width = 97
Height = 17
Caption = 'Only header'
TabOrder = 10
end
object bDelete: TButton
Left = 20
Top = 256
Width = 77
Height = 21
Caption = 'Delete'
Enabled = False
TabOrder = 11
OnClick = bDeleteClick
end
object bUIDL: TButton
Left = 104
Top = 256
Width = 77
Height = 21
Caption = 'Get UIDL'
Enabled = False
TabOrder = 12
OnClick = bUIDLClick
end
object bAbort: TButton
Left = 188
Top = 160
Width = 77
Height = 25
Caption = 'Abort'
TabOrder = 6
OnClick = bAbortClick
end
end
object TabSheet2: TTabSheet
Caption = 'Message'
ImageIndex = 1
object PageControl2: TPageControl
Left = 0
Top = 0
Width = 610
Height = 401
ActivePage = TabSheet7
Align = alClient
TabOrder = 0
object TabSheet5: TTabSheet
Caption = 'Header'
ImageIndex = 1
object Label7: TLabel
Left = 20
Top = 8
Width = 121
Height = 13
AutoSize = False
Caption = 'From name'
FocusControl = eFromName
end
object Label8: TLabel
Left = 20
Top = 52
Width = 121
Height = 13
AutoSize = False
Caption = 'From address'
FocusControl = eFromAddress
end
object Label10: TLabel
Left = 308
Top = 8
Width = 121
Height = 13
AutoSize = False
Caption = 'Reply-to name'
FocusControl = eReplyName
end
object Label11: TLabel
Left = 308
Top = 52
Width = 121
Height = 13
AutoSize = False
Caption = 'Reply-to address'
FocusControl = eReplyAddress
end
object Label12: TLabel
Left = 20
Top = 96
Width = 121
Height = 13
AutoSize = False
Caption = 'Subject'
FocusControl = eSubject
end
object Label13: TLabel
Left = 308
Top = 96
Width = 97
Height = 13
AutoSize = False
Caption = 'Date'
FocusControl = dtDate
end
object Label14: TLabel
Left = 420
Top = 96
Width = 97
Height = 13
AutoSize = False
Caption = 'Time'
FocusControl = dtTime
end
object Label15: TLabel
Left = 20
Top = 208
Width = 121
Height = 13
AutoSize = False
Caption = 'To names'
end
object Label16: TLabel
Left = 308
Top = 208
Width = 121
Height = 13
AutoSize = False
Caption = 'To addresses'
end
object Label17: TLabel
Left = 20
Top = 284
Width = 121
Height = 13
Anchors = [akLeft, akBottom]
AutoSize = False
Caption = 'Cc names'
end
object Label18: TLabel
Left = 308
Top = 284
Width = 121
Height = 13
Anchors = [akLeft, akBottom]
AutoSize = False
Caption = 'Cc addresses'
end
object Label28: TLabel
Left = 20
Top = 140
Width = 121
Height = 13
AutoSize = False
Caption = 'Name (To or Cc)'
end
object Label29: TLabel
Left = 308
Top = 140
Width = 121
Height = 13
AutoSize = False
Caption = 'Address (To or Cc)'
end
object eFromName: TEdit
Left = 20
Top = 24
Width = 273
Height = 21
TabOrder = 0
end
object eFromAddress: TEdit
Left = 20
Top = 68
Width = 273
Height = 21
TabOrder = 1
end
object eReplyName: TEdit
Left = 308
Top = 24
Width = 273
Height = 21
TabOrder = 2
end
object eReplyAddress: TEdit
Left = 308
Top = 68
Width = 273
Height = 21
TabOrder = 3
end
object eSubject: TEdit
Left = 20
Top = 112
Width = 273
Height = 21
TabOrder = 4
end
object dtDate: TDateTimePicker
Left = 308
Top = 112
Width = 101
Height = 21
CalAlignment = dtaLeft
Date = 36264.335430671290000000
Time = 36264.335430671290000000
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 5
end
object dtTime: TDateTimePicker
Left = 420
Top = 112
Width = 101
Height = 21
CalAlignment = dtaLeft
Date = 36264.335430671290000000
Time = 36264.335430671290000000
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkTime
ParseInput = False
TabOrder = 6
end
object eToName: TEdit
Left = 20
Top = 156
Width = 273
Height = 21
TabOrder = 7
end
object eToAddress: TEdit
Left = 308
Top = 156
Width = 273
Height = 21
TabOrder = 8
end
object bAddTo: TButton
Left = 20
Top = 184
Width = 75
Height = 21
Caption = 'Add To'
TabOrder = 9
OnClick = bAddToClick
end
object bAddCc: TButton
Left = 100
Top = 184
Width = 75
Height = 21
Caption = 'Add Cc'
TabOrder = 10
OnClick = bAddCcClick
end
object bClearTo: TButton
Left = 180
Top = 184
Width = 75
Height = 21
Caption = 'Clear To'#39's'
TabOrder = 11
OnClick = bClearToClick
end
object bClearCc: TButton
Left = 260
Top = 184
Width = 75
Height = 21
Caption = 'Clear Cc'#39's'
TabOrder = 12
OnClick = bClearCcClick
end
object mToNames: TListBox
Left = 20
Top = 224
Width = 273
Height = 53
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ItemHeight = 14
ParentFont = False
TabOrder = 14
OnClick = mToNamesClick
end
object mToAddresses: TListBox
Left = 308
Top = 224
Width = 273
Height = 53
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ItemHeight = 14
ParentFont = False
TabOrder = 15
OnClick = mToAddressesClick
end
object mCcNames: TListBox
Left = 20
Top = 300
Width = 273
Height = 53
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ItemHeight = 14
ParentFont = False
TabOrder = 16
OnClick = mCcNamesClick
end
object mCcAddresses: TListBox
Left = 308
Top = 300
Width = 273
Height = 53
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ItemHeight = 14
ParentFont = False
TabOrder = 17
OnClick = mCcAddressesClick
end
object bSaveHeader1: TButton
Left = 468
Top = 184
Width = 115
Height = 21
Caption = 'Save fields to header'
TabOrder = 13
OnClick = bSaveHeaderClick
end
end
object TabSheet6: TTabSheet
Caption = 'Body'
ImageIndex = 2
object Label6: TLabel
Left = 20
Top = 16
Width = 121
Height = 13
AutoSize = False
Caption = 'Files'
FocusControl = lbFiles
end
object Label5: TLabel
Left = 20
Top = 252
Width = 121
Height = 13
Anchors = [akLeft, akBottom]
AutoSize = False
Caption = 'Text/html'
end
object Label9: TLabel
Left = 20
Top = 144
Width = 121
Height = 13
AutoSize = False
Caption = 'Text/plain'
end
object mTextHtml: TMemo
Left = 20
Top = 268
Width = 461
Height = 85
Anchors = [akLeft, akRight, akBottom]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 7
end
object lbFiles: TListBox
Left = 20
Top = 32
Width = 545
Height = 69
Anchors = [akLeft, akTop, akRight]
ItemHeight = 13
TabOrder = 0
end
object bSave: TButton
Left = 19
Top = 112
Width = 75
Height = 21
Anchors = [akTop, akRight]
Caption = 'Save'
TabOrder = 1
OnClick = bSaveClick
end
object bAttach: TButton
Left = 187
Top = 112
Width = 75
Height = 21
Anchors = [akTop, akRight]
Caption = 'Attach'
TabOrder = 2
OnClick = bAttachClick
end
object bHtml: TButton
Left = 491
Top = 268
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Put in msg'
TabOrder = 8
OnClick = bHtmlClick
end
object mTextPlain: TMemo
Left = 20
Top = 160
Width = 461
Height = 85
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 4
end
object bPlain: TButton
Left = 493
Top = 160
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Put in msg'
TabOrder = 5
OnClick = bPlainClick
end
object bRemove: TButton
Left = 103
Top = 112
Width = 75
Height = 21
Anchors = [akTop, akRight]
Caption = 'Remove'
TabOrder = 3
OnClick = bRemoveClick
end
object bPlainRemove: TButton
Left = 493
Top = 184
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Remove'
TabOrder = 6
OnClick = bPlainRemoveClick
end
object bHtmlRemove: TButton
Left = 491
Top = 292
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Remove'
TabOrder = 9
OnClick = bHtmlRemoveClick
end
object cbEmbedded: TCheckBox
Left = 272
Top = 114
Width = 97
Height = 17
Caption = 'Embedded'
TabOrder = 10
end
end
object TabSheet4: TTabSheet
Caption = 'Source'
object Label19: TLabel
Left = 20
Top = 16
Width = 121
Height = 13
AutoSize = False
Caption = 'Header'
FocusControl = eFromName
end
object Label20: TLabel
Left = 453
Top = 16
Width = 121
Height = 13
Anchors = [akTop, akRight]
AutoSize = False
Caption = 'Label'
FocusControl = eLabel
end
object Label21: TLabel
Left = 453
Top = 60
Width = 121
Height = 13
Anchors = [akTop, akRight]
AutoSize = False
Caption = 'Value'
FocusControl = eValue
end
object Label22: TLabel
Left = 20
Top = 148
Width = 313
Height = 13
AutoSize = False
Caption = 'Body source (may be truncated - rebuild body to see the changes)'
FocusControl = eFromName
end
object mHeader: TMemo
Left = 20
Top = 32
Width = 410
Height = 105
Anchors = [akLeft, akTop, akRight]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
end
object eLabel: TEdit
Left = 453
Top = 32
Width = 120
Height = 21
Anchors = [akTop, akRight]
TabOrder = 1
end
object eValue: TEdit
Left = 453
Top = 76
Width = 120
Height = 21
Anchors = [akTop, akRight]
TabOrder = 2
end
object bLabel: TButton
Left = 453
Top = 112
Width = 57
Height = 25
Anchors = [akTop, akRight]
Caption = 'Set'
TabOrder = 3
OnClick = bLabelClick
end
object bDelLabel: TButton
Left = 520
Top = 112
Width = 54
Height = 25
Anchors = [akTop, akRight]
Caption = 'Delete'
TabOrder = 4
OnClick = bDelLabelClick
end
object mBody: TMemo
Left = 20
Top = 164
Width = 410
Height = 185
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 5
end
object bRebuild: TButton
Left = 452
Top = 212
Width = 121
Height = 25
Hint = 'Rebuild the body source'
Anchors = [akRight, akBottom]
Caption = 'Rebuild body'
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = bRebuildClick
end
object bReset: TButton
Left = 452
Top = 240
Width = 121
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Reset message'
TabOrder = 9
OnClick = bResetClick
end
object bRefresh: TButton
Left = 452
Top = 268
Width = 121
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Refresh screen'
TabOrder = 10
OnClick = bRefreshClick
end
object bSaveMsg: TButton
Left = 452
Top = 296
Width = 121
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Save to file'
TabOrder = 11
OnClick = bSaveMsgClick
end
object bLoadMsg: TButton
Left = 452
Top = 324
Width = 121
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Load from file'
TabOrder = 12
OnClick = bLoadMsgClick
end
object bNormalize: TButton
Left = 452
Top = 184
Width = 121
Height = 25
Hint = 'Reformat message in Mail2000 format'
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = 'Normalize'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = bNormalizeClick
end
object bFindParts: TButton
Left = 452
Top = 156
Width = 121
Height = 25
Hint = 'Identify texts and attachments'
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = 'Find Parts'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = bFindPartsClick
end
end
object TabSheet7: TTabSheet
Caption = 'Hops'
ImageIndex = 3
object mHops: TMemo
Left = 0
Top = 0
Width = 602
Height = 373
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
end
end
end
end
object TabSheet3: TTabSheet
Caption = 'SMTP'
ImageIndex = 2
object Label23: TLabel
Left = 20
Top = 24
Width = 121
Height = 13
AutoSize = False
Caption = 'Host'
FocusControl = eSmtpHost
end
object Label24: TLabel
Left = 300
Top = 24
Width = 121
Height = 13
AutoSize = False
Caption = 'Last response'
end
object Label27: TLabel
Left = 152
Top = 24
Width = 50
Height = 13
AutoSize = False
Caption = 'Port'
FocusControl = eSmtpPort
end
object lSmtpStatus: TLabel
Left = 20
Top = 312
Width = 157
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Disconnected'
end
object eSmtpHost: TEdit
Left = 20
Top = 40
Width = 121
Height = 21
TabOrder = 0
end
object bSmtpConnect: TButton
Left = 20
Top = 84
Width = 81
Height = 25
Caption = 'Connect'
TabOrder = 2
OnClick = bSmtpConnectClick
end
object bSmtpDisconnect: TButton
Left = 20
Top = 148
Width = 81
Height = 25
Caption = 'Disconnect'
Enabled = False
TabOrder = 4
OnClick = bSmtpDisconnectClick
end
object bSend: TButton
Left = 20
Top = 116
Width = 81
Height = 25
Caption = 'Send'
Enabled = False
TabOrder = 3
OnClick = bSendClick
end
object ProgressBar3: TProgressBar
Left = 20
Top = 330
Width = 150
Height = 16
Anchors = [akLeft, akBottom]
Min = 0
Max = 100
TabOrder = 5
end
object eSmtpPort: TEdit
Left = 152
Top = 40
Width = 50
Height = 21
TabOrder = 1
Text = '25'
end
object mSmtpResponse: TMemo
Left = 300
Top = 40
Width = 281
Height = 325
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 6
end
object bSmtpAbort: TButton
Left = 20
Top = 180
Width = 81
Height = 25
Caption = 'Abort'
TabOrder = 7
OnClick = bSmtpAbortClick
end
end
end
object OpenDialog: TOpenDialog
DefaultExt = 'eml'
Filter = 'All files (*.*)|*.*|Mail (*.eml)|*.eml'
Left = 480
end
object POP: TPOP2000
Port = 8110
MailMessage = Msg
TimeOut = 60
OnProgress = POPProgress
DeleteOnRetrieve = False
Left = 516
end
object SMTP: TSMTP2000
Port = 25
TimeOut = 60
MailMessage = Msg
PacketSize = 102400
OnProgress = SMTPProgress
Left = 548
end
object SaveDialog: TSaveDialog
DefaultExt = 'eml'
Filter = 'All files (*.*)|*.*|Mail (*.eml)|*.eml'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofShareAware, ofEnableSizing]
Left = 448
end
object Msg: TMailMessage2000
Charset = 'iso-8859-1'
TextEncoding = etQuotedPrintable
OnProgress = MsgProgress
Left = 580
end
end
