home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO07.DFM / FDEMO07.txt
Encoding:
Text File  |  1996-12-09  |  14.4 KB  |  589 lines
  1. object Form07: TForm07
  2.   Left = 109
  3.   Top = 157
  4.   Width = 625
  5.   Height = 520
  6.   ActiveControl = Panel1
  7.   Caption = 'Form07'
  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 = 617
  20.     Height = 105
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Label9: TLabel
  24.       Left = 16
  25.       Top = 64
  26.       Width = 423
  27.       Height = 21
  28.       Caption = 'This is a demonstration of the TPrintWin Component.'
  29.       Color = clBtnFace
  30.       Font.Color = clMaroon
  31.       Font.Height = -18
  32.       Font.Name = 'Arial'
  33.       Font.Style = []
  34.       ParentColor = False
  35.       ParentFont = False
  36.     end
  37.     object DBNavigator: TDBNavigator
  38.       Left = -98
  39.       Top = -138
  40.       Width = 137
  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 = 373
  50.       Top = 9
  51.       Width = 88
  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 = 473
  73.       Top = 9
  74.       Width = 88
  75.       Height = 32
  76.       Caption = '&Exit'
  77.       ModalResult = 2
  78.       TabOrder = 2
  79.       OnClick = ExitClick
  80.       NumGlyphs = 2
  81.     end
  82.     object DBNavigator1: TDBNavigator
  83.       Left = 24
  84.       Top = 16
  85.       Width = 241
  86.       Height = 25
  87.       DataSource = DataSource1
  88.       TabOrder = 3
  89.     end
  90.   end
  91.   object Panel2: TPanel
  92.     Left = 0
  93.     Top = 105
  94.     Width = 617
  95.     Height = 240
  96.     Align = alTop
  97.     BevelInner = bvLowered
  98.     BorderWidth = 4
  99.     Caption = 'Panel2'
  100.     TabOrder = 1
  101.     object ScrollBox: TScrollBox
  102.       Left = 6
  103.       Top = 6
  104.       Width = 605
  105.       Height = 228
  106.       HorzScrollBar.Margin = 6
  107.       HorzScrollBar.Range = 298
  108.       VertScrollBar.Margin = 6
  109.       VertScrollBar.Range = 362
  110.       VertScrollBar.Visible = False
  111.       Align = alClient
  112.       AutoScroll = False
  113.       BorderStyle = bsNone
  114.       Color = clBtnFace
  115.       Font.Color = clBlack
  116.       Font.Height = -13
  117.       Font.Name = 'MS Sans Serif'
  118.       Font.Style = []
  119.       ParentColor = False
  120.       ParentFont = False
  121.       TabOrder = 0
  122.       object Label1: TLabel
  123.         Left = 37
  124.         Top = 6
  125.         Width = 43
  126.         Height = 16
  127.         Alignment = taRightJustify
  128.         Caption = 'CustNo'
  129.         FocusControl = EditCustNo
  130.         Font.Color = clBlack
  131.         Font.Height = -13
  132.         Font.Name = 'Arial'
  133.         Font.Style = []
  134.         ParentFont = False
  135.       end
  136.       object Label2: TLabel
  137.         Left = 25
  138.         Top = 39
  139.         Width = 55
  140.         Height = 16
  141.         Alignment = taRightJustify
  142.         Caption = 'Company'
  143.         FocusControl = EditCompany
  144.         Font.Color = clBlack
  145.         Font.Height = -13
  146.         Font.Name = 'Arial'
  147.         Font.Style = []
  148.         ParentFont = False
  149.       end
  150.       object Label3: TLabel
  151.         Left = 46
  152.         Top = 71
  153.         Width = 34
  154.         Height = 16
  155.         Alignment = taRightJustify
  156.         Caption = 'Addr1'
  157.         FocusControl = EditAddr
  158.         Font.Color = clBlack
  159.         Font.Height = -13
  160.         Font.Name = 'Arial'
  161.         Font.Style = []
  162.         ParentFont = False
  163.       end
  164.       object Label4: TLabel
  165.         Left = 46
  166.         Top = 105
  167.         Width = 34
  168.         Height = 16
  169.         Alignment = taRightJustify
  170.         Caption = 'Addr2'
  171.         FocusControl = EditAddr2
  172.         Font.Color = clBlack
  173.         Font.Height = -13
  174.         Font.Name = 'Arial'
  175.         Font.Style = []
  176.         ParentFont = False
  177.       end
  178.       object Label5: TLabel
  179.         Left = 57
  180.         Top = 137
  181.         Width = 23
  182.         Height = 16
  183.         Alignment = taRightJustify
  184.         Caption = 'City'
  185.         FocusControl = EditCity
  186.         Font.Color = clBlack
  187.         Font.Height = -13
  188.         Font.Name = 'Arial'
  189.         Font.Style = []
  190.         ParentFont = False
  191.       end
  192.       object Label6: TLabel
  193.         Left = 49
  194.         Top = 170
  195.         Width = 31
  196.         Height = 16
  197.         Alignment = taRightJustify
  198.         Caption = 'State'
  199.         FocusControl = EditState
  200.         Font.Color = clBlack
  201.         Font.Height = -13
  202.         Font.Name = 'Arial'
  203.         Font.Style = []
  204.         ParentFont = False
  205.       end
  206.       object Label7: TLabel
  207.         Left = 63
  208.         Top = 202
  209.         Width = 17
  210.         Height = 16
  211.         Alignment = taRightJustify
  212.         Caption = 'Zip'
  213.         FocusControl = EditZip
  214.         Font.Color = clBlack
  215.         Font.Height = -13
  216.         Font.Name = 'Arial'
  217.         Font.Style = []
  218.         ParentFont = False
  219.       end
  220.       object GroupBox1: TGroupBox
  221.         Left = 356
  222.         Top = 12
  223.         Width = 185
  224.         Height = 125
  225.         Caption = 'Testing '
  226.         Font.Color = clBlack
  227.         Font.Height = -13
  228.         Font.Name = 'Arial'
  229.         Font.Style = []
  230.         ParentFont = False
  231.         TabOrder = 7
  232.         object Label8: TLabel
  233.           Left = 24
  234.           Top = 20
  235.           Width = 107
  236.           Height = 16
  237.           Caption = 'Label in GroupBox'
  238.           Font.Color = clBlack
  239.           Font.Height = -13
  240.           Font.Name = 'Arial'
  241.           Font.Style = []
  242.           ParentFont = False
  243.         end
  244.         object CheckBox1: TCheckBox
  245.           Left = 24
  246.           Top = 48
  247.           Width = 97
  248.           Height = 17
  249.           Caption = 'CheckBox '
  250.           Font.Color = clBlack
  251.           Font.Height = -13
  252.           Font.Name = 'Arial'
  253.           Font.Style = []
  254.           ParentFont = False
  255.           TabOrder = 0
  256.         end
  257.         object RadioButton1: TRadioButton
  258.           Left = 24
  259.           Top = 76
  260.           Width = 113
  261.           Height = 17
  262.           Caption = 'RadioButton1'
  263.           Font.Color = clBlack
  264.           Font.Height = -13
  265.           Font.Name = 'Arial'
  266.           Font.Style = []
  267.           ParentFont = False
  268.           TabOrder = 1
  269.         end
  270.         object RadioButton2: TRadioButton
  271.           Left = 24
  272.           Top = 96
  273.           Width = 113
  274.           Height = 17
  275.           Caption = 'RadioButton2'
  276.           Checked = True
  277.           Font.Color = clBlack
  278.           Font.Height = -13
  279.           Font.Name = 'Arial'
  280.           Font.Style = []
  281.           ParentFont = False
  282.           TabOrder = 2
  283.           TabStop = True
  284.         end
  285.       end
  286.       object EditCustNo: TDBEdit
  287.         Left = 102
  288.         Top = 5
  289.         Width = 70
  290.         Height = 24
  291.         Color = clWhite
  292.         DataField = 'CustNo'
  293.         DataSource = DataSource1
  294.         Font.Color = clMaroon
  295.         Font.Height = -13
  296.         Font.Name = 'Arial'
  297.         Font.Style = []
  298.         MaxLength = 0
  299.         ParentFont = False
  300.         TabOrder = 0
  301.       end
  302.       object EditCompany: TDBEdit
  303.         Left = 102
  304.         Top = 37
  305.         Width = 211
  306.         Height = 24
  307.         Color = clWhite
  308.         DataField = 'Company'
  309.         DataSource = DataSource1
  310.         Font.Color = clMaroon
  311.         Font.Height = -13
  312.         Font.Name = 'Arial'
  313.         Font.Style = []
  314.         MaxLength = 30
  315.         ParentFont = False
  316.         TabOrder = 1
  317.       end
  318.       object EditAddr: TDBEdit
  319.         Left = 102
  320.         Top = 69
  321.         Width = 211
  322.         Height = 24
  323.         Color = clWhite
  324.         DataField = 'Addr1'
  325.         DataSource = DataSource1
  326.         Font.Color = clMaroon
  327.         Font.Height = -13
  328.         Font.Name = 'Arial'
  329.         Font.Style = []
  330.         MaxLength = 30
  331.         ParentFont = False
  332.         TabOrder = 2
  333.       end
  334.       object EditAddr2: TDBEdit
  335.         Left = 102
  336.         Top = 101
  337.         Width = 211
  338.         Height = 24
  339.         Color = clWhite
  340.         DataField = 'Addr2'
  341.         DataSource = DataSource1
  342.         Font.Color = clMaroon
  343.         Font.Height = -13
  344.         Font.Name = 'Arial'
  345.         Font.Style = []
  346.         MaxLength = 30
  347.         ParentFont = False
  348.         TabOrder = 3
  349.       end
  350.       object EditCity: TDBEdit
  351.         Left = 102
  352.         Top = 133
  353.         Width = 106
  354.         Height = 24
  355.         Color = clWhite
  356.         DataField = 'City'
  357.         DataSource = DataSource1
  358.         Font.Color = clMaroon
  359.         Font.Height = -13
  360.         Font.Name = 'Arial'
  361.         Font.Style = []
  362.         MaxLength = 15
  363.         ParentFont = False
  364.         TabOrder = 4
  365.       end
  366.       object EditState: TDBEdit
  367.         Left = 102
  368.         Top = 165
  369.         Width = 139
  370.         Height = 24
  371.         Color = clWhite
  372.         DataField = 'State'
  373.         DataSource = DataSource1
  374.         Font.Color = clMaroon
  375.         Font.Height = -13
  376.         Font.Name = 'Arial'
  377.         Font.Style = []
  378.         MaxLength = 20
  379.         ParentFont = False
  380.         TabOrder = 5
  381.       end
  382.       object EditZip: TDBEdit
  383.         Left = 102
  384.         Top = 197
  385.         Width = 70
  386.         Height = 24
  387.         Color = clWhite
  388.         DataField = 'Zip'
  389.         DataSource = DataSource1
  390.         Font.Color = clMaroon
  391.         Font.Height = -13
  392.         Font.Name = 'Arial'
  393.         Font.Style = []
  394.         MaxLength = 10
  395.         ParentFont = False
  396.         TabOrder = 6
  397.       end
  398.       object RadioGroup1: TRadioGroup
  399.         Left = 356
  400.         Top = 144
  401.         Width = 185
  402.         Height = 77
  403.         Caption = 'RadioGroup Test'
  404.         Font.Color = clBlack
  405.         Font.Height = -13
  406.         Font.Name = 'Arial'
  407.         Font.Style = []
  408.         ParentFont = False
  409.         TabOrder = 8
  410.       end
  411.       object RadioButton3: TRadioButton
  412.         Left = 376
  413.         Top = 164
  414.         Width = 113
  415.         Height = 17
  416.         Alignment = taLeftJustify
  417.         Caption = 'RadioButton3'
  418.         Checked = True
  419.         Font.Color = clBlack
  420.         Font.Height = -13
  421.         Font.Name = 'Arial'
  422.         Font.Style = []
  423.         ParentFont = False
  424.         TabOrder = 9
  425.         TabStop = True
  426.       end
  427.       object RadioButton4: TRadioButton
  428.         Left = 376
  429.         Top = 188
  430.         Width = 113
  431.         Height = 17
  432.         Alignment = taLeftJustify
  433.         Caption = 'RadioButton4'
  434.         Font.Color = clBlack
  435.         Font.Height = -13
  436.         Font.Name = 'Arial'
  437.         Font.Style = []
  438.         ParentFont = False
  439.         TabOrder = 10
  440.       end
  441.     end
  442.   end
  443.   object Panel3: TPanel
  444.     Left = 0
  445.     Top = 345
  446.     Width = 617
  447.     Height = 148
  448.     Align = alClient
  449.     BevelInner = bvLowered
  450.     BorderWidth = 4
  451.     Caption = 'Panel3'
  452.     TabOrder = 2
  453.     object DBGrid1: TDBGrid
  454.       Left = 6
  455.       Top = 6
  456.       Width = 605
  457.       Height = 136
  458.       Align = alClient
  459.       BorderStyle = bsNone
  460.       DataSource = DataSource2
  461.       Font.Color = clBlack
  462.       Font.Height = -13
  463.       Font.Name = 'Arial'
  464.       Font.Style = []
  465.       ParentFont = False
  466.       TabOrder = 0
  467.       TitleFont.Color = clBlack
  468.       TitleFont.Height = -13
  469.       TitleFont.Name = 'Arial'
  470.       TitleFont.Style = []
  471.     end
  472.   end
  473.   object DataSource1: TDataSource
  474.     DataSet = Table1
  475.     Left = 335
  476.     Top = 61
  477.   end
  478.   object DataSource2: TDataSource
  479.     DataSet = Table2
  480.     Left = 333
  481.     Top = 25
  482.   end
  483.   object Table1: TTable
  484.     Active = True
  485.     DatabaseName = 'DBDEMOS'
  486.     TableName = 'customer.db'
  487.     Left = 308
  488.     Top = 61
  489.   end
  490.   object Table2: TTable
  491.     Active = True
  492.     DatabaseName = 'DBDEMOS'
  493.     IndexFieldNames = 'CustNo'
  494.     MasterFields = 'CustNo'
  495.     MasterSource = DataSource1
  496.     TableName = 'orders.db'
  497.     Left = 306
  498.     Top = 21
  499.     object Table2OrderNo: TFloatField
  500.       FieldName = 'OrderNo'
  501.     end
  502.     object Table2CustNo: TFloatField
  503.       FieldName = 'CustNo'
  504.       Required = True
  505.       Visible = False
  506.     end
  507.     object Table2SaleDate: TDateTimeField
  508.       FieldName = 'SaleDate'
  509.     end
  510.     object Table2ShipDate: TDateTimeField
  511.       FieldName = 'ShipDate'
  512.     end
  513.     object Table2ShipVIA: TStringField
  514.       FieldName = 'ShipVIA'
  515.       Size = 7
  516.     end
  517.     object Table2Terms: TStringField
  518.       FieldName = 'Terms'
  519.       Size = 6
  520.     end
  521.     object Table2PaymentMethod: TStringField
  522.       FieldName = 'PaymentMethod'
  523.       Size = 7
  524.     end
  525.     object Table2ItemsTotal: TCurrencyField
  526.       FieldName = 'ItemsTotal'
  527.       Currency = True
  528.     end
  529.     object Table2AmountPaid: TCurrencyField
  530.       FieldName = 'AmountPaid'
  531.       Currency = True
  532.     end
  533.   end
  534.   object DBPrintWin1: TDBPrintWin
  535.     About = 'Version 5.32'
  536.     AboutRegistered = 'TOM SNIDER'
  537.     HeaderFont.Color = clWindowText
  538.     HeaderFont.Height = 16
  539.     HeaderFont.Name = 'Arial'
  540.     HeaderFont.Style = []
  541.     Font.Color = clWindowText
  542.     Font.Height = 16
  543.     Font.Name = 'Arial'
  544.     Font.Style = []
  545.     FooterFont.Color = clWindowText
  546.     FooterFont.Height = 12
  547.     FooterFont.Name = 'Arial'
  548.     FooterFont.Style = []
  549.     FrameObjects = True
  550.     clBtnFaceAsWhite = True
  551.     OutputTo = poViewer
  552.     Orientation = Default
  553.     Units = poInches
  554.     ViewButtonVisible = False
  555.     ShowCancelDialog = True
  556.     LineWidth = 0
  557.     Copies = 1
  558.     GridBackDrop = False
  559.     GridBackDropUnits = poInches
  560.     ZoomPercentage = 25.000000000000000000
  561.     HeaderTop = 0.500000000000000000
  562.     HeaderLeft = 0.500000000000000000
  563.     HeaderStringLeft = '                                  '
  564.     HeaderStringCenter = '                                  '
  565.     HeaderStringRight = '                                  '
  566.     HeaderEnabled = True
  567.     HeaderOutlined = False
  568.     HeaderFilled = False
  569.     TextColor = clBlack
  570.     ViewBkColor = 11234567
  571.     ViewHeading = 'Printit Viewer'
  572.     HeadingColor = clSilver
  573.     FrameStyle = frThin
  574.     FooterTop = 10.170000000000000000
  575.     FooterString = '                                                  '
  576.     FooterEnabled = True
  577.     FooterOutlined = False
  578.     FooterFilled = False
  579.     FixSansSerif = True
  580.     FooterStringLeft = 'Printed on @Date at @Time'
  581.     FooterStringRight = 'Page @Page'
  582.     BorderLeft = 0.500000000000000000
  583.     BorderRight = 0.500000000000000000
  584.     LineSpacing = 2.800000000000000000
  585.     Left = 472
  586.     Top = 80
  587.   end
  588. end
  589.