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

Text File | 1996-12-09 | 11.1 KB | 578 lines

object Form17: TForm17
  Left = 22
  Top = 137
  Width = 778
  Height = 776
  HorzScrollBar.Range = 757
  VertScrollBar.Range = 900
  AutoScroll = False
  Caption = 'Form17'
  Font.Color = clBlack
  Font.Height = -17
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 120
  OnActivate = FormActivate
  TextHeight = 19
  object Label9: TLabel
    Left = 600
    Top = 64
    Width = 157
    Height = 35
    Caption = 'INVOICE'
    Font.Color = clBlack
    Font.Height = -30
    Font.Name = 'Calisto MT'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Image1: TImage
    Left = 52
    Top = 32
    Width = 189
    Height = 177
    Picture.Data = {<image000.bmp>}
  end
  object Label1: TLabel
    Left = 280
    Top = 184
    Width = 233
    Height = 33
    Caption = 'Satelite Dummies'
    Font.Color = clBlack
    Font.Height = -27
    Font.Name = 'News Gothic MT'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 600
    Top = 200
    Width = 39
    Height = 19
    Caption = 'Date:'
  end
  object Shape1: TShape
    Left = 24
    Top = 224
    Width = 729
    Height = 5
    Brush.Color = clBlack
  end
  object Label4: TLabel
    Left = 24
    Top = 232
    Width = 188
    Height = 22
    Caption = 'No-Man-Street, Anywhere'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Book Antiqua'
    Font.Style = [fsItalic]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 24
    Top = 256
    Width = 140
    Height = 22
    Caption = 'Phone [phone]'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Book Antiqua'
    Font.Style = [fsItalic]
    ParentFont = False
  end
  object Shape2: TShape
    Left = 96
    Top = 352
    Width = 273
    Height = 1
  end
  object Shape3: TShape
    Left = 456
    Top = 352
    Width = 297
    Height = 1
  end
  object Shape10: TShape
    Left = 480
    Top = 712
    Width = 273
    Height = 1
  end
  object Label6: TLabel
    Left = 488
    Top = 728
    Width = 72
    Height = 19
    Caption = 'Subtotal:'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Shape11: TShape
    Left = 480
    Top = 752
    Width = 273
    Height = 1
  end
  object Label7: TLabel
    Left = 488
    Top = 768
    Width = 62
    Height = 19
    Caption = 'Freight:'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Shape12: TShape
    Left = 480
    Top = 792
    Width = 273
    Height = 2
  end
  object Label8: TLabel
    Left = 488
    Top = 808
    Width = 45
    Height = 19
    Caption = 'Total:'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Shape13: TShape
    Left = 480
    Top = 832
    Width = 273
    Height = 2
  end
  object Edit1: TEdit
    Left = 664
    Top = 200
    Width = 89
    Height = 17
    BorderStyle = bsNone
    TabOrder = 0
    Text = '24-Feb-96'
  end
  object Edit2: TEdit
    Left = 24
    Top = 352
    Width = 73
    Height = 27
    Color = clBlack
    Font.Color = clWhite
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    Text = 'Ship To'
  end
  object Edit3: TEdit
    Left = 384
    Top = 352
    Width = 73
    Height = 27
    Color = clBlack
    Font.Color = clWhite
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    Text = 'Bill To'
  end
  object Edit4: TEdit
    Left = 24
    Top = 480
    Width = 97
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    Text = 'Order ID'
  end
  object Edit5: TEdit
    Left = 120
    Top = 480
    Width = 121
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Text = 'Customer ID'
  end
  object Edit6: TEdit
    Left = 240
    Top = 480
    Width = 129
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    Text = 'Salesperson'
  end
  object Edit7: TEdit
    Left = 368
    Top = 480
    Width = 129
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    Text = 'Order Date'
  end
  object Edit8: TEdit
    Left = 496
    Top = 480
    Width = 129
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    Text = 'Required Date'
  end
  object Edit9: TEdit
    Left = 624
    Top = 480
    Width = 129
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    Text = 'Shipped Date'
  end
  object Edit10: TEdit
    Left = 24
    Top = 624
    Width = 97
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    Text = 'Product ID'
  end
  object Edit11: TEdit
    Left = 120
    Top = 624
    Width = 217
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    Text = 'Product Name'
  end
  object Edit12: TEdit
    Left = 336
    Top = 624
    Width = 89
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 11
    Text = 'Quantity'
  end
  object Edit13: TEdit
    Left = 424
    Top = 624
    Width = 97
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 12
    Text = 'Unit Price'
  end
  object Edit14: TEdit
    Left = 520
    Top = 624
    Width = 89
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 13
    Text = 'Discount'
  end
  object Edit15: TEdit
    Left = 608
    Top = 624
    Width = 145
    Height = 24
    Color = clGray
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 14
    Text = 'Extended Price'
  end
  object Edit16: TEdit
    Left = 24
    Top = 504
    Width = 97
    Height = 27
    Color = clWhite
    TabOrder = 15
    Text = '32114'
  end
  object Edit17: TEdit
    Left = 120
    Top = 504
    Width = 121
    Height = 27
    Color = clWhite
    TabOrder = 16
    Text = 'Ae34'
  end
  object Edit18: TEdit
    Left = 240
    Top = 504
    Width = 129
    Height = 27
    Color = clWhite
    TabOrder = 17
    Text = 'Ted'
  end
  object Edit19: TEdit
    Left = 368
    Top = 504
    Width = 129
    Height = 27
    Color = clWhite
    TabOrder = 18
    Text = '3-Feb-1996'
  end
  object Edit20: TEdit
    Left = 496
    Top = 504
    Width = 129
    Height = 27
    Color = clWhite
    TabOrder = 19
    Text = '12-Feb-1996'
  end
  object Edit21: TEdit
    Left = 624
    Top = 504
    Width = 129
    Height = 27
    Color = clWhite
    TabOrder = 20
    Text = '11-Feb-1996'
  end
  object Edit22: TEdit
    Left = 24
    Top = 648
    Width = 97
    Height = 27
    Color = clWhite
    TabOrder = 21
    Text = '3kd'
  end
  object Edit23: TEdit
    Left = 120
    Top = 648
    Width = 217
    Height = 27
    Color = clWhite
    TabOrder = 22
    Text = 'Satelite Dish'
  end
  object Edit24: TEdit
    Left = 336
    Top = 648
    Width = 89
    Height = 27
    Color = clWhite
    TabOrder = 23
    Text = '1'
  end
  object Edit25: TEdit
    Left = 424
    Top = 648
    Width = 97
    Height = 27
    Color = clWhite
    TabOrder = 24
    Text = '$ 800'
  end
  object Edit26: TEdit
    Left = 520
    Top = 648
    Width = 89
    Height = 27
    Color = clWhite
    TabOrder = 25
    Text = '0'
  end
  object Edit27: TEdit
    Left = 608
    Top = 648
    Width = 145
    Height = 27
    Color = clWhite
    TabOrder = 26
    Text = '$ 800'
  end
  object Memo1: TMemo
    Left = 24
    Top = 720
    Width = 385
    Height = 113
    Color = clWhite
    Lines.Strings = (
      'Make all cheques payable to:'
      ''
      '      Satelite Dummies'
      '      P.O. Box 999'
      '      Anywhere')
    TabOrder = 27
  end
  object View: TBitBtn
    Left = 536
    Top = 16
    Width = 89
    Height = 33
    Caption = '&View'
    TabOrder = 28
    OnClick = ViewClick
  end
  object Cancel: TBitBtn
    Left = 632
    Top = 16
    Width = 89
    Height = 33
    Caption = '&Exit'
    ModalResult = 2
    TabOrder = 29
  end
  object Memo2: TMemo
    Left = 36
    Top = 856
    Width = 709
    Height = 49
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    Lines.Strings = (

        'If you have a problem with the physical size of this Invoice on ' +
        'the screen'

        'then look at Demo15 for a solution. To bypass the Viewer, see De' +
        'mo6.')
    ParentFont = False
    TabOrder = 30
  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 = 400
    Top = 56
  end
end