home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / REPDEM08.DFM / REPDEM08.txt
Encoding:
Text File  |  1996-12-03  |  4.4 KB  |  185 lines
  1. object dem08form: Tdem08form
  2.   Left = 37
  3.   Top = 218
  4.   Width = 613
  5.   Height = 409
  6.   ActiveControl = Panel1
  7.   Caption = 'dem08form'
  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 = 605
  20.     Height = 89
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Label1: TLabel
  24.       Left = 20
  25.       Top = 12
  26.       Width = 370
  27.       Height = 19
  28.       Caption = 'This is a Demo of the TPrintGridReport Component'
  29.       Color = clBtnFace
  30.       Font.Color = clMaroon
  31.       Font.Height = -17
  32.       Font.Name = 'Arial'
  33.       Font.Style = []
  34.       ParentColor = False
  35.       ParentFont = False
  36.     end
  37.     object Label2: TLabel
  38.       Left = 20
  39.       Top = 36
  40.       Width = 260
  41.       Height = 19
  42.       Caption = 'and SubTotals and Calcutated fields'
  43.       Color = clBtnFace
  44.       Font.Color = clMaroon
  45.       Font.Height = -17
  46.       Font.Name = 'Arial'
  47.       Font.Style = []
  48.       ParentColor = False
  49.       ParentFont = False
  50.     end
  51.     object Label3: TLabel
  52.       Left = 20
  53.       Top = 60
  54.       Width = 415
  55.       Height = 19
  56.       Caption = 'Note: The printer is forced to print Landscape Orientation'
  57.       Color = clBtnFace
  58.       Font.Color = clMaroon
  59.       Font.Height = -17
  60.       Font.Name = 'Arial'
  61.       Font.Style = []
  62.       ParentColor = False
  63.       ParentFont = False
  64.     end
  65.     object Preview: TBitBtn
  66.       Left = 420
  67.       Top = 12
  68.       Width = 109
  69.       Height = 29
  70.       Caption = 'Pre&View'
  71.       TabOrder = 0
  72.       OnClick = PreviewClick
  73.     end
  74.     object Exit: TBitBtn
  75.       Left = 440
  76.       Top = 44
  77.       Width = 89
  78.       Height = 33
  79.       Caption = '&Exit'
  80.       ModalResult = 1
  81.       TabOrder = 1
  82.     end
  83.   end
  84.   object Panel2: TPanel
  85.     Left = 0
  86.     Top = 89
  87.     Width = 605
  88.     Height = 293
  89.     Align = alClient
  90.     BevelInner = bvLowered
  91.     BorderWidth = 4
  92.     Caption = 'Panel2'
  93.     TabOrder = 1
  94.     object DBGrid1: TDBGrid
  95.       Left = 6
  96.       Top = 6
  97.       Width = 593
  98.       Height = 281
  99.       Align = alClient
  100.       BorderStyle = bsNone
  101.       DataSource = DataSource1
  102.       Font.Color = clPurple
  103.       Font.Height = -13
  104.       Font.Name = 'Arial'
  105.       Font.Style = []
  106.       ParentFont = False
  107.       TabOrder = 0
  108.       TitleFont.Color = clBlue
  109.       TitleFont.Height = -13
  110.       TitleFont.Name = 'Arial'
  111.       TitleFont.Style = [fsBold]
  112.     end
  113.   end
  114.   object Query1: TQuery
  115.     Active = True
  116.     DatabaseName = 'DBDEMOS'
  117.     SQL.Strings = (
  118.       'Select * from country order by continent')
  119.     Left = 260
  120.     Top = 5
  121.   end
  122.   object DataSource1: TDataSource
  123.     DataSet = Query1
  124.     Left = 287
  125.     Top = 5
  126.   end
  127.   object PrintGridReport1: TPrintGridReport
  128.     About = 'Version 5.32'
  129.     AboutRegistered = 'TOM SNIDER'
  130.     ViewButtonVisible = False
  131.     Copies = 1
  132.     OutputTo = poViewer
  133.     Orientation = Default
  134.     ViewBkColor = 11234567
  135.     Units = poInches
  136.     ViewHeading = 'Reportit Viewer'
  137.     FooterFont.Color = clWindowText
  138.     FooterFont.Height = 12
  139.     FooterFont.Name = 'Arial'
  140.     FooterFont.Style = []
  141.     HeaderFont.Color = clWindowText
  142.     HeaderFont.Height = 16
  143.     HeaderFont.Name = 'Arial'
  144.     HeaderFont.Style = []
  145.     ViewerOptions = []
  146.     SubTotalString = '** Total of @RecCount Countries **'
  147.     TotalString = '*** Total of all @RecCount Countries ***'
  148.     ZoomPercentage = 100.000000000000000000
  149.     HeaderTop = 0.500000000000000000
  150.     HeaderStringCenter = 'Page Header'
  151.     HeaderEnabled = True
  152.     HeaderOutlined = True
  153.     HeaderFilled = False
  154.     FooterTop = 9.250000000000000000
  155.     FooterString = 'Page Footer'
  156.     FooterEnabled = True
  157.     FooterOutlined = True
  158.     FooterFilled = True
  159.     FooterStringLeft = 'Printed on @Date at @Time'
  160.     FooterStringRight = 'Page @Page'
  161.     DisableControls = True
  162.     BorderLeft = 0.250000000000000000
  163.     BorderRight = 0.250000000000000000
  164.     GridHeadingRow = 1.500000000000000000
  165.     GridHeadingCol = 0.250000000000000000
  166.     GridHeadingEnabled = True
  167.     GridHeadingOutlined = True
  168.     GridHeadingFilled = False
  169.     GridLines = True
  170.     LineSpacing = 1.500000000000000000
  171.     Grid = DBGrid1
  172.     GridMinWidth = True
  173.     GridCentered = True
  174.     GridPrintTotal = True
  175.     PrintSubTotals = True
  176.     FrameStyleLeft = frSingleThin
  177.     FrameStyleTop = frSingleThin
  178.     FrameStyleRight = frSingleThin
  179.     FrameStyleBottom = frSingleThin
  180.     ReportStyle = rsMiddle
  181.     Left = 352
  182.     Top = 36
  183.   end
  184. end
  185.