main.dfm

即打即停,控件打印机,适合控制打印机的用户

object fPrinter_Test: TfPrinter_Test
  Left = 247
  Top = 107
  Width = 699
  Height = 407
  Caption = 'fPrinter_Test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 506
    Height = 380
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      '                     '#25171#21360#27979#35797
      #9487#9473#9473#9473#9473#9523#9473#9473#9473#9473#9473#9473#9523#9473#9473#9473#9473#9473#9523#9473#9473#9473#9473#9473#9473#9491
      #9475#26631#39064'1   '#9475#26631#39064'2       '#9475#26631#39064#19977'    '#9475' '#26631#39064'4      '#9475
      #9507#9473#9473#9473#9473#9543#9473#9473#9473#9473#9473#9473#9543#9473#9473#9473#9473#9473#9543#9473#9473#9473#9473#9473#9473#9515
      #9475#20869#23481'1_1 '#9474#20869#23481'2_1     '#9474#20869#23481#19977'_1  '#9474' '#20869#23481'4_1    '#9475
      #9504#9472#9472#9472#9472#9532#9472#9472#9472#9472#9472#9472#9532#9472#9472#9472#9472#9472#9532#9472#9472#9472#9472#9472#9472#9512
      #9475#20869#23481'1_2 '#9474#20869#23481'2_2     '#9474#20869#23481#19977'_3  '#9474' '#20869#23481'4_4    '#9475
      #9504#9472#9472#9472#9472#9532#9472#9472#9472#9472#9472#9472#9532#9472#9472#9472#9472#9472#9532#9472#9472#9472#9472#9472#9472#9512
      #9475#20869#23481'1_2 '#9474#20869#23481'2_2     '#9474#20869#23481#19977'_3  '#9474' '#20869#23481'4_4    '#9475
      #9495#9473#9473#9473#9473#9527#9473#9473#9473#9473#9473#9473#9527#9473#9473#9473#9473#9473#9527#9473#9473#9473#9473#9473#9473#9499
      '                    2006.03.12')
    ParentFont = False
    TabOrder = 0
    WordWrap = False
  end
  object Panel1: TPanel
    Left = 506
    Top = 0
    Width = 185
    Height = 380
    Align = alRight
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object cbPrinters: TComboBox
      Left = 28
      Top = 28
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'cbPrinters'
    end
    object bnPrint: TButton
      Left = 32
      Top = 68
      Width = 121
      Height = 25
      Caption = 'Print(ToPrnFrmC)'
      Default = True
      TabOrder = 1
      OnClick = bnPrintClick
    end
    object Button1: TButton
      Left = 32
      Top = 112
      Width = 121
      Height = 25
      Caption = 'Print(ToPrnFrm)'
      TabOrder = 2
      OnClick = Button1Click
    end
  end
end