PC World Komputer 1997 May

home *** CD-ROM | disk | FTP | other *** search

/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO05.DFM / FDEMO05.txt next >

Wrap

Text File | 1997-12-30 | 29.0 KB | 1,213 lines

object Form05: TForm05 Left = 3 Top = 96 Width = 763 Height = 679 Caption = 'Form05' 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 = 755 Height = 50 Align = alTop TabOrder = 0 object DBNavigator: TDBNavigator Left = 10 Top = 10 Width = 261 Height = 31 DataSource = DataSource1 Ctl3D = False ParentCtl3D = False TabOrder = 0 end object Print: TBitBtn Left = 552 Top = 8 Width = 89 Height = 33 Caption = '&Print' TabOrder = 1 OnClick = PrintClick end object Exit: TBitBtn Left = 656 Top = 8 Width = 89 Height = 33 Caption = '&Exit' TabOrder = 2 OnClick = ExitClick end object Preview: TBitBtn Left = 448 Top = 8 Width = 89 Height = 33 Caption = '&Preview' TabOrder = 3 OnClick = PreviewClick end end object ScrollBox1: TScrollBox Left = 0 Top = 50 Width = 755 Height = 602 VertScrollBar.Range = 1058 VertScrollBar.Position = 456 Align = alClient AutoScroll = False BorderStyle = bsNone TabOrder = 1 object Panel2: TPanel Left = 0 Top = -456 Width = 742 Height = 1058 Align = alClient TabOrder = 0 object Shape2: TShape Left = -456 Top = 4 Width = 671 Height = 923 Brush.Color = clBlack Brush.Style = bsDiagCross Shape = stEllipse end object Shape3: TShape Left = 14 Top = 792 Width = 19 Height = 19 Brush.Color = clBlack Shape = stCircle end object Label6: TLabel Left = 48 Top = 794 Width = 106 Height = 19 Caption = 'REMITTANCE' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Image1: TImage Left = 608 Top = 184 Width = 77 Height = 101 Picture.Data = {<image000.bmp>} Stretch = True end object Label5: TLabel Left = 485 Top = 36 Width = 42 Height = 19 Caption = 'Date:' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 484 Top = 12 Width = 75 Height = 19 Caption = 'Invoice #:' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 485 Top = 64 Width = 53 Height = 19 Caption = 'Page #' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 572 Top = 116 Width = 163 Height = 46 Caption = 'INVOICE' Font.Color = clMaroon Font.Height = -40 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 380 Top = 96 Width = 60 Height = 19 Caption = 'Ship To' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 92 Top = 96 Width = 80 Height = 19 Caption = 'Invoice To' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object DBGrid1: TDBGrid Left = 0 Top = 392 Width = 721 Height = 389 Color = clWhite DataSource = DataSource3 FixedColor = clSilver Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 TitleFont.Color = clBlack TitleFont.Height = -17 TitleFont.Name = 'Arial' TitleFont.Style = [fsBold] end object SubTotal: TShowTotal Left = 616 Top = 783 Width = 105 Height = 24 SourceGrid = DBGrid1 SourceField = 'Total' ParentFont = False BorderStyle = bsSingle Color = clWhite Font.Color = clBlue Font.Height = -17 Font.Name = 'Arial' Font.Style = [] TotalType = tAccTotal DisplayFormat = '$#,##0.00' Text = '0.00' ShowOn = tLastPage Alignment = taRightJustify ShowOnForm = True end object Edit1: TEdit Left = 0 Top = 8 Width = 121 Height = 24 Color = clSilver Enabled = False Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 Text = 'Customer #' end object Edit2: TEdit Left = 120 Top = 8 Width = 121 Height = 24 Color = clSilver Enabled = False Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 Text = 'Order #' end object Edit3: TEdit Left = 240 Top = 8 Width = 153 Height = 24 Color = clSilver Enabled = False Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 Text = 'Phone #' end object EditShipToPhone: TDBEdit Left = 240 Top = 32 Width = 153 Height = 24 Color = clWhite DataField = 'ShipToPhone' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 15 ParentFont = False TabOrder = 5 end object EditOrderNo: TDBEdit Left = 120 Top = 32 Width = 121 Height = 24 Color = clWhite DataField = 'OrderNo' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 0 ParentFont = False TabOrder = 6 end object EditCustNo: TDBEdit Left = 0 Top = 32 Width = 121 Height = 24 Color = clWhite DataField = 'CustNo' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 0 ParentFont = False TabOrder = 7 end object Panel4: TPanel Left = 276 Top = 126 Width = 277 Height = 175 BorderStyle = bsSingle TabOrder = 8 object DBEdit2: TDBEdit Left = 11 Top = 8 Width = 140 Height = 24 BorderStyle = bsNone DataField = 'ShipToContact' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 20 ParentFont = False TabOrder = 0 end object DBEdit3: TDBEdit Left = 11 Top = 32 Width = 210 Height = 24 BorderStyle = bsNone DataField = 'ShipToAddr1' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 1 end object DBEdit4: TDBEdit Left = 11 Top = 53 Width = 210 Height = 24 BorderStyle = bsNone DataField = 'ShipToAddr2' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 2 end object DBEdit5: TDBEdit Left = 11 Top = 73 Width = 105 Height = 24 BorderStyle = bsNone DataField = 'ShipToCity' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 15 ParentFont = False TabOrder = 3 end object DBEdit6: TDBEdit Left = 11 Top = 98 Width = 140 Height = 24 BorderStyle = bsNone DataField = 'ShipToState' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 20 ParentFont = False TabOrder = 4 end object DBEdit7: TDBEdit Left = 11 Top = 122 Width = 140 Height = 24 BorderStyle = bsNone DataField = 'ShipToCountry' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 20 ParentFont = False TabOrder = 5 end object DBEdit8: TDBEdit Left = 11 Top = 145 Width = 70 Height = 24 BorderStyle = bsNone DataField = 'ShipToZip' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 10 ParentFont = False TabOrder = 6 end end object Panel5: TPanel Left = 12 Top = 126 Width = 243 Height = 175 BorderStyle = bsSingle TabOrder = 9 object DBEdit9: TDBEdit Left = 12 Top = 10 Width = 210 Height = 24 BorderStyle = bsNone DataField = 'Company' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 0 end object DBEdit10: TDBEdit Left = 12 Top = 26 Width = 210 Height = 24 BorderStyle = bsNone DataField = 'Addr1' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 1 end object DBEdit11: TDBEdit Left = 12 Top = 44 Width = 210 Height = 24 BorderStyle = bsNone DataField = 'Addr2' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 30 ParentFont = False TabOrder = 2 end object DBEdit12: TDBEdit Left = 12 Top = 59 Width = 105 Height = 24 BorderStyle = bsNone DataField = 'City' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 15 ParentFont = False TabOrder = 3 end object DBEdit13: TDBEdit Left = 12 Top = 75 Width = 140 Height = 24 BorderStyle = bsNone DataField = 'State' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 20 ParentFont = False TabOrder = 4 end object DBEdit14: TDBEdit Left = 12 Top = 91 Width = 140 Height = 24 BorderStyle = bsNone DataField = 'Country' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 20 ParentFont = False TabOrder = 5 end object DBEdit15: TDBEdit Left = 12 Top = 111 Width = 70 Height = 24 BorderStyle = bsNone DataField = 'Zip' DataSource = DataSource1 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 10 ParentFont = False TabOrder = 6 end end object Edit4: TEdit Left = 0 Top = 320 Width = 112 Height = 26 Color = clGray Enabled = False Font.Color = clWhite Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 10 Text = 'Ship Via' end object EditShipVIA: TDBEdit Left = 0 Top = 344 Width = 112 Height = 24 Color = clWhite DataField = 'ShipVIA' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 7 ParentFont = False TabOrder = 11 end object Edit5: TEdit Left = 112 Top = 320 Width = 105 Height = 26 Color = clGray Enabled = False Font.Color = clWhite Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 12 Text = 'PO' end object EditPO: TDBEdit Left = 112 Top = 344 Width = 105 Height = 24 Color = clWhite DataField = 'PO' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 15 ParentFont = False TabOrder = 13 end object Edit6: TEdit Left = 216 Top = 320 Width = 113 Height = 26 Color = clGray Enabled = False Font.Color = clWhite Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 14 Text = 'Terms' end object EditTerms: TDBEdit Left = 216 Top = 344 Width = 113 Height = 24 Color = clWhite DataField = 'Terms' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 6 ParentFont = False TabOrder = 15 end object Edit7: TEdit Left = 328 Top = 320 Width = 113 Height = 26 Color = clGray Enabled = False Font.Color = clWhite Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 16 Text = 'Sale Date' end object EditSaleDate: TDBEdit Left = 328 Top = 344 Width = 113 Height = 24 Color = clWhite DataField = 'SaleDate' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 0 ParentFont = False TabOrder = 17 end object Edit8: TEdit Left = 440 Top = 320 Width = 153 Height = 26 Color = clGray Enabled = False Font.Color = clWhite Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 18 Text = 'Ship Date' end object EditShipDate: TDBEdit Left = 440 Top = 344 Width = 153 Height = 24 Color = clWhite DataField = 'ShipDate' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 0 ParentFont = False TabOrder = 19 end object Edit9: TEdit Left = 592 Top = 320 Width = 129 Height = 26 Color = clGray Enabled = False Font.Color = clWhite Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 20 Text = 'Payment Method' end object EditPaymentMethod: TDBEdit Left = 592 Top = 344 Width = 129 Height = 24 Color = clWhite DataField = 'PaymentMethod' DataSource = DataSource2 Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 7 ParentFont = False TabOrder = 21 end object Memo2: TMemo Left = 0 Top = 909 Width = 721 Height = 111 Color = clWhite Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic] Lines.Strings = ( 'Note to the programmer: If you have a problem with the physical ' + 'size of this Invoice' 'on the screen then look at Demo15 for a solution' '' 'The TPrintWin together with the TShowTotal components allow you ' + 'to create and print ' 'this very sophisticated multi-page Invoice with Totals with less' + ' than 30 lines of code.') ParentFont = False TabOrder = 22 end object Edit19: TEdit Left = 70 Top = 822 Width = 121 Height = 24 Color = clSilver Enabled = False Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 23 Text = 'Customer #' end object Edit20: TEdit Left = 70 Top = 850 Width = 121 Height = 24 Color = clSilver Enabled = False Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 24 Text = 'Amount Enclosed' end object DBEdit1: TDBEdit Left = 194 Top = 822 Width = 121 Height = 25 Color = clWhite DataField = 'CustNo' DataSource = DataSource1 Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] MaxLength = 0 ParentFont = False TabOrder = 25 end object Edit21: TEdit Left = 194 Top = 850 Width = 119 Height = 25 Color = clWhite Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 26 end object ShowTotal2: TShowTotal Left = 500 Top = 783 Width = 116 Height = 24 ParentFont = False BorderStyle = bsSingle Color = clBtnFace Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] TotalType = tPageTotal DisplayFormat = '#,##0.00' Text = 'SubTotal' ShowOn = tLastPage Alignment = taCenter ShowOnForm = True end object ShowTotal3: TShowTotal Left = 500 Top = 807 Width = 116 Height = 24 ParentFont = False BorderStyle = bsSingle Color = clBtnFace Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] TotalType = tPageTotal DisplayFormat = '#,##0.00' Text = 'Tax' ShowOn = tLastPage Alignment = taCenter ShowOnForm = True end object ShowTotal4: TShowTotal Left = 500 Top = 831 Width = 116 Height = 24 ParentFont = False BorderStyle = bsSingle Color = clBtnFace Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] TotalType = tPageTotal DisplayFormat = '#,##0.00' Text = 'Freight' ShowOn = tLastPage Alignment = taCenter ShowOnForm = True end object ShowTotal5: TShowTotal Left = 500 Top = 855 Width = 116 Height = 24 ParentFont = False BorderStyle = bsSingle Color = clBtnFace Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] TotalType = tPageTotal DisplayFormat = '#,##0.00' Text = 'Miscellaneous' ShowOn = tLastPage Alignment = taCenter ShowOnForm = True end object ShowTotal6: TShowTotal Left = 500 Top = 879 Width = 109 Height = 24 ParentFont = False BorderStyle = bsNone Color = clBtnFace Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] TotalType = tPageTotal DisplayFormat = '#,##0.00' Text = 'Total' ShowOn = tLastPage Alignment = taCenter ShowOnForm = True end object Tax: TShowTotal Left = 616 Top = 807 Width = 105 Height = 24 ParentFont = False BorderStyle = bsSingle Color = clWhite Font.Color = clBlue Font.Height = -17 Font.Name = 'Arial' Font.Style = [] TotalType = tText DisplayFormat = '$#,##0.00' Text = '0.00' ShowOn = tLastPage Alignment = taRightJustify ShowOnForm = True end object Freight: TShowTotal Left = 616 Top = 831 Width = 105 Height = 24 ParentFont = False BorderStyle = bsSingle Color = clWhite Font.Color = clBlue Font.Height = -17 Font.Name = 'Arial' Font.Style = [] TotalType = tText DisplayFormat = '$#,##0.00' Text = '0.00' ShowOn = tLastPage Alignment = taRightJustify ShowOnForm = True end object Miscellaneous: TShowTotal Left = 616 Top = 855 Width = 105 Height = 24 ParentFont = False BorderStyle = bsSingle Color = clWhite Font.Color = clBlue Font.Height = -17 Font.Name = 'Arial' Font.Style = [] TotalType = tText DisplayFormat = '$#,##0.00' Text = '0.00' ShowOn = tLastPage Alignment = taRightJustify ShowOnForm = True end object Total: TShowTotal Left = 616 Top = 879 Width = 105 Height = 24 ParentFont = False BorderStyle = bsSingle Color = clWhite Font.Color = clBlue Font.Height = -17 Font.Name = 'Arial' Font.Style = [] TotalType = tText DisplayFormat = '$#,##0.00' Text = '0.00' ShowOn = tLastPage Alignment = taRightJustify ShowOnForm = True end object ShowTotal1: TShowTotal Left = 548 Top = 32 Width = 100 Height = 29 ParentFont = False BorderStyle = bsNone Color = clBtnFace Font.Color = clWindowText Font.Height = -17 Font.Name = 'Arial' Font.Style = [] TotalType = tDate DisplayFormat = '#,##0.00' Text = '0.00' ShowOn = tAllPages Alignment = taRightJustify ShowOnForm = True end object ShowTotal7: TShowTotal Left = 548 Top = 60 Width = 101 Height = 29 ParentFont = False BorderStyle = bsNone Color = clBtnFace Font.Color = clWindowText Font.Height = -17 Font.Name = 'Arial' Font.Style = [] TotalType = tPageNumber DisplayFormat = '#' Text = '1' ShowOn = tAllPages Alignment = taRightJustify ShowOnForm = True end end end object Table1: TTable Active = True DatabaseName = 'DBDEMOS' TableName = 'customer.db' Left = 292 end object DataSource1: TDataSource DataSet = Table1 Left = 260 end object Table2: TTable Active = True DatabaseName = 'DBDEMOS' IndexFieldNames = 'CustNo' MasterFields = 'CustNo' MasterSource = DataSource1 TableName = 'orders.db' Left = 264 Top = 28 end object DataSource2: TDataSource DataSet = Table2 Left = 292 Top = 28 end object DataSource3: TDataSource DataSet = Table3 Left = 324 Top = 20 end object Table3: TTable Active = True OnCalcFields = Table3CalcFields DatabaseName = 'DBDEMOS' IndexName = 'ByOrderNo' MasterFields = 'OrderNo' MasterSource = DataSource2 TableName = 'items.db' Left = 356 Top = 20 object Table3OrderNo: TFloatField FieldName = 'OrderNo' Visible = False end object Table3ItemNo: TFloatField DisplayWidth = 9 FieldName = 'ItemNo' end object Table3PartNo: TFloatField DisplayWidth = 10 FieldName = 'PartNo' end object Table3Description: TStringField Calculated = True FieldName = 'Description' end object Table3Qty: TIntegerField DisplayWidth = 7 FieldName = 'Qty' end object Table3ListPrice: TCurrencyField Calculated = True DisplayWidth = 9 FieldName = 'List Price' DisplayFormat = '$ #,##0.00' Currency = True end object Table3Discount: TFloatField DisplayWidth = 9 FieldName = 'Discount' end object Table3Total: TCurrencyField Calculated = True DisplayWidth = 13 FieldName = 'Total' DisplayFormat = '$ #,##0.00' Currency = True end end object Table4: TTable Active = True DatabaseName = 'DBDEMOS' IndexFieldNames = 'PartNo' TableName = 'PARTS.DB' Left = 388 Top = 4 object Table4PartNo: TFloatField FieldName = 'PartNo' end object Table4VendorNo: TFloatField FieldName = 'VendorNo' end object Table4Description: TStringField FieldName = 'Description' Size = 30 end object Table4OnHand: TFloatField FieldName = 'OnHand' end object Table4OnOrder: TFloatField FieldName = 'OnOrder' end object Table4Cost: TCurrencyField FieldName = 'Cost' Currency = True end object Table4ListPrice: TCurrencyField FieldName = 'ListPrice' Currency = True end end object DataSource4: TDataSource DataSet = Table4 Left = 416 Top = 4 end object DBPrintWin1: TDBPrintWin About = 'Version 5.32' AboutRegistered = 'TOM SNIDER' HeaderFont.Color = clWindowText HeaderFont.Height = 16 HeaderFont.Name = 'Arial' HeaderFont.Style = [] Font.Color = clWindowText Font.Height = 16 Font.Name = 'Arial' Font.Style = [] FooterFont.Color = clWindowText FooterFont.Height = 12 FooterFont.Name = 'Arial' FooterFont.Style = [] FrameObjects = True clBtnFaceAsWhite = True OutputTo = poViewer Orientation = Default Units = poInches ViewButtonVisible = False ShowCancelDialog = True LineWidth = 0 Copies = 1 GridBackDrop = False GridBackDropUnits = poInches ZoomPercentage = 25.000000000000000000 HeaderTop = 0.500000000000000000 HeaderLeft = 0.500000000000000000 HeaderStringLeft = ' ' HeaderStringCenter = ' ' HeaderStringRight = ' ' HeaderEnabled = True HeaderOutlined = False HeaderFilled = False TextColor = clBlack ViewBkColor = 11234567 ViewHeading = 'Printit Viewer' HeadingColor = clSilver FrameStyle = frThin FooterTop = 10.510000000000000000 FooterString = ' ' FooterEnabled = True FooterOutlined = False FooterFilled = False FixSansSerif = True FooterStringLeft = 'Printed on @Date at @Time' FooterStringRight = 'Page @Page' BorderLeft = 0.500000000000000000 BorderRight = 0.500000000000000000 LineSpacing = 2.500000000000000000 ExecuteWinControl = DBGrid1 Left = 432 Top = 66 end end