home *** CD-ROM | disk | FTP | other *** search
- object SendMessages: TSendMessages
- Left = 136
- Top = 108
- BorderStyle = bsDialog
- Caption = 'Send messages...'
- ClientHeight = 178
- ClientWidth = 333
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Scaled = False
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 56
- Top = 56
- Width = 25
- Height = 13
- Alignment = taRightJustify
- Caption = 'User:'
- end
- object Label2: TLabel
- Left = 38
- Top = 78
- Width = 43
- Height = 13
- Alignment = taRightJustify
- Caption = 'Account:'
- end
- object Label3: TLabel
- Left = 35
- Top = 101
- Width = 46
- Height = 13
- Alignment = taRightJustify
- Caption = 'Message:'
- end
- object Button1: TButton
- Left = 248
- Top = 128
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- Default = True
- TabOrder = 0
- OnClick = Button1Click
- end
- object PanelManager1: TPanelManager
- Left = 0
- Top = 0
- Width = 333
- Height = 41
- ButtonHeight = 1
- TabHeight = 13
- TabColor = clBlack
- TabHighColor = 14013868
- TabHighLight = True
- BlackTabLine = True
- object ButtonPanel: TMPanel
- Left = 10
- Top = 0
- Width = 323
- Height = 41
- TabCaption = 'Buttons'
- ParentTabColor = True
- object LMDLabelFill1: TLMDLabelFill
- Left = 123
- Top = 1
- Width = 164
- Height = 39
- FillObject.Style = sfGradient
- FillObject.Gradient.Color = clActiveCaption
- FillObject.Gradient.ColorCount = 36
- FillObject.Gradient.Style = gstElliptic
- FillObject.Gradient.EndColor = clWhite
- Align = alRight
- Caption = 'Sending mail...'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -27
- Font.Name = 'Impact'
- Font.Style = []
- FontFx.Style = tdRaisedShadow
- ParentFont = False
- end
- object Panel3: TPanel
- Left = 287
- Top = 1
- Width = 35
- Height = 39
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 0
- object Panel16: TPanel
- Left = 1
- Top = 0
- Width = 34
- Height = 39
- Align = alRight
- BevelOuter = bvLowered
- TabOrder = 0
- object Animate1: TAnimate
- Left = 1
- Top = 1
- Width = 32
- Height = 37
- Active = False
- Align = alClient
- Color = clBtnFace
- FileName = 'Working.avi'
- ParentColor = False
- StopFrame = 24
- Transparent = False
- end
- end
- end
- end
- end
- object Edit1: TEdit
- Left = 92
- Top = 54
- Width = 230
- Height = 21
- TabOrder = 2
- end
- object Edit2: TEdit
- Left = 92
- Top = 76
- Width = 230
- Height = 21
- TabOrder = 3
- end
- object Edit3: TEdit
- Left = 92
- Top = 99
- Width = 230
- Height = 21
- TabOrder = 4
- end
- object MessageText: TSRichEdit
- Left = 16
- Top = 152
- Width = 185
- Height = 89
- TabOrder = 5
- Visible = False
- end
- object StatusB: TFriendlyStatusBar
- Left = 0
- Top = 156
- Width = 333
- Height = 22
- Panels = <
- item
- Width = 200
- end
- item
- Width = 200
- end
- item
- Width = 200
- end>
- SimplePanel = True
- object Panel14: TPanel
- Left = 632
- Top = 4
- Width = 39
- Height = 17
- BevelOuter = bvNone
- TabOrder = 0
- object LightReadingFolderInfo: TALed
- Left = 24
- Top = 2
- Width = 13
- Height = 13
- Hint = 'Busy signal...'
- end
- end
- end
- object MultiLang1: TMultiLang
- Languages = 2
- Left = 376
- Top = 56
- end
- object MultiLang2: TMultiLang
- Languages = 2
- Words.Strings = (
- '%Form%'
- 'Send messages...'
- 'Sendi p�st...'
- 'Button1'
- 'Cancel'
- 'H�tta!'
- 'PanelManager1'
- ''
- ''
- 'ButtonPanel'
- ''
- ''
- 'Panel3'
- ''
- ''
- 'Panel16'
- ''
- ''
- 'LMDLabelFill1'
- 'Sending mail...'
- 'Sendi p�stinn..'
- 'Label1'
- 'User:'
- 'Notandi:'
- 'Label2'
- 'Account:'
- 'Netfang:'
- 'Label3'
- 'Message:'
- 'P�stur:'
- 'Edit1'
- ''
- ''
- 'Edit2'
- ''
- ''
- 'Edit3'
- ''
- ''
- 'StatusB'
- ''
- ''
- '"'
- ''
- ''
- '"'
- ''
- ''
- '"'
- ''
- ''
- 'Panel14'
- ''
- ''
- 'LightReadingFolderInfo'
- ''
- ''
- '".Hint'
- 'Busy signal...'
- 'Merki: Uppteki�/ekki...')
- Left = 264
- Top = 48
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 100
- OnTimer = Timer1Timer
- Left = 240
- Top = 48
- end
- object MessageSource: TmsMessage
- ContentType = 'text/plain'
- ReturnReceipt = False
- Left = 264
- Top = 66
- end
- object SMTP: TmsSMTP
- WinsockLoaded = True
- DefaultPort = 25
- OnOpen = SMTPOpen
- OnClosing = SMTPClosing
- OnCancel = SMTPCancel
- MailMessage = MessageSource
- OnProgress = SMTPProgress
- OnPrepare = SMTPPrepare
- OnSending = SMTPSending
- OnMailSent = SMTPMailSent
- Left = 240
- Top = 71
- end
- object FormPlacement1: TFormPlacement
- IniFileName = 'tmcstat.ini'
- IniSection = 'SendMessages'
- Left = 269
- Top = 84
- end
- end
-