home *** CD-ROM | disk | FTP | other *** search
- object RecommForm: TRecommForm
- Left = 269
- Top = 137
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'Empfehlungen f�r Downloadslave'
- ClientHeight = 338
- ClientWidth = 553
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 297
- Width = 553
- Height = 41
- Align = alBottom
- TabOrder = 0
- object CloseButton: TButton
- Tag = 1
- Left = 392
- Top = 8
- Width = 150
- Height = 25
- Caption = 'Schlie�en'
- ModalResult = 1
- TabOrder = 0
- end
- object HelpButton: TButton
- Tag = 1
- Left = 280
- Top = 8
- Width = 97
- Height = 25
- Caption = 'Hilfe'
- TabOrder = 1
- OnClick = HelpButtonClick
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 553
- Height = 297
- Align = alClient
- TabOrder = 1
- object EMailEditLabel: TLabel
- Tag = 1
- Left = 20
- Top = 4
- Width = 147
- Height = 13
- Caption = 'EMail-Addresse f�r Empfehlung'
- FocusControl = EMailEdit
- end
- object RecommEmailsListLabel: TLabel
- Tag = 1
- Left = 20
- Top = 48
- Width = 248
- Height = 13
- Caption = 'Folgende Adressen erhalten eine Empfehlungs-EMail'
- FocusControl = RecommEMailsListBox
- end
- object RecommLabel: TLabel
- Tag = 1
- Left = 20
- Top = 258
- Width = 444
- Height = 13
- Caption =
- 'Downloadslave versendet Empfehlungen als EMail, beim Abschicken ' +
- 'des n�chsten Auftrages.'
- end
- object Label1: TLabel
- Tag = 1
- Left = 20
- Top = 274
- Width = 257
- Height = 13
- Caption = 'Die Empfehlungen werden in Ihrem Namen verschickt.'
- end
- object RecommEMailsListBox: TListBox
- Tag = 1
- Left = 19
- Top = 66
- Width = 358
- Height = 185
- HelpContext = 1
- ItemHeight = 13
- TabOrder = 1
- end
- object EMailEdit: TEdit
- Tag = 1
- Left = 20
- Top = 22
- Width = 357
- Height = 21
- HelpContext = 1
- TabOrder = 0
- OnChange = EMailEditChange
- end
- object RecommAddBitBtn: TBitBtn
- Tag = 1
- Left = 392
- Top = 20
- Width = 150
- Height = 25
- HelpContext = 1
- Caption = 'Hinzuf�gen'
- TabOrder = 2
- OnClick = RecommAddBitBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333FF33333333FF333993333333300033377F3333333777333993333333
- 300033F77FFF3333377739999993333333333777777F3333333F399999933333
- 33003777777333333377333993333333330033377F3333333377333993333333
- 3333333773333333333F333333333333330033333333F33333773333333C3333
- 330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
- 993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
- 333333333337733333FF3333333C333330003333333733333777333333333333
- 3000333333333333377733333333333333333333333333333333}
- NumGlyphs = 2
- end
- object RecommDeleteBitBtn: TBitBtn
- Tag = 1
- Left = 392
- Top = 66
- Width = 150
- Height = 25
- HelpContext = 1
- Caption = 'Entfernen'
- TabOrder = 3
- OnClick = RecommDeleteBitBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333FF33333333333330003333333333333777333333333333
- 300033FFFFFF3333377739999993333333333777777F3333333F399999933333
- 3300377777733333337733333333333333003333333333333377333333333333
- 3333333333333333333F333333333333330033333F33333333773333C3333333
- 330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
- 993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
- 333333377F33333333FF3333C333333330003333733333333777333333333333
- 3000333333333333377733333333333333333333333333333333}
- NumGlyphs = 2
- end
- object RecommImportBitBtn: TBitBtn
- Tag = 1
- Left = 392
- Top = 225
- Width = 150
- Height = 25
- HelpContext = 1
- Caption = 'Importieren ...'
- TabOrder = 4
- OnClick = RecommImportBitBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
- FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
- 00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
- F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
- 00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
- F033777777777337F73309999990FFF0033377777777FFF77333099999000000
- 3333777777777777333333399033333333333337773333333333333903333333
- 3333333773333333333333303333333333333337333333333333}
- NumGlyphs = 2
- end
- end
- object OpenDialog: TOpenDialog
- DefaultExt = 'TXT'
- Filter = 'Text (*.TXT)|*.TXT|All (*.*)|*.*'
- InitialDir = 'C:\'
- Options = [ofFileMustExist]
- Title = 'URLrequester'
- Left = 10
- Top = 302
- end
- end
-