object QRListForm: TQRListForm Left = 0 Top = 0 Width = 794 Height = 1123 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False DataSet = Form1.VideoDataSet Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Options = [LastPageFooter] Page.Columns = 1 Page.Orientation = poPortrait Page.PaperSize = A4 Page.Values = ( 100.000000000000000000 2970.000000000000000000 100.000000000000000000 2100.000000000000000000 150.000000000000000000 100.000000000000000000 0.000000000000000000) PrintIfEmpty = False PrinterSettings.Copies = 1 PrinterSettings.Duplex = False PrinterSettings.FirstPage = 0 PrinterSettings.LastPage = 0 PrinterSettings.OutputBin = First ReportTitle = 'Videokortisto' SnapToGrid = True Units = MM Zoom = 100 object DetailBand1: TQRBand Left = 57 Top = 112 Width = 700 Height = 24 Frame.Color = clBlack Frame.DrawTop = True Frame.DrawBottom = True Frame.DrawLeft = True Frame.DrawRight = True AlignToBottom = False Color = clWhite ForceNewColumn = False ForceNewPage = False Size.Values = ( 63.500000000000000000 1852.083333333333000000) BandType = rbDetail object QRDBText1: TQRDBText Left = 11 Top = 3 Width = 65 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 29.104166666666670000 7.937500000000000000 171.979166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Form1.VideoDataSet DataField = 'TapeNr' Transparent = False WordWrap = True FontSize = 10 end object QRDBText2: TQRDBText Left = 88 Top = 3 Width = 289 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 232.833333333333400000 7.937500000000000000 764.645833333333400000) Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Form1.VideoDataSet DataField = 'Titel' Transparent = False WordWrap = True FontSize = 10 end object QRDBText3: TQRDBText Left = 384 Top = 3 Width = 89 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1016.000000000000000000 7.937500000000000000 235.479166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Form1.VideoDataSet DataField = 'Kategori' Transparent = False WordWrap = True FontSize = 10 end object QRDBText4: TQRDBText Left = 480 Top = 3 Width = 65 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1270.000000000000000000 7.937500000000000000 171.979166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Form1.VideoDataSet DataField = 'Start' Transparent = False WordWrap = True FontSize = 10 end object QRDBText5: TQRDBText Left = 552 Top = 3 Width = 65 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1460.500000000000000000 7.937500000000000000 171.979166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Form1.VideoDataSet DataField = 'Slut' Transparent = False WordWrap = True FontSize = 10 end object QRDBText6: TQRDBText Left = 624 Top = 3 Width = 65 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1651.000000000000000000 7.937500000000000000 171.979166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Form1.VideoDataSet DataField = 'Varighed' Transparent = False WordWrap = True FontSize = 10 end end object PageFooterBand1: TQRBand Left = 57 Top = 136 Width = 700 Height = 24 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite ForceNewColumn = False ForceNewPage = False Size.Values = ( 63.500000000000000000 1852.083333333333000000) BandType = rbPageFooter object QRSysData2: TQRSysData Left = 654 Top = 4 Width = 46 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1730.375000000000000000 10.583333333333330000 121.708333333333400000) Alignment = taRightJustify AlignToBand = True AutoSize = True Color = clWhite Data = qrsPageNumber Transparent = False FontSize = 10 end object QRLabel7: TQRLabel Left = 11 Top = 3 Width = 117 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 29.104166666666670000 7.937500000000000000 309.562500000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Kasetteja yhteens� ' Color = clWhite Transparent = False WordWrap = True FontSize = 10 end object QRExpr1: TQRExpr Left = 133 Top = 3 Width = 33 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 351.895833333333400000 7.937500000000000000 87.312500000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'count' FontSize = 10 end end object TitleBand1: TQRBand Left = 57 Top = 38 Width = 700 Height = 51 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite ForceNewColumn = False ForceNewPage = False Size.Values = ( 134.937500000000000000 1852.083333333333000000) BandType = rbTitle object QRSysData1: TQRSysData Left = 267 Top = 4 Width = 165 Height = 33 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 87.312500000000000000 706.437500000000000000 10.583333333333330000 436.562499999999900000) Alignment = taCenter AlignToBand = True AutoSize = True Color = clWhite Data = qrsReportTitle Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -27 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False FontSize = 20 end end object ColumnHeaderBand1: TQRBand Left = 57 Top = 89 Width = 700 Height = 23 Frame.Color = clBlack Frame.DrawTop = True Frame.DrawBottom = True Frame.DrawLeft = True Frame.DrawRight = True AlignToBottom = False Color = clSilver ForceNewColumn = False ForceNewPage = False Size.Values = ( 60.854166666666680000 1852.083333333333000000) BandType = rbColumnHeader object QRLabel1: TQRLabel Left = 11 Top = 3 Width = 73 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 29.104166666666670000 7.937500000000000000 193.145833333333300000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Kasetin nro' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True FontSize = 10 end object QRLabel2: TQRLabel Left = 88 Top = 3 Width = 30 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 232.833333333333400000 7.937500000000000000 79.375000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Nimi' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True FontSize = 10 end object QRLabel3: TQRLabel Left = 384 Top = 3 Width = 44 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1016.000000000000000000 7.937500000000000000 116.416666666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Luokat' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True FontSize = 10 end object QRLabel4: TQRLabel Left = 480 Top = 3 Width = 29 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1270.000000000000000000 7.937500000000000000 76.729166666666670000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Alku' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True FontSize = 10 end object QRLabel5: TQRLabel Left = 552 Top = 3 Width = 41 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1460.500000000000000000 7.937500000000000000 108.479166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Loppu' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True FontSize = 10 end object QRLabel6: TQRLabel Left = 624 Top = 3 Width = 36 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1651.000000000000000000 7.937500000000000000 95.250000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Kesto' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True FontSize = 10 end end end