PC World Komputer 1997 May/Pcwk0597.iso/delphi/cbsuite.lzh/SU1SRC.ZIP/FDEMO15.DFM/FDEMO15.txt

Text File | 1996-12-09 | 8.5 KB | 334 lines

object Form15: TForm15
  Left = 101
  Top = 125
  BorderStyle = bsDialog
  Caption = 'Demo 12 - It'#39's getting to many now!'
  ClientHeight = 380
  ClientWidth = 542
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 120
  Position = poScreenCenter
  TextHeight = 16
  object Bevel1: TBevel
    Left = 10
    Top = 10
    Width = 503
    Height = 319
    Shape = bsFrame
    IsControl = True
  end
  object Memo1: TMemo
    Left = 28
    Top = 24
    Width = 473
    Height = 289
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Lines.Strings = (
      'This demo was written because of a special request namely:'
      ''

        '  " It'#39's all fine to have this amazing print control called TPri' +
        'ntWin '
      '    but now I have to set up each page on the screen before I'

        '    am able to print or view it! Can I do something about it? An' +
        'd'
      '    can I generate more than 1 page with completely different '
      '    information on the different pages?"'
      ''
      'The answer is Yes. You do not need to draw anything on the '

        'screen to be able to print it to the printer. In the following d' +
        'emo'
      'we generate a 4-page demo which consists of  TTable'
      'components,  TQuery components, a wide variety of fonts and'
      'text and a few images without displaying on the screen. All'
      'this is done with the TPrintWin component of PrintIt Of course, '

        'you could also display the information on the screen if you want' +
        'ed '
      'to by using the normal Delphi components.'
      ' ')
    ParentFont = False
    TabOrder = 0
  end
  object Preview: TBitBtn
    Left = 109
    Top = 337
    Width = 88
    Height = 32
    Caption = 'Pre&View'
    TabOrder = 1
    OnClick = PreviewClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object Exit: TBitBtn
    Left = 271
    Top = 337
    Width = 88
    Height = 32
    Caption = '&Exit'
    ModalResult = 2
    TabOrder = 2
    NumGlyphs = 2
  end
  object DBImage1: TDBImage
    Left = 376
    Top = 352
    Width = 81
    Height = 17
    DataField = 'BMP'
    DataSource = DataSource1
    TabOrder = 3
    Visible = False
  end
  object DBImage2: TDBImage
    Left = 8
    Top = 344
    Width = 89
    Height = 25
    DataField = 'Graphic'
    DataSource = DataSource3
    TabOrder = 4
    Visible = False
  end
  object DBGrid1: TDBGrid
    Left = 52
    Top = 380
    Width = 413
    Height = 165
    BorderStyle = bsNone
    DataSource = DataSource1
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    TitleFont.Color = clBlack
    TitleFont.Height = -15
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    Visible = False
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'ANIMALS.DBF'
    Left = 40
    object Table1SIZE: TSmallintField
      FieldName = 'SIZE'
      Visible = False
    end
    object Table1WEIGHT: TSmallintField
      DisplayWidth = 10
      FieldName = 'WEIGHT'
    end
    object Table1NAME: TStringField
      DisplayWidth = 10
      FieldName = 'NAME'
      Size = 10
    end
    object Table1AREA: TStringField
      DisplayWidth = 20
      FieldName = 'AREA'
    end
    object Table1BMP: TBlobField
      FieldName = 'BMP'
      Visible = False
      Size = 1
    end
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'INDUSTRY.DBF'
    Left = 92
    Top = 4
    object Table2IND_CODE: TSmallintField
      FieldName = 'IND_CODE'
    end
    object Table2IND_NAME: TStringField
      FieldName = 'IND_NAME'
      Size = 5
    end
    object Table2LONG_NAME: TStringField
      FieldName = 'LONG_NAME'
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from biolife where category like '#39's%'#39)
    Left = 148
    Top = 4
    object Query1SpeciesNo: TFloatField
      DisplayWidth = 9
      FieldName = 'Species No'
    end
    object Query1Category: TStringField
      DisplayWidth = 10
      FieldName = 'Category'
      Size = 15
    end
    object Query1Common_Name: TStringField
      DisplayWidth = 12
      FieldName = 'Common_Name'
      Size = 30
    end
    object Query1Graphic: TGraphicField
      FieldName = 'Graphic'
      Visible = False
    end
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from country where Continent = '#39'North America'#39)
    Left = 200
    Top = 4
    object Query2Name: TStringField
      DisplayWidth = 12
      FieldName = 'Name'
      Size = 24
    end
    object Query2Capital: TStringField
      DisplayWidth = 12
      FieldName = 'Capital'
      Size = 24
    end
    object Query2Continent: TStringField
      DisplayWidth = 13
      FieldName = 'Continent'
      Size = 24
    end
    object Query2Population: TFloatField
      DisplayWidth = 10
      FieldName = 'Population'
      DisplayFormat = '#,###'
    end
  end
  object Query3: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from customer where country = '#39'Canada'#39)
    Left = 256
    Top = 4
    object Query3Company: TStringField
      DisplayWidth = 21
      FieldName = 'Company'
      Size = 30
    end
    object Query3Phone: TStringField
      DisplayWidth = 15
      FieldName = 'Phone'
      Size = 15
    end
    object Query3LastInvoiceDate: TDateTimeField
      DisplayWidth = 13
      FieldName = 'LastInvoiceDate'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 56
    Top = 4
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 108
    Top = 8
  end
  object DataSource3: TDataSource
    DataSet = Query1
    Left = 160
    Top = 4
  end
  object DataSource4: TDataSource
    DataSet = Query2
    Left = 212
    Top = 4
  end
  object DataSource5: TDataSource
    DataSet = Query3
    Left = 272
    Top = 4
  end
  object DBPrintWin1: TDBPrintWin
    About = 'Version 5.32'
    AboutRegistered = 'TOM SNIDER'
    HeaderFont.Color = clWindowText
    HeaderFont.Height = 16
    HeaderFont.Name = 'Arial'
    HeaderFont.Style = []
    Font.Color = clWindowText
    Font.Height = 16
    Font.Name = 'Arial'
    Font.Style = []
    FooterFont.Color = clWindowText
    FooterFont.Height = 12
    FooterFont.Name = 'Arial'
    FooterFont.Style = []
    FrameObjects = True
    clBtnFaceAsWhite = True
    OutputTo = poViewer
    Orientation = Default
    Units = poInches
    ViewButtonVisible = False
    ShowCancelDialog = True
    LineWidth = 0
    Copies = 1
    GridBackDrop = False
    GridBackDropUnits = poInches
    ZoomPercentage = 25.000000000000000000
    HeaderTop = 0.500000000000000000
    HeaderLeft = 0.500000000000000000
    HeaderStringLeft = '                                  '
    HeaderStringCenter = '                                  '
    HeaderStringRight = '                                  '
    HeaderEnabled = True
    HeaderOutlined = False
    HeaderFilled = False
    TextColor = clBlack
    ViewBkColor = 11234567
    ViewHeading = 'Printit Viewer'
    HeadingColor = clSilver
    FrameStyle = frThin
    FooterTop = 10.170000000000000000
    FooterString = '                                                  '
    FooterEnabled = True
    FooterOutlined = False
    FooterFilled = False
    FixSansSerif = True
    FooterStringLeft = 'Printed on @Date at @Time'
    FooterStringRight = 'Page @Page'
    BorderLeft = 0.500000000000000000
    BorderRight = 0.500000000000000000
    LineSpacing = 2.800000000000000000
    Left = 440
    Top = 32
  end
end