home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO08.DFM / FDEMO08.txt
Encoding:
Text File  |  1996-12-09  |  7.9 KB  |  283 lines
  1. object Form08: TForm08
  2.   Left = 177
  3.   Top = 314
  4.   Width = 550
  5.   Height = 423
  6.   ActiveControl = Panel1
  7.   Caption = 'Form08'
  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 = 542
  20.     Height = 81
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Label9: TLabel
  24.       Left = 16
  25.       Top = 48
  26.       Width = 479
  27.       Height = 19
  28.       Caption = 'This is a demonstration of the TPrintWin Component using 2 grids'
  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 DBNavigator: TDBNavigator
  38.       Left = 10
  39.       Top = 10
  40.       Width = 161
  41.       Height = 31
  42.       DataSource = DataSource1
  43.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  44.       Ctl3D = False
  45.       ParentCtl3D = False
  46.       TabOrder = 0
  47.     end
  48.     object Preview: TBitBtn
  49.       Left = 272
  50.       Top = 9
  51.       Width = 89
  52.       Height = 32
  53.       Caption = 'Pre&View'
  54.       TabOrder = 1
  55.       OnClick = PreviewClick
  56.       Glyph.Data = {
  57.         76010000424D7601000000000000760000002800000020000000100000000100
  58.         04000000000000010000130B0000130B00000000000000000000000000000000
  59.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  60.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  61.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  62.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  63.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  64.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  65.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  66.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  67.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  68.         33333337FFFF7733333333300000033333333337777773333333}
  69.       NumGlyphs = 2
  70.     end
  71.     object Exit: TBitBtn
  72.       Left = 368
  73.       Top = 9
  74.       Width = 89
  75.       Height = 32
  76.       Caption = '&Exit'
  77.       TabOrder = 2
  78.       OnClick = ExitClick
  79.       Glyph.Data = {
  80.         76010000424D7601000000000000760000002800000020000000100000000100
  81.         04000000000000010000130B0000130B00000000000000000000000000000000
  82.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  83.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  84.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  85.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  86.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  87.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  88.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  89.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  90.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  91.         33333337FFFF7733333333300000033333333337777773333333}
  92.       NumGlyphs = 2
  93.     end
  94.   end
  95.   object Panel2: TPanel
  96.     Left = 0
  97.     Top = 81
  98.     Width = 542
  99.     Height = 92
  100.     Align = alTop
  101.     BevelInner = bvLowered
  102.     BorderWidth = 4
  103.     Caption = 'Panel2'
  104.     TabOrder = 1
  105.     object DBGrid1: TDBGrid
  106.       Left = 6
  107.       Top = 6
  108.       Width = 530
  109.       Height = 80
  110.       Align = alClient
  111.       BorderStyle = bsNone
  112.       DataSource = DataSource1
  113.       Font.Color = clBlack
  114.       Font.Height = -13
  115.       Font.Name = 'Arial'
  116.       Font.Style = []
  117.       Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  118.       ParentFont = False
  119.       TabOrder = 0
  120.       TitleFont.Color = clBlack
  121.       TitleFont.Height = -13
  122.       TitleFont.Name = 'Arial'
  123.       TitleFont.Style = []
  124.     end
  125.   end
  126.   object Panel3: TPanel
  127.     Left = 0
  128.     Top = 173
  129.     Width = 542
  130.     Height = 223
  131.     Align = alClient
  132.     BevelInner = bvLowered
  133.     BorderWidth = 4
  134.     Caption = 'Panel3'
  135.     TabOrder = 2
  136.     object DBGrid2: TDBGrid
  137.       Left = 6
  138.       Top = 6
  139.       Width = 530
  140.       Height = 211
  141.       Align = alClient
  142.       BorderStyle = bsNone
  143.       DataSource = DataSource2
  144.       Font.Color = clBlack
  145.       Font.Height = -13
  146.       Font.Name = 'Arial'
  147.       Font.Style = []
  148.       Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  149.       ParentFont = False
  150.       TabOrder = 0
  151.       TitleFont.Color = clBlack
  152.       TitleFont.Height = -13
  153.       TitleFont.Name = 'Arial'
  154.       TitleFont.Style = []
  155.     end
  156.   end
  157.   object DataSource1: TDataSource
  158.     DataSet = Table1
  159.     Left = 287
  160.     Top = 49
  161.   end
  162.   object DataSource2: TDataSource
  163.     DataSet = Table2
  164.     Left = 341
  165.     Top = 45
  166.   end
  167.   object Table1: TTable
  168.     Active = True
  169.     DatabaseName = 'DBDEMOS'
  170.     TableName = 'customer.db'
  171.     Left = 260
  172.     Top = 49
  173.     object Table1CustNo: TFloatField
  174.       DisplayWidth = 8
  175.       FieldName = 'CustNo'
  176.     end
  177.     object Table1Company: TStringField
  178.       DisplayWidth = 22
  179.       FieldName = 'Company'
  180.       Size = 30
  181.     end
  182.     object Table1Contact: TStringField
  183.       DisplayWidth = 20
  184.       FieldName = 'Contact'
  185.     end
  186.     object Table1LastInvoiceDate: TDateTimeField
  187.       DisplayWidth = 20
  188.       FieldName = 'LastInvoiceDate'
  189.     end
  190.   end
  191.   object Table2: TTable
  192.     Active = True
  193.     DatabaseName = 'DBDEMOS'
  194.     IndexFieldNames = 'CustNo'
  195.     MasterFields = 'CustNo'
  196.     MasterSource = DataSource1
  197.     TableName = 'orders.db'
  198.     Left = 314
  199.     Top = 49
  200.     object Table2OrderNo: TFloatField
  201.       DisplayWidth = 11
  202.       FieldName = 'OrderNo'
  203.     end
  204.     object Table2CustNo: TFloatField
  205.       FieldName = 'CustNo'
  206.       Required = True
  207.       Visible = False
  208.     end
  209.     object Table2SaleDate: TDateTimeField
  210.       DisplayWidth = 12
  211.       FieldName = 'SaleDate'
  212.     end
  213.     object Table2ShipDate: TDateTimeField
  214.       DisplayWidth = 11
  215.       FieldName = 'ShipDate'
  216.     end
  217.     object Table2ItemsTotal: TCurrencyField
  218.       DisplayWidth = 13
  219.       FieldName = 'ItemsTotal'
  220.       Currency = True
  221.     end
  222.     object Table2AmountPaid: TCurrencyField
  223.       DisplayWidth = 18
  224.       FieldName = 'AmountPaid'
  225.       Currency = True
  226.     end
  227.   end
  228.   object DBPrintWin1: TDBPrintWin
  229.     About = 'Version 5.32'
  230.     AboutRegistered = 'TOM SNIDER'
  231.     HeaderFont.Color = clWindowText
  232.     HeaderFont.Height = 16
  233.     HeaderFont.Name = 'Arial'
  234.     HeaderFont.Style = []
  235.     Font.Color = clWindowText
  236.     Font.Height = 16
  237.     Font.Name = 'Arial'
  238.     Font.Style = []
  239.     FooterFont.Color = clWindowText
  240.     FooterFont.Height = 12
  241.     FooterFont.Name = 'Arial'
  242.     FooterFont.Style = []
  243.     FrameObjects = True
  244.     clBtnFaceAsWhite = True
  245.     OutputTo = poViewer
  246.     Orientation = Default
  247.     Units = poInches
  248.     ViewButtonVisible = False
  249.     ShowCancelDialog = True
  250.     LineWidth = 0
  251.     Copies = 1
  252.     GridBackDrop = False
  253.     GridBackDropUnits = poInches
  254.     ZoomPercentage = 25.000000000000000000
  255.     HeaderTop = 0.500000000000000000
  256.     HeaderLeft = 0.500000000000000000
  257.     HeaderStringLeft = '                                  '
  258.     HeaderStringCenter = '                                  '
  259.     HeaderStringRight = '                                  '
  260.     HeaderEnabled = True
  261.     HeaderOutlined = False
  262.     HeaderFilled = False
  263.     TextColor = clBlack
  264.     ViewBkColor = 11234567
  265.     ViewHeading = 'Printit Viewer'
  266.     HeadingColor = clSilver
  267.     FrameStyle = frThin
  268.     FooterTop = 10.170000000000000000
  269.     FooterString = '                                                  '
  270.     FooterEnabled = True
  271.     FooterOutlined = False
  272.     FooterFilled = False
  273.     FixSansSerif = True
  274.     FooterStringLeft = 'Printed on @Date at @Time'
  275.     FooterStringRight = 'Page @Page'
  276.     BorderLeft = 0.500000000000000000
  277.     BorderRight = 0.500000000000000000
  278.     LineSpacing = 2.800000000000000000
  279.     Left = 192
  280.     Top = 16
  281.   end
  282. end
  283.