home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO02.DFM / FDEMO02.txt next >
Encoding:
Text File  |  1996-12-29  |  9.9 KB  |  429 lines
  1. object Form02: TForm02
  2.   Left = 370
  3.   Top = 161
  4.   Width = 600
  5.   Height = 400
  6.   Caption = 'Form02'
  7.   Font.Color = clWindowText
  8.   Font.Height = -17
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 120
  12.   Position = poScreenCenter
  13.   TextHeight = 20
  14.   object VPanel1: TBitBtn
  15.     Left = 496
  16.     Top = 24
  17.     Width = 85
  18.     Height = 33
  19.     Caption = '&Panel1'
  20.     Font.Color = clBlack
  21.     Font.Height = -13
  22.     Font.Name = 'Arial'
  23.     Font.Style = []
  24.     ParentFont = False
  25.     TabOrder = 0
  26.     OnClick = VPanel1Click
  27.   end
  28.   object ScrollBox1: TScrollBox
  29.     Left = 12
  30.     Top = 4
  31.     Width = 477
  32.     Height = 361
  33.     VertScrollBar.Range = 1000
  34.     VertScrollBar.Position = 641
  35.     AutoScroll = False
  36.     TabOrder = 1
  37.     object Panel1: TPanel
  38.       Left = 0
  39.       Top = -641
  40.       Width = 462
  41.       Height = 333
  42.       Align = alTop
  43.       TabOrder = 0
  44.       object Memo1: TMemo
  45.         Left = 32
  46.         Top = 28
  47.         Width = 397
  48.         Height = 233
  49.         Alignment = taCenter
  50.         Font.Color = clNavy
  51.         Font.Height = -17
  52.         Font.Name = 'Arial'
  53.         Font.Style = [fsBold, fsItalic]
  54.         Lines.Strings = (
  55.           'Here are 3 Panels. Underneath them is a '
  56.           'TScrollBox. '
  57.           ''
  58.           'By setting the Vertical Range the page'
  59.           'is longer than the form'
  60.           ''
  61.           'These Panels can have any supported '
  62.           'component on them and do not have to'
  63.           'show on the screen to be printed.'
  64.           ''
  65.           'They can also have different heights'
  66.           '')
  67.         ParentFont = False
  68.         TabOrder = 0
  69.       end
  70.       object Edit1: TEdit
  71.         Left = 28
  72.         Top = 300
  73.         Width = 409
  74.         Height = 26
  75.         Font.Color = clBlue
  76.         Font.Height = -15
  77.         Font.Name = 'Arial'
  78.         Font.Style = [fsBold]
  79.         ParentFont = False
  80.         TabOrder = 1
  81.         Text = 'The first Panel ends just below this TEdit component'
  82.       end
  83.     end
  84.     object Panel3: TPanel
  85.       Left = 0
  86.       Top = 32
  87.       Width = 462
  88.       Height = 327
  89.       Align = alClient
  90.       TabOrder = 1
  91.       object Label3: TLabel
  92.         Left = 88
  93.         Top = 8
  94.         Width = 270
  95.         Height = 23
  96.         Caption = 'This is the start of the 3rd Panel'
  97.         Font.Color = clMaroon
  98.         Font.Height = -20
  99.         Font.Name = 'Times New Roman'
  100.         Font.Style = [fsBold]
  101.         ParentFont = False
  102.       end
  103.       object DBGrid1: TDBGrid
  104.         Left = 16
  105.         Top = 36
  106.         Width = 437
  107.         Height = 197
  108.         DataSource = DataSource1
  109.         Font.Color = clBlack
  110.         Font.Height = -13
  111.         Font.Name = 'Arial'
  112.         Font.Style = []
  113.         ParentFont = False
  114.         TabOrder = 0
  115.         TitleFont.Color = clBlack
  116.         TitleFont.Height = -15
  117.         TitleFont.Name = 'Arial'
  118.         TitleFont.Style = []
  119.       end
  120.       object Panel5: TPanel
  121.         Left = 28
  122.         Top = 244
  123.         Width = 409
  124.         Height = 73
  125.         BorderStyle = bsSingle
  126.         TabOrder = 1
  127.         object DBImage1: TDBImage
  128.           Left = 128
  129.           Top = 8
  130.           Width = 137
  131.           Height = 57
  132.           DataField = 'BMP'
  133.           DataSource = DataSource1
  134.           Stretch = True
  135.           TabOrder = 0
  136.         end
  137.       end
  138.     end
  139.     object Panel2: TPanel
  140.       Left = 0
  141.       Top = -308
  142.       Width = 462
  143.       Height = 340
  144.       Align = alTop
  145.       TabOrder = 2
  146.       object Label1: TLabel
  147.         Left = 32
  148.         Top = 8
  149.         Width = 393
  150.         Height = 18
  151.         Caption = 'The 2nd Panel starts just above this TLabel Component'
  152.         Font.Color = clRed
  153.         Font.Height = -15
  154.         Font.Name = 'Arial'
  155.         Font.Style = [fsBold]
  156.         ParentFont = False
  157.       end
  158.       object Shape1: TShape
  159.         Left = 32
  160.         Top = 152
  161.         Width = 225
  162.         Height = 105
  163.         Brush.Color = clBlue
  164.         Brush.Style = bsCross
  165.         Shape = stEllipse
  166.       end
  167.       object Label2: TLabel
  168.         Left = 104
  169.         Top = 312
  170.         Width = 223
  171.         Height = 20
  172.         Caption = 'This is the end of the 2nd Panel'
  173.         Font.Color = clBlack
  174.         Font.Height = -17
  175.         Font.Name = 'Times New Roman'
  176.         Font.Style = [fsBold, fsItalic]
  177.         ParentFont = False
  178.       end
  179.       object RadioGroup1: TRadioGroup
  180.         Left = 28
  181.         Top = 44
  182.         Width = 229
  183.         Height = 85
  184.         Caption = 'RadioGroup1'
  185.         Font.Color = clNavy
  186.         Font.Height = -15
  187.         Font.Name = 'Arial'
  188.         Font.Style = [fsBold, fsItalic]
  189.         ParentFont = False
  190.         TabOrder = 0
  191.       end
  192.       object RadioButton1: TRadioButton
  193.         Left = 64
  194.         Top = 72
  195.         Width = 113
  196.         Height = 17
  197.         Caption = 'RadioButton1'
  198.         TabOrder = 1
  199.       end
  200.       object RadioButton2: TRadioButton
  201.         Left = 64
  202.         Top = 96
  203.         Width = 113
  204.         Height = 17
  205.         Caption = 'RadioButton2'
  206.         TabOrder = 2
  207.       end
  208.       object Panel4: TPanel
  209.         Left = 268
  210.         Top = 56
  211.         Width = 185
  212.         Height = 213
  213.         BorderStyle = bsSingle
  214.         TabOrder = 3
  215.         object Image1: TImage
  216.           Left = 40
  217.           Top = 116
  218.           Width = 105
  219.           Height = 85
  220.           Picture.Data = {<image000.bmp>}
  221.           Stretch = True
  222.         end
  223.         object Memo2: TMemo
  224.           Left = 16
  225.           Top = 16
  226.           Width = 157
  227.           Height = 85
  228.           Font.Color = clBlack
  229.           Font.Height = -13
  230.           Font.Name = 'Arial'
  231.           Font.Style = []
  232.           Lines.Strings = (
  233.             'Underneath this TMemo'
  234.             'is another TPanel.'
  235.             'Contents of all TPanel'
  236.             'components are'
  237.             'printed recursively'
  238.             ''
  239.             '')
  240.           ParentFont = False
  241.           TabOrder = 0
  242.         end
  243.       end
  244.       object Button1: TButton
  245.         Left = 24
  246.         Top = 276
  247.         Width = 413
  248.         Height = 33
  249.         Caption = 'Buttons are NOT printed - so they can appear anywhere'
  250.         Font.Color = clBlack
  251.         Font.Height = -13
  252.         Font.Name = 'Times New Roman'
  253.         Font.Style = [fsBold, fsItalic]
  254.         ParentFont = False
  255.         TabOrder = 4
  256.         OnClick = Button1Click
  257.       end
  258.     end
  259.   end
  260.   object Exit: TBitBtn
  261.     Left = 496
  262.     Top = 308
  263.     Width = 85
  264.     Height = 33
  265.     Caption = '&Exit'
  266.     ModalResult = 1
  267.     TabOrder = 2
  268.     OnClick = ExitClick
  269.   end
  270.   object VPanel2: TBitBtn
  271.     Left = 496
  272.     Top = 60
  273.     Width = 85
  274.     Height = 33
  275.     Caption = '&Panel2'
  276.     Font.Color = clBlack
  277.     Font.Height = -13
  278.     Font.Name = 'Arial'
  279.     Font.Style = []
  280.     ParentFont = False
  281.     TabOrder = 3
  282.     OnClick = VPanel2Click
  283.   end
  284.   object VPanel3: TBitBtn
  285.     Left = 496
  286.     Top = 96
  287.     Width = 85
  288.     Height = 33
  289.     Caption = '&Panel3'
  290.     Font.Color = clBlack
  291.     Font.Height = -13
  292.     Font.Name = 'Arial'
  293.     Font.Style = []
  294.     ParentFont = False
  295.     TabOrder = 4
  296.     OnClick = VPanel3Click
  297.   end
  298.   object VAll: TBitBtn
  299.     Left = 496
  300.     Top = 144
  301.     Width = 85
  302.     Height = 33
  303.     Caption = '&All - Diff'
  304.     Font.Color = clBlack
  305.     Font.Height = -13
  306.     Font.Name = 'Arial'
  307.     Font.Style = []
  308.     ParentFont = False
  309.     TabOrder = 5
  310.     OnClick = VAllClick
  311.   end
  312.   object AllSame: TBitBtn
  313.     Left = 496
  314.     Top = 188
  315.     Width = 85
  316.     Height = 33
  317.     Caption = '&All - Same'
  318.     Font.Color = clBlack
  319.     Font.Height = -13
  320.     Font.Name = 'Arial'
  321.     Font.Style = []
  322.     ParentFont = False
  323.     TabOrder = 6
  324.     OnClick = AllSameClick
  325.   end
  326.   object BitBtn1: TBitBtn
  327.     Left = 496
  328.     Top = 228
  329.     Width = 85
  330.     Height = 33
  331.     Caption = '&Landscape'
  332.     Font.Color = clBlack
  333.     Font.Height = -13
  334.     Font.Name = 'Arial'
  335.     Font.Style = []
  336.     ParentFont = False
  337.     TabOrder = 7
  338.     OnClick = BitBtn1Click
  339.   end
  340.   object DataSource1: TDataSource
  341.     DataSet = Table1
  342.     Left = 561
  343.     Top = 274
  344.   end
  345.   object Table1: TTable
  346.     Active = True
  347.     DatabaseName = 'DBDEMOS'
  348.     TableName = 'ANIMALS.DBF'
  349.     Left = 529
  350.     Top = 274
  351.     object Table1NAME: TStringField
  352.       DisplayWidth = 15
  353.       FieldName = 'NAME'
  354.       Size = 10
  355.     end
  356.     object Table1SIZE: TSmallintField
  357.       DisplayWidth = 13
  358.       FieldName = 'SIZE'
  359.     end
  360.     object Table1WEIGHT: TSmallintField
  361.       DisplayWidth = 18
  362.       FieldName = 'WEIGHT'
  363.     end
  364.     object Table1AREA: TStringField
  365.       DisplayWidth = 26
  366.       FieldName = 'AREA'
  367.     end
  368.     object Table1BMP: TBlobField
  369.       FieldName = 'BMP'
  370.       Visible = False
  371.       Size = 1
  372.     end
  373.   end
  374.   object DBPrintWin1: TDBPrintWin
  375.     About = 'Version 5.32'
  376.     AboutRegistered = 'TOM SNIDER'
  377.     HeaderFont.Color = clWindowText
  378.     HeaderFont.Height = 16
  379.     HeaderFont.Name = 'Arial'
  380.     HeaderFont.Style = []
  381.     Font.Color = clWindowText
  382.     Font.Height = 16
  383.     Font.Name = 'Arial'
  384.     Font.Style = []
  385.     FooterFont.Color = clWindowText
  386.     FooterFont.Height = 12
  387.     FooterFont.Name = 'Arial'
  388.     FooterFont.Style = []
  389.     FrameObjects = True
  390.     clBtnFaceAsWhite = True
  391.     OutputTo = poViewer
  392.     Orientation = Default
  393.     Units = poInches
  394.     ViewButtonVisible = False
  395.     ShowCancelDialog = True
  396.     LineWidth = 0
  397.     Copies = 1
  398.     GridBackDrop = False
  399.     GridBackDropUnits = poInches
  400.     ZoomPercentage = 25.000000000000000000
  401.     HeaderTop = 0.500000000000000000
  402.     HeaderLeft = 0.500000000000000000
  403.     HeaderStringLeft = '                                  '
  404.     HeaderStringCenter = '                                  '
  405.     HeaderStringRight = '                                  '
  406.     HeaderEnabled = True
  407.     HeaderOutlined = False
  408.     HeaderFilled = False
  409.     TextColor = clBlack
  410.     ViewBkColor = 11234567
  411.     ViewHeading = 'Printit Viewer'
  412.     HeadingColor = clSilver
  413.     FrameStyle = frThin
  414.     FooterTop = 10.170000000000000000
  415.     FooterString = '                                                  '
  416.     FooterEnabled = True
  417.     FooterOutlined = False
  418.     FooterFilled = False
  419.     FixSansSerif = True
  420.     FooterStringLeft = 'Printed on @Date at @Time'
  421.     FooterStringRight = 'Page @Page'
  422.     BorderLeft = 0.500000000000000000
  423.     BorderRight = 0.500000000000000000
  424.     LineSpacing = 2.800000000000000000
  425.     Left = 397
  426.     Top = 25
  427.   end
  428. end
  429.