home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / REPDEM02.DFM / REPDEM02.txt
Encoding:
Text File  |  1996-12-09  |  8.1 KB  |  262 lines
  1. object dem02form: Tdem02form
  2.   Left = 92
  3.   Top = 198
  4.   Width = 607
  5.   Height = 450
  6.   ActiveControl = Panel1
  7.   Caption = 'dem02form'
  8.   Font.Color = clBlack
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 120
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 599
  20.     Height = 209
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Previews: TBitBtn
  24.       Left = 496
  25.       Top = 2
  26.       Width = 97
  27.       Height = 30
  28.       Caption = '&SubTotals'
  29.       TabOrder = 0
  30.       OnClick = PreviewsClick
  31.       Glyph.Data = {
  32.         76010000424D7601000000000000760000002800000020000000100000000100
  33.         04000000000000010000130B0000130B00000000000000000000000000000000
  34.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  35.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  36.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  37.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  38.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  39.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  40.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  41.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  42.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  43.         33333337FFFF7733333333300000033333333337777773333333}
  44.       NumGlyphs = 2
  45.     end
  46.     object Exit: TBitBtn
  47.       Left = 525
  48.       Top = 74
  49.       Width = 68
  50.       Height = 30
  51.       Caption = '&Exit'
  52.       ModalResult = 2
  53.       TabOrder = 1
  54.       OnClick = ExitClick
  55.       Glyph.Data = {
  56.         78010000424D7801000000000000760000002800000020000000100000000100
  57.         04000000000000000000120B0000120B00000000000000000000000000000000
  58.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  59.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  60.         03333377777777777F333301111111110333337F333333337F33330111111111
  61.         0333337F333333337F333301111111110333337F333333337F33330111111111
  62.         0333337F333333337F333301111111110333337F333333337F33330111111111
  63.         0333337F3333333F7F333301111111B10333337F333333737F33330111111111
  64.         0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
  65.         0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
  66.         0333337F377777337F333301111111110333337F333333337F33330111111111
  67.         0333337FFFFFFFFF7F33330000000000033333777777777773330000}
  68.       NumGlyphs = 2
  69.     end
  70.     object Preview: TBitBtn
  71.       Left = 505
  72.       Top = 38
  73.       Width = 88
  74.       Height = 30
  75.       Caption = 'Pre&View'
  76.       TabOrder = 2
  77.       OnClick = PreviewClick
  78.       Glyph.Data = {
  79.         76010000424D7601000000000000760000002800000020000000100000000100
  80.         04000000000000010000130B0000130B00000000000000000000000000000000
  81.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  82.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  83.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  84.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  85.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  86.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  87.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  88.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  89.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  90.         33333337FFFF7733333333300000033333333337777773333333}
  91.       NumGlyphs = 2
  92.     end
  93.     object Memo1: TMemo
  94.       Left = 8
  95.       Top = 8
  96.       Width = 477
  97.       Height = 193
  98.       Font.Color = clMaroon
  99.       Font.Height = -17
  100.       Font.Name = 'MS Sans Serif'
  101.       Font.Style = []
  102.       Lines.Strings = (
  103.         'This is a demo of the TPrintGridReport Component'
  104.         'The lines of necessary coding can be found in RepDem02.PAS.'
  105.         'The TPrintGridReport component can make use of either a'
  106.         'TTable or a TQuery component depending on which is '
  107.         'connected to the grid. '
  108.         ''
  109.         'Subtotal and Total printing of fields can be done'
  110.         ''
  111.         'Only visible fields will be printed')
  112.       ParentFont = False
  113.       TabOrder = 3
  114.     end
  115.   end
  116.   object Panel2: TPanel
  117.     Left = 0
  118.     Top = 209
  119.     Width = 599
  120.     Height = 214
  121.     Align = alClient
  122.     BevelInner = bvLowered
  123.     BorderWidth = 4
  124.     Caption = 'Panel2'
  125.     TabOrder = 1
  126.     object DBGrid1: TDBGrid
  127.       Left = 6
  128.       Top = 6
  129.       Width = 587
  130.       Height = 202
  131.       Align = alClient
  132.       BorderStyle = bsNone
  133.       DataSource = DataSource1
  134.       Font.Color = clTeal
  135.       Font.Height = -13
  136.       Font.Name = 'Arial'
  137.       Font.Style = [fsItalic]
  138.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  139.       ParentFont = False
  140.       ReadOnly = True
  141.       TabOrder = 0
  142.       TitleFont.Color = clBlack
  143.       TitleFont.Height = -13
  144.       TitleFont.Name = 'Arial'
  145.       TitleFont.Style = [fsBold]
  146.     end
  147.   end
  148.   object Query1: TQuery
  149.     Active = True
  150.     DatabaseName = 'DBDEMOS'
  151.     SQL.Strings = (
  152.       'Select'
  153.       '  customer."CustNo",'
  154.       '  customer."Company",'
  155.       '  customer."Addr1",'
  156.       '  customer."Addr2",'
  157.       '  customer."City",'
  158.       '  customer."State",'
  159.       '  customer."Zip",'
  160.       '  customer."Country",'
  161.       '  customer."Phone",'
  162.       '  customer."FAX",'
  163.       '  customer."TaxRate",'
  164.       '  customer."Contact",'
  165.       '  customer."LastInvoiceDate"'
  166.       'From customer'
  167.       'order by'
  168.       'Country')
  169.     Left = 480
  170.     Top = 105
  171.     object Query1CustNo: TFloatField
  172.       DisplayWidth = 6
  173.       FieldName = 'CustNo'
  174.     end
  175.     object Query1Company: TStringField
  176.       DisplayWidth = 14
  177.       FieldName = 'Company'
  178.       Size = 30
  179.     end
  180.     object Query1Country: TStringField
  181.       DisplayWidth = 15
  182.       FieldName = 'Country'
  183.       Visible = False
  184.     end
  185.     object Query1Phone: TStringField
  186.       DisplayWidth = 13
  187.       FieldName = 'Phone'
  188.       Size = 15
  189.     end
  190.     object Query1Contact: TStringField
  191.       DisplayWidth = 20
  192.       FieldName = 'Contact'
  193.     end
  194.     object Query1LastInvoiceDate: TDateTimeField
  195.       DisplayWidth = 20
  196.       FieldName = 'LastInvoiceDate'
  197.     end
  198.   end
  199.   object DataSource1: TDataSource
  200.     DataSet = Query1
  201.     Left = 507
  202.     Top = 105
  203.   end
  204.   object PrintGridReport1: TPrintGridReport
  205.     About = 'Version 5.32'
  206.     AboutRegistered = 'TOM SNIDER'
  207.     ViewButtonVisible = False
  208.     Copies = 1
  209.     OutputTo = poViewer
  210.     Orientation = Default
  211.     ViewBkColor = 11234567
  212.     Units = poInches
  213.     ViewHeading = 'Reportit Viewer'
  214.     FooterFont.Color = clWindowText
  215.     FooterFont.Height = 12
  216.     FooterFont.Name = 'Arial'
  217.     FooterFont.Style = []
  218.     HeaderFont.Color = clWindowText
  219.     HeaderFont.Height = 16
  220.     HeaderFont.Name = 'Arial'
  221.     HeaderFont.Style = []
  222.     ViewerOptions = []
  223.     SubTotalString = '** SubTotal of @RecCount Records **'
  224.     TotalString = '*** Total of @RecCount Records ***'
  225.     ZoomPercentage = 25.000000000000000000
  226.     HeaderTop = 0.500000000000000000
  227.     HeaderStringCenter = 'Page Header'
  228.     HeaderEnabled = True
  229.     HeaderOutlined = True
  230.     HeaderFilled = False
  231.     FooterTop = 9.699999999999998000
  232.     FooterString = 'Page Footer'
  233.     FooterEnabled = True
  234.     FooterOutlined = True
  235.     FooterFilled = True
  236.     FooterStringLeft = 'Printed on @Date at @Time'
  237.     FooterStringRight = 'Page @Page'
  238.     DisableControls = True
  239.     BorderLeft = 0.250000000000000000
  240.     BorderRight = 0.250000000000000000
  241.     GridHeadingRow = 1.500000000000000000
  242.     GridHeadingCol = 0.250000000000000000
  243.     GridHeadingEnabled = True
  244.     GridHeadingOutlined = True
  245.     GridHeadingFilled = False
  246.     GridLines = True
  247.     LineSpacing = 1.500000000000000000
  248.     Grid = DBGrid1
  249.     GridMinWidth = True
  250.     GridCentered = True
  251.     GridPrintTotal = True
  252.     PrintSubTotals = False
  253.     FrameStyleLeft = frSingleThin
  254.     FrameStyleTop = frSingleThin
  255.     FrameStyleRight = frSingleThin
  256.     FrameStyleBottom = frSingleThin
  257.     ReportStyle = rsOwn
  258.     Left = 520
  259.     Top = 152
  260.   end
  261. end
  262.