home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO01.DFM / FDEMO01.txt
Encoding:
Text File  |  1999-12-17  |  3.8 KB  |  151 lines
  1. object Form01: TForm01
  2.   Left = 51
  3.   Top = 119
  4.   Width = 512
  5.   Height = 98
  6.   HorzScrollBar.Visible = False
  7.   Caption = 'Form01'
  8.   Font.Color = clWindowText
  9.   Font.Height = -18
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 120
  13.   Position = poScreenCenter
  14.   TextHeight = 20
  15.   object View: TBitBtn
  16.     Left = 404
  17.     Top = 0
  18.     Width = 89
  19.     Height = 33
  20.     Caption = '&View'
  21.     Font.Color = clBlack
  22.     Font.Height = -15
  23.     Font.Name = 'Arial'
  24.     Font.Style = []
  25.     ParentFont = False
  26.     TabOrder = 0
  27.     OnClick = ViewClick
  28.   end
  29.   object Memo1: TMemo
  30.     Left = 8
  31.     Top = 73
  32.     Width = 421
  33.     Height = 268
  34.     Alignment = taCenter
  35.     Font.Color = clBlack
  36.     Font.Height = -15
  37.     Font.Name = 'Times New Roman'
  38.     Font.Style = []
  39.     Lines.Strings = (
  40.       'Comments: The Rectangles surrounding the above TEST strings'
  41.       'shows the exact sizes reported by your printer driver for the'
  42.       'specific fonts and sizes'
  43.       ''
  44.       'These values were obtained with the functions:'
  45.       ''
  46.       '  GetDeviceCaps(Printer.Handle, LOGPIXELSX) and'
  47.       '  GetDeviceCaps(Printer.Handle, LOGPIXELSY)'
  48.       ''
  49.       
  50.         'and converted to the specific units (Inches or Centimetre) that ' +
  51.         'you'
  52.       'are using and rounded to 2 decimals'
  53.       ''
  54.       'As you will notice, they are sometimes not quite accurate and'
  55.       'can differ from printer to printer.'
  56.       ''
  57.       
  58.         'The values on top of each rectangle indicate the Width and Heigh' +
  59.         't'
  60.       'of each rectangle')
  61.     ParentFont = False
  62.     TabOrder = 1
  63.     Visible = False
  64.   end
  65.   object Memo2: TMemo
  66.     Left = 16
  67.     Top = 16
  68.     Width = 377
  69.     Height = 45
  70.     Font.Color = clBlack
  71.     Font.Height = -15
  72.     Font.Name = 'Arial'
  73.     Font.Style = []
  74.     Lines.Strings = (
  75.       'This demo will display and optionally print some'
  76.       'font information of the currently selected printer.'
  77.       ''
  78.       '')
  79.     ParentFont = False
  80.     TabOrder = 2
  81.   end
  82.   object Exit: TBitBtn
  83.     Left = 404
  84.     Top = 32
  85.     Width = 89
  86.     Height = 33
  87.     Caption = '&Exit'
  88.     Font.Color = clBlack
  89.     Font.Height = -15
  90.     Font.Name = 'Arial'
  91.     Font.Style = []
  92.     ModalResult = 1
  93.     ParentFont = False
  94.     TabOrder = 3
  95.     OnClick = ExitClick
  96.   end
  97.   object PrintWin1: TPrintWin
  98.     About = 'Version 5.32'
  99.     AboutRegistered = 'TOM SNIDER'
  100.     HeaderFont.Color = clWindowText
  101.     HeaderFont.Height = 16
  102.     HeaderFont.Name = 'Arial'
  103.     HeaderFont.Style = []
  104.     Font.Color = clWindowText
  105.     Font.Height = 16
  106.     Font.Name = 'Arial'
  107.     Font.Style = []
  108.     FooterFont.Color = clWindowText
  109.     FooterFont.Height = 12
  110.     FooterFont.Name = 'Arial'
  111.     FooterFont.Style = []
  112.     FrameObjects = True
  113.     clBtnFaceAsWhite = True
  114.     OutputTo = poViewer
  115.     Orientation = Default
  116.     Units = poInches
  117.     ViewButtonVisible = False
  118.     ShowCancelDialog = True
  119.     LineWidth = 0
  120.     Copies = 1
  121.     GridBackDrop = False
  122.     GridBackDropUnits = poInches
  123.     ZoomPercentage = 100.000000000000000000
  124.     HeaderTop = 0.500000000000000000
  125.     HeaderLeft = 0.500000000000000000
  126.     HeaderStringLeft = '                                  '
  127.     HeaderStringCenter = '                                  '
  128.     HeaderStringRight = '                                  '
  129.     HeaderEnabled = True
  130.     HeaderOutlined = False
  131.     HeaderFilled = False
  132.     TextColor = clBlack
  133.     ViewBkColor = 11234567
  134.     ViewHeading = 'Printit Viewer'
  135.     HeadingColor = clSilver
  136.     FrameStyle = frThin
  137.     FooterTop = 10.170000000000000000
  138.     FooterString = '                                                  '
  139.     FooterEnabled = True
  140.     FooterOutlined = False
  141.     FooterFilled = False
  142.     FixSansSerif = True
  143.     FooterStringLeft = 'Printed on @Date at @Time'
  144.     FooterStringRight = 'Page @Page'
  145.     BorderLeft = 0.500000000000000000
  146.     BorderRight = 0.500000000000000000
  147.     LineSpacing = 2.800000000000000000
  148.     Left = 296
  149.   end
  150. end
  151.