pntdlg.dfm
来自「delphi框架可以学习, 写的很好的」· DFM 代码 · 共 460 行
DFM
460 行
object frmPntDlg: TfrmPntDlg
Left = 244
Top = 121
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #39029#38754#35774#32622
ClientHeight = 429
ClientWidth = 417
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PrintScale = poNone
Scaled = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 12
Top = 8
Width = 391
Height = 369
ActivePage = TabSheet1
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #39029#36793#36317
object Label16: TLabel
Left = 21
Top = 74
Width = 336
Height = 1
AutoSize = False
Color = clGreen
ParentColor = False
end
object Panel2: TPanel
Left = 1
Top = 0
Width = 381
Height = 110
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label12: TLabel
Left = 20
Top = 20
Width = 48
Height = 12
Caption = #32440#24352#22823#23567
end
object Label9: TLabel
Left = 20
Top = 50
Width = 36
Height = 12
Caption = #23485' '#24230':'
end
object Label10: TLabel
Left = 20
Top = 81
Width = 36
Height = 12
Caption = #39640' '#24230':'
end
object Label17: TLabel
Left = 172
Top = 50
Width = 24
Height = 12
Caption = #27627#31859
end
object Label18: TLabel
Left = 171
Top = 81
Width = 24
Height = 12
Caption = #27627#31859
end
object cmbPagerName: TComboBox
Left = 71
Top = 15
Width = 295
Height = 20
Style = csOwnerDrawFixed
DropDownCount = 16
ItemHeight = 14
TabOrder = 0
OnClick = cmbPagerNameClick
end
object seWidth: TSpinEdit
Left = 71
Top = 45
Width = 95
Height = 21
Increment = 1000
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 0
OnChange = seWidthChange
end
object seHeight: TSpinEdit
Left = 71
Top = 75
Width = 95
Height = 21
Increment = 1000
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 0
OnChange = seHeightChange
end
end
object Panel3: TPanel
Left = 1
Top = 113
Width = 381
Height = 213
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label1: TLabel
Left = 20
Top = 22
Width = 36
Height = 12
Caption = #19978#36793#36317
end
object Label2: TLabel
Left = 20
Top = 55
Width = 36
Height = 12
Caption = #19979#36793#36317
end
object Label3: TLabel
Left = 20
Top = 89
Width = 36
Height = 12
Caption = #24038#36793#36317
end
object Label4: TLabel
Left = 20
Top = 122
Width = 36
Height = 12
Caption = #21491#36793#36317
end
object Label8: TLabel
Left = 156
Top = 22
Width = 24
Height = 12
Caption = #27627#31859
end
object Label11: TLabel
Left = 156
Top = 55
Width = 24
Height = 12
Caption = #27627#31859
end
object Label19: TLabel
Left = 156
Top = 89
Width = 24
Height = 12
Caption = #27627#31859
end
object Label20: TLabel
Left = 156
Top = 122
Width = 24
Height = 12
Caption = #27627#31859
end
object Panel1: TPanel
Left = 187
Top = 2
Width = 192
Height = 209
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object Label5: TLabel
Left = 0
Top = 0
Width = 192
Height = 19
Align = alTop
Alignment = taCenter
AutoSize = False
Caption = '---------- '#39044#35272' ----------'
Color = 14650692
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object RptForm: TppViewer
Left = 0
Top = 19
Width = 192
Height = 190
Align = alClient
BevelOuter = bvNone
PageColor = clWindow
ZoomPercentage = 100
ZoomSetting = zsWholePage
end
end
object seTop: TSpinEdit
Left = 71
Top = 17
Width = 80
Height = 21
Increment = 1000
MaxValue = 0
MinValue = 0
TabOrder = 1
Value = 0
OnChange = seTopChange
end
object seBottom: TSpinEdit
Left = 71
Top = 51
Width = 80
Height = 21
Increment = 1000
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 0
OnChange = seTopChange
end
object seLeft: TSpinEdit
Left = 71
Top = 84
Width = 80
Height = 21
Increment = 1000
MaxValue = 0
MinValue = 0
TabOrder = 3
Value = 0
OnChange = seTopChange
end
object seRight: TSpinEdit
Left = 71
Top = 118
Width = 80
Height = 21
Increment = 1000
MaxValue = 0
MinValue = 0
TabOrder = 4
Value = 0
OnChange = seTopChange
end
object cbSavePrinterSetup: TCheckBox
Left = 23
Top = 188
Width = 119
Height = 17
Caption = #27599#27425#20351#29992#21516#19968#35774#32622
Checked = True
State = cbChecked
TabOrder = 5
OnClick = cbSavePrinterSetupClick
end
end
end
object TabSheet3: TTabSheet
Caption = #25171#21360#35774#32622
ImageIndex = 2
object Label13: TLabel
Left = 14
Top = 54
Width = 54
Height = 12
Caption = #25171#21360#20221#25968':'
end
object Label7: TLabel
Left = 14
Top = 24
Width = 66
Height = 12
Caption = #24403#21069#25171#21360#26426':'
end
object TransButton1: TTransButton
Left = 12
Top = 240
Width = 117
Height = 25
AnimateActive = False
Color = clBtnFace
GlyphIndex = 1
Caption = #25171#21360#26426#35774#32622
OnClick = TransButton1Click
end
object Label15: TLabel
Left = 154
Top = 53
Width = 12
Height = 12
Caption = #20221
end
object GroupBox2: TGroupBox
Left = 8
Top = 96
Width = 365
Height = 124
Caption = #25171#21360#33539#22260
TabOrder = 0
object rbPrintAll: TRadioButton
Left = 26
Top = 20
Width = 73
Height = 17
Caption = #25171#21360#20840#37096
Checked = True
TabOrder = 0
TabStop = True
end
object rbPrintCurrent: TRadioButton
Left = 26
Top = 44
Width = 85
Height = 17
Caption = #25171#21360#24403#21069#39029
TabOrder = 1
end
object rbPrintPart: TRadioButton
Left = 26
Top = 68
Width = 93
Height = 17
Caption = #25171#21360#36873#23450#37096#20998
TabOrder = 2
OnClick = rbPrintPartClick
end
object Edit1: TEdit
Left = 43
Top = 90
Width = 313
Height = 20
TabOrder = 3
Text = '1..3'
OnChange = Edit1Change
end
end
object cmbPrinterName: TComboBox
Left = 83
Top = 19
Width = 288
Height = 20
Style = csOwnerDrawFixed
DropDownCount = 16
ItemHeight = 14
TabOrder = 1
end
object SpinEdit1: TSpinEdit
Left = 83
Top = 47
Width = 66
Height = 21
MaxValue = 1000000
MinValue = 1
TabOrder = 2
Value = 1
OnChange = seTopChange
end
end
end
object BtnSave: TBitBtn
Left = 99
Top = 391
Width = 86
Height = 25
Caption = #20445#23384#20026#40664#35748#20540
TabOrder = 1
OnClick = BtnSaveClick
end
object BtnCancel: TBitBtn
Left = 327
Top = 391
Width = 75
Height = 25
Cancel = True
Caption = #21462#28040
TabOrder = 2
OnClick = BtnCancelClick
end
object BtnRestore: TBitBtn
Left = 15
Top = 391
Width = 75
Height = 25
Caption = #24674#22797
TabOrder = 3
OnClick = BtnRestoreClick
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
0000FF000000008000008000000000000000FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080808000FF000000FF00
00000080000000800000FF0000008000000000000000FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080808000FF000000C0C0
C000008000000080000000800000FF00000000000000FF00FF00FF00FF000000
0000000000000000000000000000000000000000000080808000FF000000C0C0
C000C0C0C00000800000FF0000000080000000000000FF00FF00FF00FF000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0080808000FF000000FFFF
FF0080800000FF000000008000000080000000000000FF00FF00FF00FF000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0080808000FF00
0000FFFFFF00C0C0C0000080000000000000FF00FF00FF00FF00FF00FF000000
0000FFFFFF0080808000808080008080800080808000FFFFFF00FFFFFF008080
8000808080008080800080808000FF00FF00FF00FF00FF00FF00FF00FF000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF000000
0000FFFFFF008080800080808000808080008080800080808000808080008080
800080808000FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF000000
0000FFFFFF000000000000000000000000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF000000
0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF0000000000FF00FF00FF00FF00FF00FF00FF00FF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object btnSaveLocal: TBitBtn
Left = 224
Top = 391
Width = 97
Height = 25
Caption = #20445#23384#35774#32622#21040#26412#26426
TabOrder = 4
OnClick = btnSaveLocalClick
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?