home *** CD-ROM | disk | FTP | other *** search
- object frmDeletePrev: TfrmDeletePrev
- Left = 250
- Top = 218
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Spam Exterminator -- Preview Message Before Deletion'
- ClientHeight = 309
- ClientWidth = 507
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 56
- Top = 12
- Width = 409
- Height = 26
- Caption =
- 'You have requested that the following messages be previewed befo' +
- 're deletion, please uncheck the items that you wish to save. Wh' +
- 'en ready press '#39'Continue'#39'.'
- WordWrap = True
- end
- object Image2: TImage
- Left = 16
- Top = 12
- Width = 33
- Height = 37
- Picture.Data = {<image000.ico>}
- end
- object Label2: TLabel
- Left = 16
- Top = 244
- Width = 246
- Height = 13
- Caption = 'WARNING: Checked items will be deleted. '
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Button2: TButton
- Left = 428
- Top = 280
- Width = 71
- Height = 23
- Caption = 'Continue'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object lstVRem: TListView
- Left = 12
- Top = 60
- Width = 485
- Height = 177
- Hint = 'Double-Click to view the message.'
- OnDblClick = lstVRemDblClick
- Columns = <
- item
- Caption = 'Subject'
- Width = 180
- end
- item
- Caption = 'From'
- Width = 140
- end
- item
- Caption = 'Date / Time'
- Width = 100
- end>
- Checkboxes = True
- RowSelect = True
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- ViewStyle = vsReport
- end
- object Button1: TButton
- Left = 156
- Top = 280
- Width = 263
- Height = 23
- Cancel = True
- Caption = 'Don'#39't delete anything I'#39'll Deal with this later (esc.)'
- ModalResult = 1
- TabOrder = 2
- OnClick = Button1Click
- end
- object msMessage1: TmsMessage
- ContentType = 'text/plain'
- ReturnReceipt = False
- Left = 16
- Top = 280
- end
- end
-