object Report: TppReport
  OnFileDeviceCreate = ReportFileDeviceCreate
  AutoStop = False
  DataPipeline = dmPipelines.ppKurse
  PassSetting = psTwoPass
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = 'Kursliste mit EMail-Adressen per EMail (Excel) - 20191016.rtk'
  PrinterSetup.Duplex = dpNone
  PrinterSetup.PaperName = 'A4'
  PrinterSetup.PrinterName = 'PDFCreator'
  PrinterSetup.SaveDeviceSettings = False
  PrinterSetup.mmMarginBottom = 6350
  PrinterSetup.mmMarginLeft = 6350
  PrinterSetup.mmMarginRight = 6350
  PrinterSetup.mmMarginTop = 6350
  PrinterSetup.mmPaperHeight = 297127
  PrinterSetup.mmPaperWidth = 210079
  PrinterSetup.PaperSize = 9
  SaveAsTemplate = True
  Template.FileName = 
    'H:\Pascal-Gymnasium Muenster\Verwaltung Pascal-Gymnasium - DB\DB' +
    '\Kurs42\reports\Kursliste mit EMail-Adressen per EMail (Excel) -' +
    ' 20191016.rtk'
  Template.Format = ftASCII
  AllowPrintToArchive = True
  AllowPrintToFile = True
  ArchiveFileName = '($MyDocuments)\ReportArchive.raf'
  DeviceType = 'XlsxReport'
  DefaultFileDeviceType = 'XlsxReport'
  EmailSettings.ReportFormat = 'PDF'
  EmailSettings.BlindCarbonCopy.Strings = (
    'kurslisten@pascal-gym.de')
  EmailSettings.DeleteFile = False
  EmailSettings.ShowEmailDialog = True
  EmailSettings.FileName = '_'
  LanguageID = 'Default'
  OnPreviewFormCreate = ReportPreviewFormCreate
  OpenFile = True
  OutlineSettings.CreateNode = True
  OutlineSettings.CreatePageNodes = True
  OutlineSettings.Enabled = False
  OutlineSettings.Visible = False
  ThumbnailSettings.Enabled = True
  ThumbnailSettings.Visible = True
  ThumbnailSettings.DeadSpace = 30
  ThumbnailSettings.PageHighlight.Width = 3
  PDFSettings.Author = 'Kurs 42'
  PDFSettings.EmbedFontOptions = [efUseSubset]
  PDFSettings.EncryptSettings.AllowCopy = True
  PDFSettings.EncryptSettings.AllowInteract = True
  PDFSettings.EncryptSettings.AllowModify = True
  PDFSettings.EncryptSettings.AllowPrint = True
  PDFSettings.EncryptSettings.AllowExtract = True
  PDFSettings.EncryptSettings.AllowAssemble = True
  PDFSettings.EncryptSettings.AllowQualityPrint = True
  PDFSettings.EncryptSettings.Enabled = False
  PDFSettings.EncryptSettings.KeyLength = kl40Bit
  PDFSettings.EncryptSettings.EncryptionType = etRC4
  PDFSettings.FontEncoding = feAnsi
  PDFSettings.ImageCompressionLevel = 25
  PDFSettings.PDFAFormat = pafNone
  PreviewFormSettings.PageBorder.mmPadding = 0
  PreviewFormSettings.SinglePageOnly = True
  PreviewFormSettings.ZoomSetting = zs100Percent
  RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
  RTFSettings.DefaultFont.Color = clWindowText
  RTFSettings.DefaultFont.Height = -13
  RTFSettings.DefaultFont.Name = 'Arial'
  RTFSettings.DefaultFont.Style = []
  ShowPrintDialog = False
  TextFileName = '($MyDocuments)\Report.xlsx'
  TextSearchSettings.DefaultString = '<Suchtext>'
  TextSearchSettings.Enabled = False
  XLSSettings.AppName = 'ReportBuilder'
  XLSSettings.Author = 'ReportBuilder'
  XLSSettings.Subject = 'Report'
  XLSSettings.Title = 'Report'
  XLSSettings.WorksheetName = 'Report'
  Left = 48
  Top = 24
  Version = '19.04'
  mmColumnWidth = 0
  DataPipelineName = 'ppKurse'
  object ppHeaderBand1: TppHeaderBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 20373
    mmPrintPosition = 0
    object ppRichText1: TppRichText
      DesignLayer = ppDesignLayer3
      UserName = 'RichText1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Calibri'
      Font.Size = 10
      Font.Style = [fsItalic]
      Border.mmPadding = 0
      Caption = 'RichText1'
      ExportRTFAsBitmap = False
      RichText = 
        '{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil Cali' +
        'bri;}{\f1\fnil\fcharset0 Calibri;}}'#13#10'{\colortbl ;\red0\green0\bl' +
        'ue0;}'#13#10'\viewkind4\uc1\pard\cf1\i\f0\fs20 Hinweis:\par'#13#10'\f1 Die K' +
        'ursart (s/m) muss unbedingt am Anfang des Halbjahres \'#39'fcberpr\'#39 +
        'fcft werden. Die Kursart (s/m) kann jedoch nicht vom Fachlehrer ' +
        'ge\'#39'e4ndert werden! S\'#39'e4mtliche \'#39'c4nderungen laufen ausschlie\' +
        #39'dflich \'#39'fcber die Jahrgangsstufenleiter. Weisen Sie die Sch\'#39'f' +
        'clerInnen bitte darauf hin!\f0\par'#13#10'}'#13#10#0
      RemoveEmptyLines = False
      Transparent = True
      mmHeight = 19050
      mmLeft = 2117
      mmTop = 1323
      mmWidth = 189707
      BandType = 0
      LayerName = Foreground2
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
    end
  end
  object ppDetailBand1: TppDetailBand
    Background1.Brush.Style = bsClear
    Background2.Brush.Style = bsClear
    Border.mmPadding = 0
    PrintHeight = phDynamic
    mmBottomOffset = 0
    mmHeight = 8202
    mmPrintPosition = 0
    object ppSubReport1: TppSubReport
      DesignLayer = ppDesignLayer3
      UserName = 'SubReport1'
      ExpandAll = False
      NewPrintJob = False
      OutlineSettings.CreateNode = True
      ParentWidth = False
      TraverseAllData = False
      DataPipelineName = 'ppKursteilnehmer'
      mmHeight = 6085
      mmLeft = 2117
      mmTop = 0
      mmWidth = 189707
      BandType = 4
      LayerName = Foreground2
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
      object ppChildReport1: TppChildReport
        AutoStop = False
        DataPipeline = dmPipelines.ppKursteilnehmer
        PrinterSetup.BinName = 'Default'
        PrinterSetup.DocumentName = 'Kursliste mit EMail-Adressen per EMail (Excel) - 20191016.rtk'
        PrinterSetup.Duplex = dpNone
        PrinterSetup.PaperName = 'A4'
        PrinterSetup.PrinterName = 'PDFCreator'
        PrinterSetup.SaveDeviceSettings = False
        PrinterSetup.mmMarginBottom = 6350
        PrinterSetup.mmMarginLeft = 6350
        PrinterSetup.mmMarginRight = 6350
        PrinterSetup.mmMarginTop = 6350
        PrinterSetup.mmPaperHeight = 297127
        PrinterSetup.mmPaperWidth = 210079
        PrinterSetup.PaperSize = 9
        Template.Format = ftASCII
        Version = '19.04'
        mmColumnWidth = 0
        DataPipelineName = 'ppKursteilnehmer'
        object ppTitleBand1: TppTitleBand
          Background.Brush.Style = bsClear
          Border.mmPadding = 0
          mmBottomOffset = 0
          mmHeight = 7144
          mmPrintPosition = 0
          object ppLabel10: TppLabel
            DesignLayer = ppDesignLayer2
            UserName = 'Label9'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            Caption = 'Nr.'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
            FormFieldSettings.FormFieldType = fftNone
            TextAlignment = taCentered
            Transparent = True
            mmHeight = 4763
            mmLeft = 6350
            mmTop = 1852
            mmWidth = 4498
            BandType = 1
            LayerName = Foreground1
          end
          object ppLabel11: TppLabel
            DesignLayer = ppDesignLayer2
            UserName = 'Label10'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            Caption = 'Name'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
            FormFieldSettings.FormFieldType = fftNone
            TextAlignment = taRightJustified
            Transparent = True
            mmHeight = 4784
            mmLeft = 14902
            mmTop = 1852
            mmWidth = 9440
            BandType = 1
            LayerName = Foreground1
          end
          object ppLabel12: TppLabel
            DesignLayer = ppDesignLayer2
            UserName = 'Label11'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            Caption = 'Jg.'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
            FormFieldSettings.FormFieldType = fftNone
            TextAlignment = taCentered
            Transparent = True
            mmHeight = 4784
            mmLeft = 96573
            mmTop = 1852
            mmWidth = 4022
            BandType = 1
            LayerName = Foreground1
          end
          object ppLabel15: TppLabel
            DesignLayer = ppDesignLayer2
            UserName = 'Label14'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            Caption = 'Bemerkung'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
            FormFieldSettings.FormFieldType = fftNone
            TextAlignment = taCentered
            Transparent = True
            mmHeight = 4763
            mmLeft = 124090
            mmTop = 1852
            mmWidth = 20902
            BandType = 1
            LayerName = Foreground1
          end
          object ppLabel17: TppLabel
            DesignLayer = ppDesignLayer2
            UserName = 'Label3'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            Caption = 'Kursart'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
            FormFieldSettings.FormFieldType = fftNone
            Transparent = True
            mmHeight = 4763
            mmLeft = 105834
            mmTop = 1852
            mmWidth = 11377
            BandType = 1
            LayerName = Foreground1
          end
        end
        object ppDetailBand3: TppDetailBand
          Background1.Brush.Style = bsClear
          Background2.Brush.Style = bsClear
          Border.mmPadding = 0
          mmBottomOffset = 0
          mmHeight = 6879
          mmPrintPosition = 0
          object ppDBText2: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText2'
            AutoSize = True
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'NameVorname'
            DataPipeline = dmPipelines.ppKursteilnehmer
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            Transparent = True
            DataPipelineName = 'ppKursteilnehmer'
            mmHeight = 4762
            mmLeft = 14817
            mmTop = 1323
            mmWidth = 28310
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBCalc1: TppDBCalc
            DesignLayer = ppDesignLayer2
            UserName = 'DBCalc1'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'IdNr'
            DataPipeline = dmPipelines.ppKursteilnehmer
            DisplayFormat = '#0"."'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            TextAlignment = taRightJustified
            Transparent = True
            DBCalcType = dcCount
            DataPipelineName = 'ppKursteilnehmer'
            mmHeight = 4763
            mmLeft = 1323
            mmTop = 1323
            mmWidth = 9525
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText8: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText8'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'IndKursart'
            DataPipeline = dmPipelines.ppKursteilnehmer
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'ppKursteilnehmer'
            mmHeight = 4784
            mmLeft = 105304
            mmTop = 1323
            mmWidth = 13229
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText4: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText4'
            Border.mmPadding = 0
            DataField = 'Geschlecht'
            DataPipeline = dmPipelines.ppKursteilnehmer
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'ppKursteilnehmer'
            mmHeight = 4784
            mmLeft = 85990
            mmTop = 1323
            mmWidth = 7408
            BandType = 4
            LayerName = Foreground1
          end
          object ppLabel6: TppLabel
            DesignLayer = ppDesignLayer2
            UserName = 'Label6'
            Border.mmPadding = 0
            Caption = 'Label6'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 10
            Font.Style = []
            FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
            FormFieldSettings.FormFieldType = fftNone
            Transparent = True
            mmHeight = 4233
            mmLeft = 122767
            mmTop = 1587
            mmWidth = 9260
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText3: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText3'
            Border.Weight = 1.000000000000000000
            Border.mmPadding = 0
            DataField = 'Jahrgang'
            DataPipeline = dmPipelines.ppKursteilnehmer
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'ppKursteilnehmer'
            mmHeight = 4763
            mmLeft = 92869
            mmTop = 1323
            mmWidth = 10319
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText5: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText5'
            Border.mmPadding = 0
            DataField = 'Name'
            DataPipeline = dmPipelines.ppKursteilnehmer
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            Transparent = True
            DataPipelineName = 'ppKursteilnehmer'
            mmHeight = 4763
            mmLeft = 33073
            mmTop = 1323
            mmWidth = 17198
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText6: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText6'
            Border.mmPadding = 0
            DataField = 'Vorname'
            DataPipeline = dmPipelines.ppKursteilnehmer
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            Transparent = True
            DataPipelineName = 'ppKursteilnehmer'
            mmHeight = 4763
            mmLeft = 51858
            mmTop = 1323
            mmWidth = 17198
            BandType = 4
            LayerName = Foreground1
          end
          object ppDBText7: TppDBText
            DesignLayer = ppDesignLayer2
            UserName = 'DBText7'
            HyperlinkEnabled = False
            Border.mmPadding = 0
            DataField = 'EMail'
            DataPipeline = dmPipelines.ppSchueler
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = 'Calibri'
            Font.Size = 11
            Font.Style = []
            ParentDataPipeline = False
            Transparent = True
            DataPipelineName = 'ppSchueler'
            mmHeight = 4498
            mmLeft = 70379
            mmTop = 1323
            mmWidth = 13229
            BandType = 4
            LayerName = Foreground1
          end
        end
        object raCodeModule1: TraCodeModule
          object raProgramInfo1: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'DBText8OnGetText'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure DBText8OnGetText(var Text: String);'#13#10'begin'#13#10#13#10'  If Tex' +
              't = '#39'GKS'#39' Then Text := '#39's'#39';'#13#10'  If Text = '#39'GKM'#39' Then Text := '#39'm'#39';' +
              #13#10'        '#13#10'end;'#13#10
            raProgram.ComponentName = 'DBText8'
            raProgram.EventName = 'OnGetText'
            raProgram.EventID = 53
          end
          object raProgramInfo4: TraProgramInfo
            raClassName = 'TraEventHandler'
            raProgram.ProgramName = 'Label6OnGetText'
            raProgram.ProgramType = ttProcedure
            raProgram.Source = 
              'procedure Label6OnGetText(var Text: String);'#13#10'begin'#13#10#13#10'  If Kurs' +
              'teilnehmer['#39'Klasse'#39'] = '#39'K1'#39' Then Text := '#39'Schlaun-Gymnasium'#39#13#10'  ' +
              'else If Kursteilnehmer['#39'Klasse'#39'] = '#39'K2'#39' Then Text := '#39'Rats-Gymna' +
              'sium'#39#13#10'  else If Kursteilnehmer['#39'Klasse'#39'] = '#39'K3'#39' Then Text := '#39'S' +
              'chiller-Gymnasium'#39#13#10'  else If Kursteilnehmer['#39'Klasse'#39'] = '#39'K4'#39' Th' +
              'en Text := '#39'Gymnasium Kinderhaus'#39#13#10'  else Text := '#39#39';'#13#10#13#10'end;'#13#10
            raProgram.ComponentName = 'Label6'
            raProgram.EventName = 'OnGetText'
            raProgram.EventID = 53
            raProgram.CaretPos = (
              1
              2)
          end
        end
        object ppDesignLayers2: TppDesignLayers
          object ppDesignLayer2: TppDesignLayer
            UserName = 'Foreground1'
            LayerType = ltBanded
            Index = 0
          end
        end
      end
    end
  end
  object ppFooterBand1: TppFooterBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 0
    mmPrintPosition = 0
  end
  object ppGroup2: TppGroup
    BreakName = 'Lehrer'
    DataPipeline = dmPipelines.ppKurse
    GroupFileSettings.NewFile = True
    GroupFileSettings.EmailFile = True
    OutlineSettings.CreateNode = True
    NewPage = True
    StartOnOddPage = False
    UserName = 'Group2'
    mmNewColumnThreshold = 0
    mmNewPageThreshold = 0
    DataPipelineName = 'ppKurse'
    NewFile = True
    object ppGroupHeaderBand2: TppGroupHeaderBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppGroupFooterBand2: TppGroupFooterBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      HideWhenOneDetail = False
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
  end
  object ppGroup1: TppGroup
    BreakName = 'Idnr'
    DataPipeline = dmPipelines.ppKurse
    GroupFileSettings.NewFile = False
    GroupFileSettings.EmailFile = False
    OutlineSettings.CreateNode = True
    NewPage = True
    StartOnOddPage = False
    UserName = 'Group1'
    mmNewColumnThreshold = 0
    mmNewPageThreshold = 0
    DataPipelineName = 'ppKurse'
    NewFile = False
    object ppGroupHeaderBand1: TppGroupHeaderBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      mmBottomOffset = 0
      mmHeight = 6879
      mmPrintPosition = 0
      object ppLabel8: TppLabel
        DesignLayer = ppDesignLayer3
        UserName = 'Label8'
        Border.Weight = 1.000000000000000000
        Border.mmPadding = 0
        Caption = 'Kurs:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Calibri'
        Font.Size = 11
        Font.Style = [fsBold]
        FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
        FormFieldSettings.FormFieldType = fftNone
        Transparent = True
        mmHeight = 4763
        mmLeft = 2117
        mmTop = 1058
        mmWidth = 8202
        BandType = 3
        GroupNo = 1
        LayerName = Foreground2
      end
      object ppDBText1: TppDBText
        DesignLayer = ppDesignLayer3
        UserName = 'DBText1'
        AutoSize = True
        Border.Weight = 1.000000000000000000
        Border.mmPadding = 0
        DataField = 'Bezeichnung'
        DataPipeline = dmPipelines.ppKurse
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Calibri'
        Font.Size = 11
        Font.Style = [fsBold]
        Transparent = True
        DataPipelineName = 'ppKurse'
        mmHeight = 4763
        mmLeft = 21167
        mmTop = 1058
        mmWidth = 11377
        BandType = 3
        GroupNo = 1
        LayerName = Foreground2
      end
    end
    object ppGroupFooterBand1: TppGroupFooterBand
      Background.Brush.Style = bsClear
      Border.mmPadding = 0
      HideWhenOneDetail = False
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
  end
  object raCodeModule2: TraCodeModule
    object raProgramInfo5: TraProgramInfo
      raClassName = 'TraVarProgram'
      raProgram.ChildType = 17
      raProgram.ProgramName = 'Variables'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Variables;'#13#10'var'#13#10'             rueckdatum:String;'#13#10'    ' +
        ' D,T1,T2 : DateTime;'#13#10#13#10'begin'#13#10#13#10'end;'#13#10
    end
    object raProgramInfo6: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'Group2OnGetEmailSettings'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Group2OnGetEmailSettings(EmailSettings: TObject);'#13#10#13#10'b' +
        'egin'#13#10#13#10'//TppEMailsettings(EMailSettings).Recipients.Clear;'#13#10'Tpp' +
        'EMailsettings(EMailSettings).Recipients.Add(Kurse['#39'LehrerEmail'#39']' +
        ');'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'Group2'
      raProgram.EventName = 'OnGetEmailSettings'
      raProgram.EventID = 157
      raProgram.CaretPos = (
        3
        5)
    end
    object raProgramInfo7: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportOnInitializeParameters'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure ReportOnInitializeParameters(var aCancel: Boolean);'#13#10#13 +
        #10'begin'#13#10'//Report.ShowPrintDialog:=False;'#13#10'//Report.TextFileName:' +
        '='#39'_'#39';'#13#10'//Report.EMailSettings.DeleteFile:=True;'#13#10'{'#13#10'Standardm'#228#223'i' +
        'g werden die Reports als PDF-Dateien versendet. Wer etwas'#13#10'ander' +
        'es, z.B. Textdateien, versenden m'#246'chte, muss das an dieser Stell' +
        'e'#13#10'festlegen, damit die Standardeinstellung '#252'berschrieben wird.'#13 +
        #10'Als '#39'DeviceType bzw. Reportformat k'#246'nnen die folgenden (geteste' +
        'ten)'#13#10'Textkonstanten verwendet werden:'#13#10#39'PDF'#39' PDF- Datei'#13#10#39'TextF' +
        'ile'#39' Textdatei'#13#10#39'ReportTextFile'#39' Textdatei mit Berichtsemulation' +
        #13#10#39'RTF'#39' Richtext (nur bedingt zu empfehlen)'#13#10#39'XLSData'#39' Excel {ex' +
        'portiert nur Daten)'#13#10#39'XLSReport'#39' Excel mit Berichtsemulation (em' +
        'pfehlenswert)'#13#10'}'#13#10'//Report.DeviceType:='#39'XLSReport'#39';'#13#10'//Report.EM' +
        'ailSettings.ReportFormat:='#39'XLSReport'#39';'#13#10'{'#13#10'Wenn der Nachrichtent' +
        'ext f'#252'r alle Mailempf'#228'nger gleich sein soll, kann er'#13#10'hier direk' +
        't festgelegt werden:'#13#10'}'#13#10'Report.EMailSettings.Body.Clear;'#13#10'Repor' +
        't.EMailSettings.Body.Add('#39'Als Anhang erhalten Sie eine aktuelle ' +
        'Kursliste im XLS-Format inklusive der EMail-Adressen der SuS.'#39');' +
        #13#10'{'#13#10'Eine Basis '#8211' Betreffzeile sollte schon hier festgelegt werd' +
        'en, weil die'#13#10'Gruppen-Betreffzeile aus dem hier festgelegten Bet' +
        'reff plus dem'#13#10'Dateinamen der Ausgabedatei gebildet wird.'#13#10'}'#13#10'Re' +
        'port.EmailSettings.Subject:='#39'Kursliste im Excel-Format: Jahrgang' +
        ' '#39'+Kurse['#39'Jahrgang'#39']+'#39' -'#39';'#13#10'end;'#13#10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'OnInitializeParameters'
      raProgram.EventID = 136
      raProgram.CaretPos = (
        50
        7)
    end
    object raProgramInfo8: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'Group1OnGetFileSuffix'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Group1OnGetFileSuffix(var SuffixValue: String);'#13#10'begin' +
        #13#10#13#10'{'#13#10'Da die Ausgabedatei nach dem Versand gel'#246'scht wird, ist e' +
        's unn'#246'tig, ein'#13#10'spezielles Ausgabeverzeichnis anzugeben.'#13#10'Die Da' +
        'teiendung wird automatisch angef'#252'gt.'#13#10'}'#13#10'//SuffixValue:=Kurse['#39'L' +
        'ehrer'#39'] + '#39'_'#39' +Kurse['#39'Jahrgang'#39']+ '#39'_'#39' +Kurse['#39'Bezeichnung'#39'];'#13#10#13#10 +
        #13#10'end;'#13#10
      raProgram.ComponentName = 'Group1'
      raProgram.EventName = 'OnGetFileSuffix'
      raProgram.EventID = 156
      raProgram.CaretPos = (
        3
        9)
    end
    object raProgramInfo9: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'Group2OnGetFileSuffix'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Group2OnGetFileSuffix(var SuffixValue: String);'#13#10'begin' +
        #13#10'{'#13#10'Da die Ausgabedatei nach dem Versand gel'#246'scht wird, ist es ' +
        'unn'#246'tig, ein'#13#10'spezielles Ausgabeverzeichnis anzugeben.'#13#10'Die Date' +
        'iendung wird automatisch angef'#252'gt.'#13#10'}'#13#10'SuffixValue:=Kurse['#39'Lehre' +
        'r'#39'] ;'#13#10'{oder in Kurs 42'#13#10'SuffixValue:=Kurse['#39'LehrerName'#39'] + '#39'_'#39' ' +
        '+ Kurse['#39'LehrerVorname'#39'];}'#13#10'end;'#13#10
      raProgram.ComponentName = 'Group2'
      raProgram.EventName = 'OnGetFileSuffix'
      raProgram.EventID = 156
      raProgram.CaretPos = (
        3
        3)
    end
  end
  object ppDesignLayers3: TppDesignLayers
    object ppDesignLayer3: TppDesignLayer
      UserName = 'Foreground2'
      LayerType = ltBanded
      Index = 0
    end
  end
  object ppParameterList1: TppParameterList
  end
end