一个用Delphi开发的ERP软件
源代码在线查看: hwprint.dfm.svn-base
object HwPrintForm: THwPrintForm
Left = 195
Top = 92
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #33258#23450#20041#25171#21360
ClientHeight = 352
ClientWidth = 457
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 441
Height = 305
ActivePage = tsPage
TabIndex = 1
TabOrder = 0
object tsFields: TTabSheet
Caption = #39033#30446#36873#25321
object lblSelected: TLabel
Left = 16
Top = 16
Width = 48
Height = 12
Caption = #39033#30446#36873#25321
end
object SpeedButton1: TSpeedButton
Left = 206
Top = 64
Width = 23
Height = 22
Caption = '>'
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 206
Top = 104
Width = 23
Height = 22
Caption = '>>'
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 206
Top = 144
Width = 23
Height = 22
Caption = ' OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 206
Top = 184
Width = 23
Height = 22
Caption = ' OnClick = SpeedButton4Click
end
object lblFields: TLabel
Left = 232
Top = 16
Width = 48
Height = 12
Caption = #25171#21360#39033#30446
end
object CheckListBox1: TCheckListBox
Left = 16
Top = 32
Width = 185
Height = 225
ItemHeight = 18
Items.Strings = (
'1'
'2'
'3'
'4')
Style = lbOwnerDrawFixed
TabOrder = 0
OnDblClick = SpeedButton1Click
end
object sgFields: TStringGrid
Left = 232
Top = 32
Width = 185
Height = 225
ColCount = 2
DefaultRowHeight = 21
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing]
TabOrder = 1
OnKeyPress = sgFieldsKeyPress
OnSelectCell = sgFieldsSelectCell
ColWidths = (
91
79)
end
end
object tsPage: TTabSheet
Caption = #39029#38754#35774#23450
ImageIndex = 1
object lblTitle: TLabel
Left = 24
Top = 29
Width = 48
Height = 12
Caption = #25253#34920#26631#39064
end
object edtReportTitle: TEdit
Left = 88
Top = 24
Width = 313
Height = 20
TabOrder = 0
end
object GroupBox3: TGroupBox
Left = 24
Top = 56
Width = 185
Height = 105
Caption = #39029#38754#23610#23544
TabOrder = 1
object lblWidth: TLabel
Left = 16
Top = 54
Width = 60
Height = 12
Caption = #23485#24230'('#27627#31859')'
FocusControl = edtWidth
end
object lblHeight: TLabel
Left = 16
Top = 78
Width = 60
Height = 12
Caption = #39640#24230'('#27627#31859')'
FocusControl = edtHeight
end
object cbPaper: TComboBox
Left = 16
Top = 20
Width = 156
Height = 20
HelpContext = 130
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
OnClick = cbPaperClick
end
object edtWidth: TEdit
Left = 88
Top = 48
Width = 81
Height = 20
HelpContext = 140
TabOrder = 1
end
object edtHeight: TEdit
Left = 88
Top = 72
Width = 81
Height = 20
HelpContext = 150
TabOrder = 2
end
end
object GroupBox2: TGroupBox
Left = 216
Top = 56
Width = 185
Height = 105
Caption = #26041#21521
TabOrder = 2
object Image2: TImage
Left = 117
Top = 40
Width = 32
Height = 26
AutoSize = True
Picture.Data = {
07544269746D617016020000424D160200000000000076000000280000002000
00001A0000000100040000000000A0010000CE0E0000C40E0000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00000000000000000000000000000000008FFFF77777777777777777777777
77708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFF
FF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFF
FF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFF8888FFFF888888FFFFF
FF708FFFFFFFFF78FFFFFF7887FFFFFFFF708FFFFFFFFFF87FFFFF888FFFFFFF
FF708FFFFFFFFFF787FFF7887FFFFFFFFF708FFFFFFFFFFF88888888FFFFFFFF
FF708FFFFFFFFFFF87FF7887FFFFFFFFFF708FFFFFFFFFFF78FF888FFFFFFFFF
FF708FFFFFFFFFFFF87F887FFFFFFFFFFF708FFFFFFFFFFFF78888FFFFFFFFFF
FF708FFFFFFFFFFFFF8887FFFFFFFFFFFF708FFFFFFFFFFFFF788FFFFFFFFFFF
FF708FFFFFFFFFFFFFF87FFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFF000
00088FFFFFFFFFFFFFFFFFFFFFFFF07FFF878FFFFFFFFFFFFFFFFFFFFFFFF07F
F8778FFFFFFFFFFFFFFFFFFFFFFFF07F87778FFFFFFFFFFFFFFFFFFFFFFFF0F8
77778FFFFFFFFFFFFFFFFFFFFFFFF08777778888888888888888888888888077
7777}
end
object Image1: TImage
Left = 120
Top = 36
Width = 26
Height = 32
AutoSize = True
Picture.Data = {
07544269746D617076020000424D760200000000000076000000280000001A00
000020000000010004000000000000020000CE0E0000C40E0000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00000000000000000000000000000000008777777777777777777777777000
00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
00008FFFFF8888FFFF888888FFFF700000008FFFFFF78FFFFFF7887FFFFF7000
00008FFFFFFF87FFFFF888FFFFFF700000008FFFFFFF787FFF7887FFFFFF7000
00008FFFFFFFF88888888FFFFFFF700000008FFFFFFFF87FF7887FFFFFFF7000
00008FFFFFFFF78FF888FFFFFFFF700000008FFFFFFFFF87F887FFFFFFFF7000
00008FFFFFFFFF78888FFFFFFFFF700000008FFFFFFFFFF8887FFFFFFFFF7000
00008FFFFFFFFFF788FFFFFFFFFF700000008FFFFFFFFFFF87FFFFFFFFFF7000
00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFFFFFFF7000
00008FFFFFFFFFFFFFFFFFFFFFFF700000008FFFFFFFFFFFFFFFFFF800000000
00008FFFFFFFFFFFFFFFFFF8FF78070000008FFFFFFFFFFFFFFFFFF8F7807700
00008FFFFFFFFFFFFFFFFFF87807770000008FFFFFFFFFFFFFFFFFF880777700
00008FFFFFFFFFFFFFFFFFF80777770000008888888888888888888877777700
0000}
end
object rbVertical: TRadioButton
Left = 32
Top = 32
Width = 79
Height = 16
HelpContext = 111
Caption = #32437#21521
TabOrder = 0
OnClick = rbVerticalClick
end
object rbHorizontal: TRadioButton
Left = 32
Top = 64
Width = 79
Height = 16
HelpContext = 120
Caption = #27178#21521
Checked = True
TabOrder = 1
TabStop = True
OnClick = rbHorizontalClick
end
end
object GroupBox4: TGroupBox
Left = 24
Top = 168
Width = 377
Height = 89
Caption = #36793#36317
TabOrder = 3
object lblTop: TLabel
Left = 16
Top = 28
Width = 72
Height = 12
Caption = #19978#36793#30028'('#27627#31859')'
end
object lblBottom: TLabel
Left = 208
Top = 28
Width = 72
Height = 12
Caption = #19979#36793#30028'('#27627#31859')'
end
object lblLeft: TLabel
Left = 16
Top = 56
Width = 72
Height = 12
Caption = #24038#36793#30028'('#27627#31859')'
end
object lblRight: TLabel
Left = 208
Top = 56
Width = 72
Height = 12
Caption = #21491#36793#30028'('#27627#31859')'
end
object edtTop: TEdit
Left = 96
Top = 24
Width = 57
Height = 20
TabOrder = 0
Text = '0'
end
object upTop: TUpDown
Left = 153
Top = 24
Width = 17
Height = 20
Associate = edtTop
Min = 0
Position = 0
TabOrder = 1
Wrap = False
end
object edtBottom: TEdit
Left = 288
Top = 24
Width = 57
Height = 20
TabOrder = 2
Text = '0'
end
object udBottom: TUpDown
Left = 345
Top = 24
Width = 17
Height = 20
Associate = edtBottom
Min = 0
Position = 0
TabOrder = 3
Wrap = False
end
object edtLeft: TEdit
Left = 96
Top = 52
Width = 57
Height = 20
TabOrder = 4
Text = '0'
end
object udLeft: TUpDown
Left = 153
Top = 52
Width = 17
Height = 20
Associate = edtLeft
Min = 0
Position = 0
TabOrder = 5
Wrap = False
end
object edtRight: TEdit
Left = 288
Top = 52
Width = 57
Height = 20
TabOrder = 6
Text = '0'
end
object udRight: TUpDown
Left = 345
Top = 52
Width = 17
Height = 20
Associate = edtRight
Min = 0
Position = 0
TabOrder = 7
Wrap = False
end
end
end
object tsFont: TTabSheet
Caption = #23383#20307#35774#32622
ImageIndex = 2
object pnlTitle: TPanel
Left = 24
Top = 40
Width = 297
Height = 33
BevelOuter = bvLowered
Caption = #25253#34920#21517#31216
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = []
ParentFont = False
TabOrder = 0
end
object pnlColumn: TPanel
Left = 24
Top = 88
Width = 297
Height = 33
BevelOuter = bvLowered
Caption = #21015#26631#39064
TabOrder = 1
end
object pnlData: TPanel
Left = 24
Top = 136
Width = 297
Height = 33
BevelOuter = bvLowered
Caption = #25968#25454#34892
TabOrder = 2
end
object pnlFoot: TPanel
Left = 24
Top = 184
Width = 297
Height = 33
BevelOuter = bvLowered
Caption = #25253#34920#39029#33050
TabOrder = 3
end
object bbtnTitle: TBitBtn
Left = 336
Top = 44
Width = 75
Height = 25
Caption = #23383#20307
TabOrder = 4
OnClick = bbtnTitleClick
end
object bbtnColumn: TBitBtn
Left = 336
Top = 92
Width = 75
Height = 25
Caption = #23383#20307
TabOrder = 5
OnClick = bbtnColumnClick
end
object bbtnData: TBitBtn
Left = 336
Top = 140
Width = 75
Height = 25
Caption = #23383#20307
TabOrder = 6
OnClick = bbtnDataClick
end
object bbtnFoot: TBitBtn
Left = 336
Top = 188
Width = 75
Height = 25
Caption = #23383#20307
TabOrder = 7
OnClick = bbtnFootClick
end
end
end
object bbtnPrint: TBitBtn
Left = 264
Top = 320
Width = 75
Height = 25
Caption = #25171#21360'(&P)'
TabOrder = 1
OnClick = bbtnPrintClick
end
object bbtnExit: TBitBtn
Left = 360
Top = 320
Width = 75
Height = 25
Caption = #36864#20986'(&X)'
TabOrder = 2
OnClick = bbtnExitClick
end
object DataSource1: TDataSource
Left = 308
end
object FontDialog1: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 380
end
object frReport1: TfrReport
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
RebuildPrinter = False
Left = 176
Top = 16
ReportForm = {19000000}
end
end