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