unit2.dfm

Delphi 源码,关于打印方面的一个小程序

object Form1: TForm1
  Left = 181
  Top = 143
  Width = 783
  Height = 540
  Caption = 'Form1'
  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 = 192
    Top = 96
    Width = 377
    Height = 129
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 168
    Top = 272
    Width = 97
    Height = 33
    Caption = #25171#21360#35774#32622
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 456
    Top = 272
    Width = 105
    Height = 33
    Caption = #25171#21360
    TabOrder = 2
    OnClick = Button2Click
  end
  object PrintDialog1: TPrintDialog
    Left = 72
    Top = 96
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 136
    Top = 96
  end
end