setprint.dfm

三層源碼,DELPHI寫的三層源碼,三層源碼,

object setprints: Tsetprints
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '页面设置'
  ClientHeight = 190
  ClientWidth = 378
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 24
    Width = 361
    Height = 65
    Shape = bsFrame
  end
  object Label5: TLabel
    Left = 16
    Top = 8
    Width = 59
    Height = 13
    Caption = '纸张类型:'
    Transparent = True
  end
  object Bevel2: TBevel
    Left = 8
    Top = 112
    Width = 361
    Height = 41
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 16
    Top = 128
    Width = 20
    Height = 13
    Caption = '上:'
    Transparent = True
  end
  object Label2: TLabel
    Left = 96
    Top = 128
    Width = 20
    Height = 13
    Caption = '下:'
    Transparent = True
  end
  object Label3: TLabel
    Left = 200
    Top = 128
    Width = 20
    Height = 13
    Caption = '左:'
    Transparent = True
  end
  object Label4: TLabel
    Left = 280
    Top = 128
    Width = 20
    Height = 13
    Caption = '右:'
    Transparent = True
  end
  object Label6: TLabel
    Left = 16
    Top = 96
    Width = 59
    Height = 13
    Caption = '面页边距:'
    Transparent = True
  end
  object Label7: TLabel
    Left = 16
    Top = 64
    Width = 33
    Height = 13
    Caption = '页宽:'
    Transparent = True
  end
  object Label8: TLabel
    Left = 184
    Top = 64
    Width = 33
    Height = 13
    Caption = '页高:'
    Transparent = True
  end
  object Label9: TLabel
    Left = 8
    Top = 166
    Width = 42
    Height = 13
    Caption = 'Label9'
    Transparent = True
  end
  object ComboBox2: TComboBox
    Left = 256
    Top = 32
    Width = 97
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
    Items.Strings = (
      '纵向打印'
      '横向打印')
  end
  object PaperSize: TComboBox
    Left = 16
    Top = 32
    Width = 225
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 1
    OnChange = PaperSizeChange
    Items.Strings = (
      'Letter 8'
      'Letter Small 8'
      'Tabloid'
      'Ledger'
      'Legal 8'
      'Statement 5'
      'Executive 7'
      'A3 297*420'
      'A4 210*297'
      'A4Small 210*297'
      'A5 148*210'
      'B4 250*354'
      'B5 182*257'
      'Folio 8'
      'Quarto'
      'qr10X14'
      'qr11X17'
      'Note 8'
      'Envelope #9'
      'Envelope #10'
      'Envelope #11'
      'Envelope #12'
      'Envelope #14'
      'C size Sheet'
      'D size Sheet'
      'E size Sheet')
  end
  object Edit1: TEdit
    Left = 40
    Top = 120
    Width = 49
    Height = 21
    TabOrder = 2
    Text = '10'
  end
  object Edit2: TEdit
    Left = 120
    Top = 120
    Width = 49
    Height = 21
    TabOrder = 3
    Text = '10'
  end
  object Edit3: TEdit
    Left = 224
    Top = 120
    Width = 49
    Height = 21
    TabOrder = 4
    Text = '10'
  end
  object Edit4: TEdit
    Left = 304
    Top = 120
    Width = 49
    Height = 21
    TabOrder = 5
    Text = '10'
  end
  object Edit5: TEdit
    Left = 56
    Top = 56
    Width = 113
    Height = 21
    TabOrder = 6
    Text = '210.00'
  end
  object Edit6: TEdit
    Left = 232
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 7
    Text = '279.00'
  end
  object xpButton1: TxpButton
    Left = 248
    Top = 160
    Width = 105
    Height = 25
    Caption = '下一步'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TabOrder = 8
    TabStop = True
    OnClick = xpButton1Click
  end
end