home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO14.DFM / FDEMO14.txt next >
Encoding:
Text File  |  1996-12-09  |  13.9 KB  |  571 lines
  1. object Form14: TForm14
  2.   Left = -2
  3.   Top = 50
  4.   BorderStyle = bsDialog
  5.   Caption = 'Form14'
  6.   ClientHeight = 748
  7.   ClientWidth = 756
  8.   Font.Color = clBlack
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = [fsBold]
  12.   PixelsPerInch = 120
  13.   Position = poScreenCenter
  14.   OnActivate = FormActivate
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 756
  20.     Height = 857
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Memo1: TMemo
  24.       Left = 8
  25.       Top = 8
  26.       Width = 737
  27.       Height = 73
  28.       Font.Color = clBlack
  29.       Font.Height = -17
  30.       Font.Name = 'Arial'
  31.       Font.Style = [fsBold]
  32.       Lines.Strings = (
  33.         'This shows how easy it is to generate and print a form. '
  34.         'In this case the form to be printed is a fax linked to a Table'
  35.         ''
  36.         'The form is contained within the scrollbox'
  37.         '')
  38.       ParentFont = False
  39.       TabOrder = 0
  40.     end
  41.     object ScrollBox1: TScrollBox
  42.       Left = 8
  43.       Top = 128
  44.       Width = 737
  45.       Height = 713
  46.       HorzScrollBar.Range = 705
  47.       VertScrollBar.Range = 950
  48.       AutoScroll = False
  49.       TabOrder = 1
  50.       object Shape1: TShape
  51.         Left = 8
  52.         Top = 8
  53.         Width = 697
  54.         Height = 5
  55.         Brush.Color = clBlack
  56.       end
  57.       object Shape3: TShape
  58.         Left = 16
  59.         Top = 336
  60.         Width = 297
  61.         Height = 8
  62.         Brush.Color = clBlack
  63.       end
  64.       object Shape4: TShape
  65.         Left = 344
  66.         Top = 240
  67.         Width = 361
  68.         Height = 8
  69.         Brush.Color = clBlack
  70.       end
  71.       object Shape9: TShape
  72.         Left = 696
  73.         Top = 120
  74.         Width = 9
  75.         Height = 121
  76.         Brush.Color = clBlack
  77.       end
  78.       object Shape10: TShape
  79.         Left = 304
  80.         Top = 117
  81.         Width = 9
  82.         Height = 220
  83.         Brush.Color = clBlack
  84.       end
  85.       object Shape11: TShape
  86.         Left = 696
  87.         Top = 32
  88.         Width = 9
  89.         Height = 57
  90.         Brush.Color = clBlack
  91.       end
  92.       object Shape12: TShape
  93.         Left = 344
  94.         Top = 88
  95.         Width = 361
  96.         Height = 8
  97.         Brush.Color = clBlack
  98.       end
  99.       object Label1: TLabel
  100.         Left = 24
  101.         Top = 48
  102.         Width = 81
  103.         Height = 46
  104.         Caption = 'FAX'
  105.         Font.Color = clBlack
  106.         Font.Height = -40
  107.         Font.Name = 'Arial'
  108.         Font.Style = [fsBold]
  109.         ParentFont = False
  110.       end
  111.       object Image1: TImage
  112.         Left = 488
  113.         Top = 254
  114.         Width = 93
  115.         Height = 93
  116.         Picture.Data = {<image000.bmp>}
  117.         Stretch = True
  118.       end
  119.       object Panel2: TPanel
  120.         Left = 336
  121.         Top = 24
  122.         Width = 361
  123.         Height = 65
  124.         BorderStyle = bsSingle
  125.         TabOrder = 0
  126.         object Label5: TLabel
  127.           Left = 16
  128.           Top = 16
  129.           Width = 37
  130.           Height = 18
  131.           Caption = 'Date:'
  132.           Font.Color = clBlack
  133.           Font.Height = -15
  134.           Font.Name = 'Arial'
  135.           Font.Style = [fsBold]
  136.           ParentFont = False
  137.         end
  138.         object Label6: TLabel
  139.           Left = 16
  140.           Top = 32
  141.           Width = 223
  142.           Height = 16
  143.           Caption = 'Number of pages including cover sheet'
  144.           Font.Color = clBlack
  145.           Font.Height = -13
  146.           Font.Name = 'Arial'
  147.           Font.Style = []
  148.           ParentFont = False
  149.         end
  150.         object Edit1: TEdit
  151.           Left = 264
  152.           Top = 32
  153.           Width = 80
  154.           Height = 24
  155.           Color = clWhite
  156.           Font.Color = clBlack
  157.           Font.Height = -13
  158.           Font.Name = 'Arial'
  159.           Font.Style = [fsBold]
  160.           ParentFont = False
  161.           TabOrder = 0
  162.           Text = '1'
  163.         end
  164.       end
  165.       object Panel3: TPanel
  166.         Left = 8
  167.         Top = 112
  168.         Width = 297
  169.         Height = 225
  170.         BorderStyle = bsSingle
  171.         TabOrder = 1
  172.         object Label2: TLabel
  173.           Left = 16
  174.           Top = 8
  175.           Width = 23
  176.           Height = 18
  177.           Caption = 'To:'
  178.           Font.Color = clBlack
  179.           Font.Height = -15
  180.           Font.Name = 'Arial'
  181.           Font.Style = [fsBold]
  182.           ParentFont = False
  183.         end
  184.         object Label7: TLabel
  185.           Left = 16
  186.           Top = 160
  187.           Width = 54
  188.           Height = 18
  189.           Caption = 'Phone: '
  190.           Font.Color = clBlack
  191.           Font.Height = -15
  192.           Font.Name = 'Arial'
  193.           Font.Style = [fsBold]
  194.           ParentFont = False
  195.         end
  196.         object Label8: TLabel
  197.           Left = 24
  198.           Top = 184
  199.           Width = 29
  200.           Height = 18
  201.           Caption = 'Fax:'
  202.           Font.Color = clBlack
  203.           Font.Height = -15
  204.           Font.Name = 'Arial'
  205.           Font.Style = [fsBold]
  206.           ParentFont = False
  207.         end
  208.         object EditContact: TDBEdit
  209.           Left = 13
  210.           Top = 25
  211.           Width = 228
  212.           Height = 24
  213.           BorderStyle = bsNone
  214.           DataField = 'Contact'
  215.           DataSource = DataSource1
  216.           Font.Color = clBlack
  217.           Font.Height = -15
  218.           Font.Name = 'Arial'
  219.           Font.Style = [fsBold]
  220.           MaxLength = 20
  221.           ParentFont = False
  222.           TabOrder = 0
  223.         end
  224.         object EditCompany: TDBEdit
  225.           Left = 13
  226.           Top = 50
  227.           Width = 227
  228.           Height = 24
  229.           BorderStyle = bsNone
  230.           DataField = 'Company'
  231.           DataSource = DataSource1
  232.           Font.Color = clBlack
  233.           Font.Height = -15
  234.           Font.Name = 'Arial'
  235.           Font.Style = [fsBold]
  236.           MaxLength = 30
  237.           ParentFont = False
  238.           TabOrder = 1
  239.         end
  240.         object EditAddr: TDBEdit
  241.           Left = 13
  242.           Top = 75
  243.           Width = 210
  244.           Height = 24
  245.           BorderStyle = bsNone
  246.           DataField = 'Addr1'
  247.           DataSource = DataSource1
  248.           Font.Color = clBlack
  249.           Font.Height = -15
  250.           Font.Name = 'Arial'
  251.           Font.Style = [fsBold]
  252.           MaxLength = 30
  253.           ParentFont = False
  254.           TabOrder = 2
  255.         end
  256.         object EditAddr2: TDBEdit
  257.           Left = 13
  258.           Top = 99
  259.           Width = 210
  260.           Height = 24
  261.           BorderStyle = bsNone
  262.           DataField = 'Addr2'
  263.           DataSource = DataSource1
  264.           Font.Color = clBlack
  265.           Font.Height = -15
  266.           Font.Name = 'Arial'
  267.           Font.Style = [fsBold]
  268.           MaxLength = 30
  269.           ParentFont = False
  270.           TabOrder = 3
  271.         end
  272.         object EditState: TDBEdit
  273.           Left = 13
  274.           Top = 124
  275.           Width = 140
  276.           Height = 24
  277.           BorderStyle = bsNone
  278.           DataField = 'State'
  279.           DataSource = DataSource1
  280.           Font.Color = clBlack
  281.           Font.Height = -15
  282.           Font.Name = 'Arial'
  283.           Font.Style = [fsBold]
  284.           MaxLength = 20
  285.           ParentFont = False
  286.           TabOrder = 4
  287.         end
  288.         object EditPhone: TDBEdit
  289.           Left = 80
  290.           Top = 160
  291.           Width = 105
  292.           Height = 24
  293.           BorderStyle = bsNone
  294.           DataField = 'Phone'
  295.           DataSource = DataSource1
  296.           Font.Color = clBlack
  297.           Font.Height = -15
  298.           Font.Name = 'Arial'
  299.           Font.Style = [fsBold]
  300.           MaxLength = 15
  301.           ParentFont = False
  302.           TabOrder = 5
  303.         end
  304.         object EditFAX: TDBEdit
  305.           Left = 80
  306.           Top = 185
  307.           Width = 105
  308.           Height = 24
  309.           BorderStyle = bsNone
  310.           DataField = 'FAX'
  311.           DataSource = DataSource1
  312.           Font.Color = clBlack
  313.           Font.Height = -15
  314.           Font.Name = 'Arial'
  315.           Font.Style = [fsBold]
  316.           MaxLength = 15
  317.           ParentFont = False
  318.           TabOrder = 6
  319.         end
  320.       end
  321.       object Panel4: TPanel
  322.         Left = 336
  323.         Top = 112
  324.         Width = 361
  325.         Height = 129
  326.         BorderStyle = bsSingle
  327.         TabOrder = 2
  328.         object Label3: TLabel
  329.           Left = 16
  330.           Top = 16
  331.           Width = 40
  332.           Height = 18
  333.           Caption = 'From:'
  334.           Font.Color = clBlack
  335.           Font.Height = -15
  336.           Font.Name = 'Arial'
  337.           Font.Style = [fsBold]
  338.           ParentFont = False
  339.         end
  340.         object Label9: TLabel
  341.           Left = 16
  342.           Top = 80
  343.           Width = 50
  344.           Height = 18
  345.           Caption = 'Phone:'
  346.           Font.Color = clBlack
  347.           Font.Height = -15
  348.           Font.Name = 'Arial'
  349.           Font.Style = [fsBold]
  350.           ParentFont = False
  351.         end
  352.         object Label10: TLabel
  353.           Left = 16
  354.           Top = 104
  355.           Width = 29
  356.           Height = 18
  357.           Caption = 'Fax:'
  358.           Font.Color = clBlack
  359.           Font.Height = -15
  360.           Font.Name = 'Arial'
  361.           Font.Style = [fsBold]
  362.           ParentFont = False
  363.         end
  364.         object Label11: TLabel
  365.           Left = 32
  366.           Top = 32
  367.           Width = 92
  368.           Height = 17
  369.           Caption = 'Our Company'
  370.           Font.Color = clBlack
  371.           Font.Height = -15
  372.           Font.Name = 'Arial'
  373.           Font.Style = []
  374.           ParentFont = False
  375.         end
  376.         object Label12: TLabel
  377.           Left = 32
  378.           Top = 48
  379.           Width = 83
  380.           Height = 17
  381.           Caption = 'Our Address'
  382.           Font.Color = clBlack
  383.           Font.Height = -15
  384.           Font.Name = 'Arial'
  385.           Font.Style = []
  386.           ParentFont = False
  387.         end
  388.         object Label13: TLabel
  389.           Left = 80
  390.           Top = 80
  391.           Width = 80
  392.           Height = 17
  393.           Caption = '999 999 999'
  394.           Font.Color = clBlack
  395.           Font.Height = -15
  396.           Font.Name = 'Arial'
  397.           Font.Style = []
  398.           ParentFont = False
  399.         end
  400.         object Label14: TLabel
  401.           Left = 80
  402.           Top = 104
  403.           Width = 80
  404.           Height = 17
  405.           Caption = '888 888 888'
  406.           Font.Color = clBlack
  407.           Font.Height = -15
  408.           Font.Name = 'Arial'
  409.           Font.Style = []
  410.           ParentFont = False
  411.         end
  412.       end
  413.       object Panel5: TPanel
  414.         Left = 8
  415.         Top = 352
  416.         Width = 689
  417.         Height = 498
  418.         BorderStyle = bsSingle
  419.         TabOrder = 3
  420.         object Label4: TLabel
  421.           Left = 16
  422.           Top = 16
  423.           Width = 59
  424.           Height = 16
  425.           Caption = 'Remarks:'
  426.           Font.Color = clBlack
  427.           Font.Height = -13
  428.           Font.Name = 'Arial'
  429.           Font.Style = [fsBold]
  430.           ParentFont = False
  431.         end
  432.         object Memo2: TMemo
  433.           Left = 16
  434.           Top = 40
  435.           Width = 657
  436.           Height = 441
  437.           BorderStyle = bsNone
  438.           Color = clWhite
  439.           Font.Color = clBlack
  440.           Font.Height = -15
  441.           Font.Name = 'Arial'
  442.           Font.Style = [fsBold]
  443.           Lines.Strings = (
  444.             'This could also have been a TDBMemo in which case it could be'
  445.             'stored for re-use in future'
  446.             ''
  447.             
  448.               'Tip: To make sure that your fax print the same size on all print' +
  449.               'ers,'
  450.             'use the DrawWindowInRect method instead of the DrawWindow'
  451.             'method'
  452.             ''
  453.             
  454.               'To find out how to bypass the PrintViewer, see Demo6 for an exam' +
  455.               'ple')
  456.           ParentFont = False
  457.           TabOrder = 0
  458.         end
  459.       end
  460.       object Memo3: TMemo
  461.         Left = 21
  462.         Top = 869
  463.         Width = 668
  464.         Height = 49
  465.         Color = clWhite
  466.         Font.Color = clBlack
  467.         Font.Height = -17
  468.         Font.Name = 'Arial'
  469.         Font.Style = [fsBold, fsItalic]
  470.         Lines.Strings = (
  471.           'If you have a problem with the sheer size of this FAX, '
  472.           'Look at Demo15 for a solution')
  473.         ParentFont = False
  474.         TabOrder = 4
  475.       end
  476.     end
  477.     object DBNavigator: TDBNavigator
  478.       Left = 10
  479.       Top = 90
  480.       Width = 281
  481.       Height = 31
  482.       DataSource = DataSource1
  483.       Ctl3D = False
  484.       ParentCtl3D = False
  485.       TabOrder = 2
  486.     end
  487.     object View: TBitBtn
  488.       Left = 544
  489.       Top = 88
  490.       Width = 89
  491.       Height = 33
  492.       Caption = '&View'
  493.       TabOrder = 3
  494.       OnClick = ViewClick
  495.     end
  496.     object Exit: TBitBtn
  497.       Left = 640
  498.       Top = 88
  499.       Width = 89
  500.       Height = 33
  501.       Caption = '&Exit'
  502.       ModalResult = 2
  503.       TabOrder = 4
  504.     end
  505.   end
  506.   object DataSource1: TDataSource
  507.     DataSet = Table1
  508.     Left = 536
  509.   end
  510.   object Table1: TTable
  511.     Active = True
  512.     DatabaseName = 'DBDEMOS'
  513.     TableName = 'CUSTOMER.DB'
  514.     Left = 504
  515.   end
  516.   object DBPrintWin1: TDBPrintWin
  517.     About = 'Version 5.32'
  518.     AboutRegistered = 'TOM SNIDER'
  519.     HeaderFont.Color = clWindowText
  520.     HeaderFont.Height = 16
  521.     HeaderFont.Name = 'Arial'
  522.     HeaderFont.Style = []
  523.     Font.Color = clWindowText
  524.     Font.Height = 16
  525.     Font.Name = 'Arial'
  526.     Font.Style = []
  527.     FooterFont.Color = clWindowText
  528.     FooterFont.Height = 12
  529.     FooterFont.Name = 'Arial'
  530.     FooterFont.Style = []
  531.     FrameObjects = True
  532.     clBtnFaceAsWhite = True
  533.     OutputTo = poViewer
  534.     Orientation = Default
  535.     Units = poInches
  536.     ViewButtonVisible = False
  537.     ShowCancelDialog = True
  538.     LineWidth = 0
  539.     Copies = 1
  540.     GridBackDrop = False
  541.     GridBackDropUnits = poInches
  542.     ZoomPercentage = 25.000000000000000000
  543.     HeaderTop = 0.500000000000000000
  544.     HeaderLeft = 0.500000000000000000
  545.     HeaderStringLeft = '                                  '
  546.     HeaderStringCenter = '                                  '
  547.     HeaderStringRight = '                                  '
  548.     HeaderEnabled = True
  549.     HeaderOutlined = False
  550.     HeaderFilled = False
  551.     TextColor = clBlack
  552.     ViewBkColor = 11234567
  553.     ViewHeading = 'Printit Viewer'
  554.     HeadingColor = clSilver
  555.     FrameStyle = frThin
  556.     FooterTop = 10.170000000000000000
  557.     FooterString = '                                                  '
  558.     FooterEnabled = True
  559.     FooterOutlined = False
  560.     FooterFilled = False
  561.     FixSansSerif = True
  562.     FooterStringLeft = 'Printed on @Date at @Time'
  563.     FooterStringRight = 'Page @Page'
  564.     BorderLeft = 0.500000000000000000
  565.     BorderRight = 0.500000000000000000
  566.     LineSpacing = 2.800000000000000000
  567.     Left = 464
  568.     Top = 24
  569.   end
  570. end
  571.