home *** CD-ROM | disk | FTP | other *** search
- object FrmMessage: TFrmMessage
- Left = 206
- Top = 95
- HelpContext = 9110
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'Intercent bericht'
- ClientHeight = 289
- ClientWidth = 361
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object BtnOk: TBitBtn
- Left = 164
- Top = 256
- Width = 90
- Height = 25
- HelpContext = 9112
- Caption = 'Op&halen'
- Default = True
- TabOrder = 1
- OnClick = BtnOkClick
- NumGlyphs = 2
- end
- object BtnCancel: TBitBtn
- Left = 64
- Top = 256
- Width = 90
- Height = 25
- HelpContext = 9910
- Cancel = True
- Caption = '&Sluiten'
- TabOrder = 0
- OnClick = BtnCancelClick
- NumGlyphs = 2
- end
- object BtnSave: TBitBtn
- Left = 264
- Top = 256
- Width = 90
- Height = 25
- HelpContext = 9111
- Cancel = True
- Caption = '&Opslaan'
- TabOrder = 2
- OnClick = BtnSaveClick
- NumGlyphs = 2
- end
- object Red: TRichEdit
- Left = 8
- Top = 8
- Width = 345
- Height = 233
- HelpContext = 9110
- Color = clNavy
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- PlainText = True
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 3
- WordWrap = False
- end
- object RedPreview: TRichEdit
- Left = 8
- Top = 80
- Width = 345
- Height = 89
- Lines.Strings = (
- 'RedPreview')
- PlainText = True
- TabOrder = 4
- Visible = False
- end
- object PanStatus: TPanel
- Left = 10
- Top = 208
- Width = 343
- Height = 33
- HelpContext = 9110
- BevelOuter = bvLowered
- Caption = 'Controleren op nieuwe berichten...'
- TabOrder = 5
- Visible = False
- end
- object DlgSave: TSaveDialog
- DefaultExt = '*.txt'
- FileEditStyle = fsEdit
- Filter = 'Tekstbestanden|*.txt'
- Options = [ofHideReadOnly]
- Title = 'Bericht opslaan als...'
- Left = 32
- Top = 232
- end
- object Web: T_HTTP
- URL = 'http://www.xs4all.nl/~finiware/intercent.msg'
- NoCache = True
- ContentTypePost = 'application/x-www-form-urlencoded'
- Left = 32
- Top = 256
- end
- end
-