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

Text File | 1996-12-09 | 5.4 KB | 238 lines

object dem05form: Tdem05form
  Left = 166
  Top = 203
  Width = 549
  Height = 489
  ActiveControl = Panel1
  Caption = 'dem05form'
  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 = 541
    Height = 89
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 84
      Top = 16
      Width = 357
      Height = 24
      Caption = 'TPrintGridReport Report Styles Demo'
      Color = clBtnFace
      Font.Color = clMaroon
      Font.Height = -20
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Style1: TBitBtn
      Left = 8
      Top = 48
      Width = 85
      Height = 34
      Caption = 'Style &1'
      TabOrder = 0
      OnClick = Style1Click
    end
    object Exit: TBitBtn
      Left = 448
      Top = 48
      Width = 85
      Height = 34
      Caption = '&Exit'
      ModalResult = 1
      TabOrder = 1
    end
    object Style2: TBitBtn
      Left = 96
      Top = 48
      Width = 85
      Height = 34
      Caption = 'Style &2'
      TabOrder = 2
      OnClick = Style2Click
    end
    object Style3: TBitBtn
      Left = 184
      Top = 48
      Width = 85
      Height = 34
      Caption = 'Style &3'
      TabOrder = 3
      OnClick = Style3Click
    end
    object Style4: TBitBtn
      Left = 272
      Top = 48
      Width = 85
      Height = 34
      Caption = 'Style &4'
      TabOrder = 4
      OnClick = Style4Click
    end
    object Style5: TBitBtn
      Left = 360
      Top = 48
      Width = 85
      Height = 34
      Caption = 'Style &5'
      TabOrder = 5
      OnClick = Style5Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 89
    Width = 541
    Height = 373
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 6
      Top = 6
      Width = 529
      Height = 361
      Align = alClient
      BorderStyle = bsNone
      DataSource = DataSource1
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsItalic]
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clRed
      TitleFont.Height = -15
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'Select'
      '  parts."PartNo",'
      '  parts."VendorNo",'
      '  parts."Description",'
      '  parts."OnHand",'
      '  parts."OnOrder",'
      '  parts."Cost",'
      '  parts."ListPrice"'
      'From "parts.db"'
      'As parts'
      'order by'
      'VendorNo')
    Left = 196
    Top = 65533
    object Query1PartNo: TFloatField
      DisplayWidth = 7
      FieldName = 'PartNo'
    end
    object Query1VendorNo: TFloatField
      FieldName = 'VendorNo'
      Visible = False
    end
    object Query1Description: TStringField
      DisplayWidth = 23
      FieldName = 'Description'
      Size = 30
    end
    object Query1OnHand: TFloatField
      DisplayWidth = 7
      FieldName = 'OnHand'
    end
    object Query1OnOrder: TFloatField
      DisplayWidth = 7
      FieldName = 'OnOrder'
    end
    object Query1ListPrice: TCurrencyField
      DisplayWidth = 9
      FieldName = 'ListPrice'
      DisplayFormat = '$ #,##0.00'
      Currency = True
    end
    object Query1Cost: TCurrencyField
      DisplayWidth = 6
      FieldName = 'Cost'
      DisplayFormat = '$ #,##0.00'
      Currency = True
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 171
    Top = 65529
  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 = clTeal
    FooterFont.Height = -12
    FooterFont.Name = 'Arial'
    FooterFont.Style = []
    HeaderFont.Color = clMaroon
    HeaderFont.Height = -17
    HeaderFont.Name = 'Arial'
    HeaderFont.Style = []
    ViewerOptions = []
    SubTotalString = '** SubTotal of @RecCount Records **'
    TotalString = '*** Total of @RecCount Records ***'
    ZoomPercentage = 25.000000000000000000
    HeaderTop = 0.500000000000000000
    HeaderStringLeft = 'Demo'
    HeaderStringCenter = 'Page Header'
    HeaderStringRight = 'Reportit'
    HeaderEnabled = True
    HeaderOutlined = True
    HeaderFilled = True
    FooterTop = 24.630000000000000000
    FooterString = 'Page Footer'
    FooterEnabled = True
    FooterOutlined = True
    FooterFilled = False
    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 = True
    GridLines = True
    LineSpacing = 1.500000000000000000
    Grid = DBGrid1
    GridMinWidth = True
    GridCentered = True
    GridPrintTotal = True
    PrintSubTotals = True
    FrameStyleLeft = frNone
    FrameStyleTop = frDoubleThickThin
    FrameStyleRight = frNone
    FrameStyleBottom = frSingleThin
    ReportStyle = rsOwn
    Left = 132
  end
end