home *** CD-ROM | disk | FTP | other *** search
- object FTisk1: TFTisk1
- Left = 248
- Top = 51
- Width = 544
- Height = 375
- Caption = 'Tisk'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Scaled = False
- WindowState = wsMaximized
- PixelsPerInch = 96
- TextHeight = 13
- object QuickRep1: TQuickRep
- Tag = 1
- Left = -2
- Top = 1
- Width = 794
- Height = 1123
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- DataSet = DM.Table1
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- Functions.Strings = (
- 'PAGENUMBER'
- 'COLUMNNUMBER'
- 'REPORTTITLE')
- Functions.DATA = (
- '0'
- '0'
- #39#39)
- Options = [FirstPageHeader, LastPageFooter]
- Page.Columns = 1
- Page.Orientation = poPortrait
- Page.PaperSize = A4
- Page.Values = (
- 100
- 2970
- 100
- 2100
- 100
- 100
- 0)
- PrinterSettings.Copies = 1
- PrinterSettings.Duplex = False
- PrinterSettings.FirstPage = 0
- PrinterSettings.LastPage = 0
- PrinterSettings.OutputBin = Auto
- PrintIfEmpty = True
- SnapToGrid = True
- Units = MM
- Zoom = 100
- object DetailBand1: TQRBand
- Left = 38
- Top = 87
- Width = 718
- Height = 42
- Frame.Color = clBlack
- Frame.DrawTop = True
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- AlignToBottom = False
- Color = clWhite
- ForceNewColumn = False
- ForceNewPage = False
- Size.Values = (
- 111.125000000000000000
- 1899.708333333330000000)
- BandType = rbDetail
- object QRDBText1: TQRDBText
- Left = 80
- Top = 8
- Width = 69
- Height = 24
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 63.500000000000000000
- 211.666666666667000000
- 21.166666666666700000
- 182.562500000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = DM.Table1
- DataField = 'Cislo_kazety'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText2: TQRDBText
- Left = 97
- Top = 8
- Width = 48
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666700000
- 256.645833333333000000
- 21.166666666666700000
- 127)
- Alignment = taRightJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- DataSet = DM.Table1
- DataField = 'Delka_kazety'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText3: TQRDBText
- Left = 194
- Top = 6
- Width = 49
- Height = 24
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 63.500000000000000000
- 513.291666666667000000
- 15.875000000000000000
- 129.645833333333000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = DM.Table1
- DataField = 'Titulek'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 12
- end
- object QRDBText4: TQRDBText
- Left = 46
- Top = 25
- Width = 55
- Height = 16
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 42.333333333333300000
- 121.708333333333000000
- 66.145833333333300000
- 145.520833333333000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = DM.Table1
- DataField = 'Poznamky'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel6: TQRLabel
- Left = 26
- Top = 8
- Width = 49
- Height = 16
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 42.333333333333300000
- 68.791666666666700000
- 21.166666666666700000
- 129.645833333333000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'Kazeta �.'
- Color = clWhite
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel7: TQRLabel
- Left = 152
- Top = 8
- Width = 23
- Height = 16
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 42.333333333333300000
- 402.166666666667000000
- 21.166666666666700000
- 60.854166666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'min.'
- Color = clWhite
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- end
- object TitleBand1: TQRBand
- Left = 38
- Top = 38
- Width = 718
- Height = 49
- 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 = (
- 129.645833333333000000
- 1899.708333333330000000)
- BandType = rbTitle
- object QRLabel2: TQRLabel
- Left = 220
- Top = 0
- Width = 277
- Height = 42
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 111.125000000000000000
- 582.083333333333000000
- 0
- 732.895833333333100000)
- Alignment = taCenter
- AlignToBand = True
- AutoSize = True
- AutoStretch = False
- Caption = 'Seznam videokazet'
- Color = clWhite
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -35
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 26
- end
- end
- object QRSubDetail1: TQRSubDetail
- Left = 38
- Top = 129
- Width = 718
- Height = 41
- 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 = (
- 108.479166666667000000
- 1899.708333333330000000)
- Master = QuickRep1
- DataSet = DM.Table2
- PrintBefore = False
- PrintIfEmpty = True
- object QRDBText5: TQRDBText
- Left = 26
- Top = -2
- Width = 85
- Height = 20
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 52.916666666666700000
- 68.791666666666700000
- -5.291666666666670000
- 224.895833333333000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = DM.Table2
- DataField = 'Nazev_filmu'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 12
- end
- object QRDBText7: TQRDBText
- Left = 300
- Top = 18
- Width = 36
- Height = 16
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 42.333333333333300000
- 793.750000000000000000
- 47.625000000000000000
- 95.250000000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = DM.Table2
- DataField = 'SP_LP'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText9: TQRDBText
- Left = 207
- Top = 18
- Width = 31
- Height = 20
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 52.916666666666700000
- 547.687500000000000000
- 47.625000000000000000
- 82.020833333333310000)
- Alignment = taRightJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = DM.Table2
- DataField = 'Delka'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel1: TQRLabel
- Left = 242
- Top = 18
- Width = 31
- Height = 16
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 42.333333333333300000
- 640.291666666667000000
- 47.625000000000000000
- 82.020833333333310000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'minut'
- Color = clWhite
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText11: TQRDBText
- Left = 42
- Top = 18
- Width = 26
- Height = 16
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 42.333333333333300000
- 111.125000000000000000
- 47.625000000000000000
- 68.791666666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = DM.Table2
- DataField = 'Zanr'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- end
- object PageFooterBand1: TQRBand
- Left = 38
- Top = 170
- Width = 718
- Height = 40
- 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 = (
- 105.833333333333000000
- 1899.708333333330000000)
- BandType = rbPageFooter
- object QRLabel10: TQRLabel
- Left = 305
- Top = 11
- Width = 106
- Height = 16
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 42.333333333333300000
- 806.979166666667000000
- 29.104166666666700000
- 280.458333333333000000)
- Alignment = taCenter
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'Videot�ka, verze 2.3'
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRSysData1: TQRSysData
- Left = 26
- Top = 11
- Width = 79
- Height = 16
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 42.333333333333300000
- 68.791666666666700000
- 29.104166666666700000
- 209.020833333333000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- Color = clWhite
- Data = qrsPageNumber
- Text = 'Strana '
- Transparent = False
- FontSize = 10
- end
- object QRSysData2: TQRSysData
- Left = 653
- Top = 11
- Width = 34
- Height = 16
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 42.333333333333300000
- 1727.729166666670000000
- 29.104166666666700000
- 89.958333333333310000)
- Alignment = taRightJustify
- AlignToBand = False
- AutoSize = True
- Color = clWhite
- Data = qrsDate
- Transparent = False
- FontSize = 10
- end
- end
- end
- end
-