home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / UNIT02.DFM / UNIT02.txt
Text File  |  1996-12-30  |  4KB  |  162 lines
  1. object CBDemo02: TCBDemo02
  2.   Left = 346
  3.   Top = 160
  4.   Width = 614
  5.   Height = 480
  6.   Caption = 'CBDemo02'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 120
  12.   Position = poScreenCenter
  13.   TextHeight = 16
  14.   object CB_SortGrid1: TCB_SortGrid
  15.     Left = 24
  16.     Top = 128
  17.     Width = 561
  18.     Height = 289
  19.     Cursor = 1
  20.     DataSource = DataSource1
  21.     TabOrder = 0
  22.     TitleFont.Color = clWindowText
  23.     TitleFont.Height = -13
  24.     TitleFont.Name = 'MS Sans Serif'
  25.     TitleFont.Style = []
  26.     About = 'Version 5.32'
  27.     AboutRegistered = 'TOM SNIDER'
  28.     DisplayDBMemo = True
  29.     DisplayDBImage = True
  30.     AllowSort = True
  31.     AutoAlign = False
  32.     DefaultRowHeight = 243
  33.   end
  34.   object Memo1: TMemo
  35.     Left = 24
  36.     Top = 8
  37.     Width = 561
  38.     Height = 113
  39.     Lines.Strings = (
  40.       'This demo displays some of the TCB_SortGrid capabilities e.g.'
  41.       ' (1) Click on the header to sort the grid'
  42.       ' (2) Display of Images and Memos'
  43.       ''
  44.       
  45.         'It also displays the print capabilities of Reportit by printing ' +
  46.         'this complete grid'
  47.       'with a single line of code.')
  48.     TabOrder = 1
  49.   end
  50.   object Preview: TButton
  51.     Left = 208
  52.     Top = 424
  53.     Width = 75
  54.     Height = 25
  55.     Caption = '&Preview'
  56.     TabOrder = 2
  57.     OnClick = PreviewClick
  58.   end
  59.   object Exit: TButton
  60.     Left = 328
  61.     Top = 424
  62.     Width = 75
  63.     Height = 25
  64.     Caption = '&Exit'
  65.     TabOrder = 3
  66.     OnClick = ExitClick
  67.   end
  68.   object DataSource1: TDataSource
  69.     DataSet = Query1
  70.     Left = 8
  71.     Top = 8
  72.   end
  73.   object Query1: TQuery
  74.     Active = True
  75.     DatabaseName = 'DBDEMOS'
  76.     SQL.Strings = (
  77.       'select * from biolife')
  78.     Left = 40
  79.     Top = 8
  80.     object Query1Common_Name: TStringField
  81.       DisplayWidth = 16
  82.       FieldName = 'Common_Name'
  83.       Size = 30
  84.     end
  85.     object Query1Category: TStringField
  86.       DisplayWidth = 13
  87.       FieldName = 'Category'
  88.       Size = 15
  89.     end
  90.     object Query1Lengthcm: TFloatField
  91.       DisplayWidth = 13
  92.       FieldName = 'Length (cm)'
  93.     end
  94.     object Query1Notes: TMemoField
  95.       DisplayWidth = 32
  96.       FieldName = 'Notes'
  97.       Size = 50
  98.     end
  99.     object Query1Graphic: TGraphicField
  100.       DisplayWidth = 45
  101.       FieldName = 'Graphic'
  102.     end
  103.   end
  104.   object PrintGridReport1: TPrintGridReport
  105.     About = 'Version 5.32'
  106.     AboutRegistered = 'TOM SNIDER'
  107.     ViewButtonVisible = False
  108.     Copies = 1
  109.     OutputTo = poViewer
  110.     Orientation = Default
  111.     ViewBkColor = 11234567
  112.     Units = poInches
  113.     ViewHeading = 'Reportit Viewer'
  114.     FooterFont.Color = clWindowText
  115.     FooterFont.Height = 12
  116.     FooterFont.Name = 'Arial'
  117.     FooterFont.Style = []
  118.     HeaderFont.Color = clWindowText
  119.     HeaderFont.Height = 16
  120.     HeaderFont.Name = 'Arial'
  121.     HeaderFont.Style = []
  122.     ViewerOptions = []
  123.     SubTotalString = '** SubTotal of @RecCount Records **'
  124.     TotalString = '*** Total of @RecCount Records ***'
  125.     ZoomPercentage = 100.000000000000000000
  126.     HeaderTop = 0.500000000000000000
  127.     HeaderStringCenter = 'Page Header'
  128.     HeaderEnabled = True
  129.     HeaderOutlined = True
  130.     HeaderFilled = False
  131.     FooterTop = 7.670000000000000000
  132.     FooterString = 'Page Footer'
  133.     FooterEnabled = True
  134.     FooterOutlined = True
  135.     FooterFilled = True
  136.     FooterStringLeft = 'Printed on @Date at @Time'
  137.     FooterStringRight = 'Page @Page'
  138.     DisableControls = True
  139.     BorderLeft = 0.250000000000000000
  140.     BorderRight = 0.250000000000000000
  141.     GridHeadingRow = 1.500000000000000000
  142.     GridHeadingCol = 0.250000000000000000
  143.     GridHeadingEnabled = True
  144.     GridHeadingOutlined = True
  145.     GridHeadingFilled = False
  146.     GridLines = True
  147.     LineSpacing = 1.500000000000000000
  148.     Grid = CB_SortGrid1
  149.     GridMinWidth = False
  150.     GridCentered = True
  151.     GridPrintTotal = True
  152.     PrintSubTotals = False
  153.     FrameStyleLeft = frSingleThin
  154.     FrameStyleTop = frSingleThin
  155.     FrameStyleRight = frSingleThin
  156.     FrameStyleBottom = frSingleThin
  157.     ReportStyle = rsOwn
  158.     Left = 88
  159.     Top = 400
  160.   end
  161. end
  162.