object dem08form: Tdem08form Left = 37 Top = 218 Width = 613 Height = 409 ActiveControl = Panel1 Caption = 'dem08form' Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 120 Position = poScreenCenter OnCreate = FormCreate TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 605 Height = 89 Align = alTop TabOrder = 0 object Label1: TLabel Left = 20 Top = 12 Width = 370 Height = 19 Caption = 'This is a Demo of the TPrintGridReport Component' Color = clBtnFace Font.Color = clMaroon Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label2: TLabel Left = 20 Top = 36 Width = 260 Height = 19 Caption = 'and SubTotals and Calcutated fields' Color = clBtnFace Font.Color = clMaroon Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label3: TLabel Left = 20 Top = 60 Width = 415 Height = 19 Caption = 'Note: The printer is forced to print Landscape Orientation' Color = clBtnFace Font.Color = clMaroon Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Preview: TBitBtn Left = 420 Top = 12 Width = 109 Height = 29 Caption = 'Pre&View' TabOrder = 0 OnClick = PreviewClick end object Exit: TBitBtn Left = 440 Top = 44 Width = 89 Height = 33 Caption = '&Exit' ModalResult = 1 TabOrder = 1 end end object Panel2: TPanel Left = 0 Top = 89 Width = 605 Height = 293 Align = alClient BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel2' TabOrder = 1 object DBGrid1: TDBGrid Left = 6 Top = 6 Width = 593 Height = 281 Align = alClient BorderStyle = bsNone DataSource = DataSource1 Font.Color = clPurple Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 TitleFont.Color = clBlue TitleFont.Height = -13 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] end end object Query1: TQuery Active = True DatabaseName = 'DBDEMOS' SQL.Strings = ( 'Select * from country order by continent') Left = 260 Top = 5 end object DataSource1: TDataSource DataSet = Query1 Left = 287 Top = 5 end object PrintGridReport1: TPrintGridReport About = 'Version 5.32' AboutRegistered = 'TOM SNIDER' ViewButtonVisible = False Copies = 1 OutputTo = poViewer Orientation = Default ViewBkColor = 11234567 Units = poInches ViewHeading = 'Reportit Viewer' FooterFont.Color = clWindowText FooterFont.Height = 12 FooterFont.Name = 'Arial' FooterFont.Style = [] HeaderFont.Color = clWindowText HeaderFont.Height = 16 HeaderFont.Name = 'Arial' HeaderFont.Style = [] ViewerOptions = [] SubTotalString = '** Total of @RecCount Countries **' TotalString = '*** Total of all @RecCount Countries ***' ZoomPercentage = 100.000000000000000000 HeaderTop = 0.500000000000000000 HeaderStringCenter = 'Page Header' HeaderEnabled = True HeaderOutlined = True HeaderFilled = False FooterTop = 9.250000000000000000 FooterString = 'Page Footer' FooterEnabled = True FooterOutlined = True FooterFilled = True FooterStringLeft = 'Printed on @Date at @Time' FooterStringRight = 'Page @Page' DisableControls = True BorderLeft = 0.250000000000000000 BorderRight = 0.250000000000000000 GridHeadingRow = 1.500000000000000000 GridHeadingCol = 0.250000000000000000 GridHeadingEnabled = True GridHeadingOutlined = True GridHeadingFilled = False GridLines = True LineSpacing = 1.500000000000000000 Grid = DBGrid1 GridMinWidth = True GridCentered = True GridPrintTotal = True PrintSubTotals = True FrameStyleLeft = frSingleThin FrameStyleTop = frSingleThin FrameStyleRight = frSingleThin FrameStyleBottom = frSingleThin ReportStyle = rsMiddle Left = 352 Top = 36 end end