home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Quickrpt / Qr2 / list.dfm / list.txt
Text File  |  1999-08-11  |  13KB  |  504 lines
  1. object ListForm: TListForm
  2.   Left = 419
  3.   Top = 165
  4.   Width = 685
  5.   Height = 587
  6.   Caption = 'ListForm'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Scaled = False
  13.   TextHeight = 16
  14.   object QuickRep: TQuickRep
  15.     Left = 0
  16.     Top = 0
  17.     Width = 653
  18.     Height = 845
  19.     Frame.Color = clBlack
  20.     Frame.DrawTop = False
  21.     Frame.DrawBottom = False
  22.     Frame.DrawLeft = False
  23.     Frame.DrawRight = False
  24.     DataSet = Customer
  25.     Description.Strings = (
  26.       'This customer listing report shows the following basic features:'
  27.       '- Setup of some common bands'
  28.       '  (title, column header, detail and page footer)'
  29.       '- Connecting a dataset'
  30.       '- Use TQRLabel to print static text'
  31.       '- Use TQRDBText to print table fields'
  32.       ''
  33.       'You can also see how to'
  34.       '- Use TQRSysData to print current time and page number'
  35.       '- Use different fonts, sizes and colors'
  36.       '- How to right align text'
  37.       '- How to center text in a band')
  38.     Font.Color = clWindowText
  39.     Font.Height = -13
  40.     Font.Name = 'Arial'
  41.     Font.Style = []
  42.     Options = [LastPageFooter]
  43.     Page.Columns = 1
  44.     Page.Orientation = poPortrait
  45.     Page.PaperSize = Letter
  46.     Page.Values = (
  47.       100.000000000000000000
  48.       2794.000000000000000000
  49.       100.000000000000000000
  50.       2159.000000000000000000
  51.       100.000000000000000000
  52.       100.000000000000000000
  53.       0.000000000000000000)
  54.     PrintIfEmpty = False
  55.     PrinterSettings.Copies = 1
  56.     PrinterSettings.Duplex = False
  57.     PrinterSettings.OutputBin = First
  58.     SnapToGrid = True
  59.     Units = MM
  60.     Zoom = 80
  61.     object DetailBand1: TQRBand
  62.       Left = 30
  63.       Top = 81
  64.       Width = 593
  65.       Height = 16
  66.       Frame.Color = clBlack
  67.       Frame.DrawTop = False
  68.       Frame.DrawBottom = False
  69.       Frame.DrawLeft = False
  70.       Frame.DrawRight = False
  71.       AlignToBottom = False
  72.       Color = clWhite
  73.       ForceNewColumn = False
  74.       ForceNewPage = False
  75.       Size.Values = (
  76.         52.916666666666670000
  77.         1961.223958333333000000)
  78.       BandType = rbDetail
  79.       object QRDBText1: TQRDBText
  80.         Left = 6
  81.         Top = 3
  82.         Width = 159
  83.         Height = 14
  84.         Frame.Color = clBlack
  85.         Frame.DrawTop = False
  86.         Frame.DrawBottom = False
  87.         Frame.DrawLeft = False
  88.         Frame.DrawRight = False
  89.         Size.Values = (
  90.           46.302083333333340000
  91.           19.843750000000000000
  92.           9.921875000000000000
  93.           525.859375000000000000)
  94.         Alignment = taLeftJustify
  95.         AlignToBand = False
  96.         AutoSize = False
  97.         AutoStretch = False
  98.         Color = clWhite
  99.         DataSet = Customer
  100.         DataField = 'Company'
  101.         Transparent = False
  102.         WordWrap = True
  103.         FontSize = 10
  104.       end
  105.       object QRDBText2: TQRDBText
  106.         Left = 170
  107.         Top = 3
  108.         Width = 163
  109.         Height = 14
  110.         Frame.Color = clBlack
  111.         Frame.DrawTop = False
  112.         Frame.DrawBottom = False
  113.         Frame.DrawLeft = False
  114.         Frame.DrawRight = False
  115.         Size.Values = (
  116.           46.302083333333340000
  117.           562.239583333333400000
  118.           9.921875000000000000
  119.           539.088541666666700000)
  120.         Alignment = taLeftJustify
  121.         AlignToBand = False
  122.         AutoSize = False
  123.         AutoStretch = False
  124.         Color = clWhite
  125.         DataSet = Customer
  126.         DataField = 'Contact'
  127.         Transparent = False
  128.         WordWrap = True
  129.         FontSize = 10
  130.       end
  131.       object QRDBText3: TQRDBText
  132.         Left = 340
  133.         Top = 3
  134.         Width = 85
  135.         Height = 14
  136.         Frame.Color = clBlack
  137.         Frame.DrawTop = False
  138.         Frame.DrawBottom = False
  139.         Frame.DrawLeft = False
  140.         Frame.DrawRight = False
  141.         Size.Values = (
  142.           46.302083333333340000
  143.           1124.479166666667000000
  144.           9.921875000000000000
  145.           281.119791666666700000)
  146.         Alignment = taLeftJustify
  147.         AlignToBand = False
  148.         AutoSize = False
  149.         AutoStretch = False
  150.         Color = clWhite
  151.         DataSet = Customer
  152.         DataField = 'Phone'
  153.         Transparent = False
  154.         WordWrap = True
  155.         FontSize = 10
  156.       end
  157.       object QRDBText4: TQRDBText
  158.         Left = 430
  159.         Top = 3
  160.         Width = 87
  161.         Height = 14
  162.         Frame.Color = clBlack
  163.         Frame.DrawTop = False
  164.         Frame.DrawBottom = False
  165.         Frame.DrawLeft = False
  166.         Frame.DrawRight = False
  167.         Size.Values = (
  168.           46.302083333333340000
  169.           1422.135416666667000000
  170.           9.921875000000000000
  171.           287.734375000000000000)
  172.         Alignment = taLeftJustify
  173.         AlignToBand = False
  174.         AutoSize = False
  175.         AutoStretch = False
  176.         Color = clWhite
  177.         DataSet = Customer
  178.         DataField = 'FAX'
  179.         Transparent = False
  180.         WordWrap = True
  181.         FontSize = 10
  182.       end
  183.       object QRDBText5: TQRDBText
  184.         Left = 530
  185.         Top = -1
  186.         Width = 45
  187.         Height = 14
  188.         Frame.Color = clBlack
  189.         Frame.DrawTop = False
  190.         Frame.DrawBottom = False
  191.         Frame.DrawLeft = False
  192.         Frame.DrawRight = False
  193.         Size.Values = (
  194.           46.302083333333340000
  195.           1752.864583333333000000
  196.           -3.307291666666667000
  197.           148.828125000000000000)
  198.         Alignment = taRightJustify
  199.         AlignToBand = False
  200.         AutoSize = False
  201.         AutoStretch = False
  202.         Color = clWhite
  203.         DataSet = Customer
  204.         DataField = 'CustNo'
  205.         Transparent = False
  206.         WordWrap = True
  207.         FontSize = 10
  208.       end
  209.     end
  210.     object ColumnHeaderBand1: TQRBand
  211.       Left = 30
  212.       Top = 62
  213.       Width = 593
  214.       Height = 19
  215.       Frame.Color = clBlack
  216.       Frame.DrawTop = False
  217.       Frame.DrawBottom = False
  218.       Frame.DrawLeft = False
  219.       Frame.DrawRight = False
  220.       AlignToBottom = False
  221.       Color = clWhite
  222.       ForceNewColumn = False
  223.       ForceNewPage = False
  224.       Size.Values = (
  225.         62.838541666666670000
  226.         1961.223958333333000000)
  227.       BandType = rbColumnHeader
  228.       object QRLabel1: TQRLabel
  229.         Left = 3
  230.         Top = 3
  231.         Width = 162
  232.         Height = 14
  233.         Frame.Color = clBlack
  234.         Frame.DrawTop = False
  235.         Frame.DrawBottom = True
  236.         Frame.DrawLeft = False
  237.         Frame.DrawRight = False
  238.         Size.Values = (
  239.           46.302083333333330000
  240.           9.921875000000000000
  241.           9.921875000000000000
  242.           535.781250000000000000)
  243.         Alignment = taLeftJustify
  244.         AlignToBand = False
  245.         AutoSize = False
  246.         AutoStretch = False
  247.         Caption = 'Company'
  248.         Color = clWhite
  249.         Font.Color = clBlack
  250.         Font.Height = -13
  251.         Font.Name = 'Arial'
  252.         Font.Style = [fsBold]
  253.         ParentFont = False
  254.         Transparent = True
  255.         WordWrap = True
  256.         FontSize = 10
  257.       end
  258.       object QRLabel2: TQRLabel
  259.         Left = 170
  260.         Top = 3
  261.         Width = 163
  262.         Height = 14
  263.         Frame.Color = clBlack
  264.         Frame.DrawTop = False
  265.         Frame.DrawBottom = True
  266.         Frame.DrawLeft = False
  267.         Frame.DrawRight = False
  268.         Size.Values = (
  269.           46.302083333333340000
  270.           562.239583333333400000
  271.           9.921875000000000000
  272.           539.088541666666700000)
  273.         Alignment = taLeftJustify
  274.         AlignToBand = False
  275.         AutoSize = False
  276.         AutoStretch = False
  277.         Caption = 'Contact'
  278.         Color = clWhite
  279.         Font.Color = clBlack
  280.         Font.Height = -13
  281.         Font.Name = 'Arial'
  282.         Font.Style = [fsBold]
  283.         ParentFont = False
  284.         Transparent = True
  285.         WordWrap = True
  286.         FontSize = 10
  287.       end
  288.       object QRLabel3: TQRLabel
  289.         Left = 340
  290.         Top = 3
  291.         Width = 85
  292.         Height = 14
  293.         Frame.Color = clBlack
  294.         Frame.DrawTop = False
  295.         Frame.DrawBottom = True
  296.         Frame.DrawLeft = False
  297.         Frame.DrawRight = False
  298.         Size.Values = (
  299.           46.302083333333340000
  300.           1124.479166666667000000
  301.           9.921875000000000000
  302.           281.119791666666700000)
  303.         Alignment = taLeftJustify
  304.         AlignToBand = False
  305.         AutoSize = False
  306.         AutoStretch = False
  307.         Caption = 'Phone'
  308.         Color = clWhite
  309.         Font.Color = clBlack
  310.         Font.Height = -13
  311.         Font.Name = 'Arial'
  312.         Font.Style = [fsBold]
  313.         ParentFont = False
  314.         Transparent = True
  315.         WordWrap = True
  316.         FontSize = 10
  317.       end
  318.       object QRLabel4: TQRLabel
  319.         Left = 430
  320.         Top = 3
  321.         Width = 87
  322.         Height = 14
  323.         Frame.Color = clBlack
  324.         Frame.DrawTop = False
  325.         Frame.DrawBottom = True
  326.         Frame.DrawLeft = False
  327.         Frame.DrawRight = False
  328.         Size.Values = (
  329.           46.302083333333340000
  330.           1422.135416666667000000
  331.           9.921875000000000000
  332.           287.734375000000000000)
  333.         Alignment = taLeftJustify
  334.         AlignToBand = False
  335.         AutoSize = False
  336.         AutoStretch = False
  337.         Caption = 'Fax'
  338.         Color = clWhite
  339.         Font.Color = clBlack
  340.         Font.Height = -13
  341.         Font.Name = 'Arial'
  342.         Font.Style = [fsBold]
  343.         ParentFont = False
  344.         Transparent = True
  345.         WordWrap = True
  346.         FontSize = 10
  347.       end
  348.       object QRLabel5: TQRLabel
  349.         Left = 530
  350.         Top = 3
  351.         Width = 46
  352.         Height = 14
  353.         Frame.Color = clBlack
  354.         Frame.DrawTop = False
  355.         Frame.DrawBottom = True
  356.         Frame.DrawLeft = False
  357.         Frame.DrawRight = False
  358.         Size.Values = (
  359.           46.302083333333340000
  360.           1752.864583333333000000
  361.           9.921875000000000000
  362.           152.135416666666700000)
  363.         Alignment = taLeftJustify
  364.         AlignToBand = False
  365.         AutoSize = False
  366.         AutoStretch = False
  367.         Caption = 'Cust no.'
  368.         Color = clWhite
  369.         Font.Color = clBlack
  370.         Font.Height = -13
  371.         Font.Name = 'Arial'
  372.         Font.Style = [fsBold]
  373.         ParentFont = False
  374.         Transparent = True
  375.         WordWrap = True
  376.         FontSize = 10
  377.       end
  378.     end
  379.     object PageFooterBand1: TQRBand
  380.       Left = 30
  381.       Top = 97
  382.       Width = 593
  383.       Height = 20
  384.       Frame.Color = clBlack
  385.       Frame.DrawTop = False
  386.       Frame.DrawBottom = False
  387.       Frame.DrawLeft = False
  388.       Frame.DrawRight = False
  389.       AlignToBottom = False
  390.       Color = clWhite
  391.       ForceNewColumn = False
  392.       ForceNewPage = False
  393.       Size.Values = (
  394.         66.145833333333330000
  395.         1961.223958333333000000)
  396.       BandType = rbPageFooter
  397.       object QRSysData1: TQRSysData
  398.         Left = 3
  399.         Top = 6
  400.         Width = 65
  401.         Height = 14
  402.         Frame.Color = clBlack
  403.         Frame.DrawTop = False
  404.         Frame.DrawBottom = False
  405.         Frame.DrawLeft = False
  406.         Frame.DrawRight = False
  407.         Size.Values = (
  408.           46.302083333333330000
  409.           9.921875000000000000
  410.           19.843750000000000000
  411.           214.973958333333300000)
  412.         Alignment = taLeftJustify
  413.         AlignToBand = False
  414.         AutoSize = True
  415.         Data = qrsDate
  416.         Text = 'Printed '
  417.         Transparent = False
  418.         FontSize = 10
  419.       end
  420.       object QRSysData2: TQRSysData
  421.         Left = 529
  422.         Top = 6
  423.         Width = 64
  424.         Height = 14
  425.         Frame.Color = clBlack
  426.         Frame.DrawTop = False
  427.         Frame.DrawBottom = False
  428.         Frame.DrawLeft = False
  429.         Frame.DrawRight = False
  430.         Size.Values = (
  431.           46.302083333333330000
  432.           1749.557291666667000000
  433.           19.843750000000000000
  434.           211.666666666666700000)
  435.         Alignment = taRightJustify
  436.         AlignToBand = True
  437.         AutoSize = True
  438.         Data = qrsPageNumber
  439.         Text = 'Page '
  440.         Transparent = False
  441.         FontSize = 10
  442.       end
  443.     end
  444.     object TitleBand1: TQRBand
  445.       Left = 30
  446.       Top = 30
  447.       Width = 593
  448.       Height = 32
  449.       Frame.Color = clBlack
  450.       Frame.DrawTop = False
  451.       Frame.DrawBottom = False
  452.       Frame.DrawLeft = False
  453.       Frame.DrawRight = False
  454.       AlignToBottom = False
  455.       Color = clWhite
  456.       ForceNewColumn = False
  457.       ForceNewPage = False
  458.       Size.Values = (
  459.         105.833333333333300000
  460.         1961.223958333333000000)
  461.       BandType = rbTitle
  462.       object QRLabel6: TQRLabel
  463.         Left = 208
  464.         Top = 3
  465.         Width = 177
  466.         Height = 27
  467.         Frame.Color = clBlack
  468.         Frame.DrawTop = False
  469.         Frame.DrawBottom = False
  470.         Frame.DrawLeft = False
  471.         Frame.DrawRight = False
  472.         Size.Values = (
  473.           89.296875000000000000
  474.           687.916666666666700000
  475.           9.921875000000000000
  476.           585.390625000000000000)
  477.         Alignment = taCenter
  478.         AlignToBand = True
  479.         AutoSize = True
  480.         AutoStretch = False
  481.         Caption = 'Customer Listing'
  482.         Color = clWhite
  483.         Font.Color = clNavy
  484.         Font.Height = -27
  485.         Font.Name = 'Arial'
  486.         Font.Style = [fsBold, fsItalic]
  487.         ParentFont = False
  488.         Transparent = False
  489.         WordWrap = True
  490.         FontSize = 20
  491.       end
  492.     end
  493.   end
  494.   object Customer: TTable
  495.     Active = True
  496.     DatabaseName = 'DBDEMOS'
  497.     IndexFieldNames = 'Company'
  498.     ReadOnly = True
  499.     TableName = 'CUSTOMER.DB'
  500.     Left = 4
  501.     Top = 4
  502.   end
  503. end
  504.