📄 prtsetup.dfm
字号:
object PrtSetForm: TPrtSetForm
Left = 559
Top = 125
BorderStyle = bsDialog
Caption = 'Printer Setup'
ClientHeight = 233
ClientWidth = 358
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 56
Width = 49
Height = 16
Caption = 'Bottom'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 34
Top = 24
Width = 29
Height = 16
Caption = 'Top'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 38
Top = 88
Width = 26
Height = 16
Caption = 'Left'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 30
Top = 120
Width = 37
Height = 16
Caption = 'Right'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 112
Top = 24
Width = 25
Height = 16
Caption = 'mm'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 112
Top = 56
Width = 25
Height = 16
Caption = 'mm'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 112
Top = 88
Width = 25
Height = 16
Caption = 'mm'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 112
Top = 120
Width = 25
Height = 16
Caption = 'mm'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 186
Top = 24
Width = 53
Height = 16
Caption = 'Header'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 192
Top = 56
Width = 46
Height = 16
Caption = 'Footer'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 288
Top = 24
Width = 25
Height = 16
Caption = 'mm'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 288
Top = 56
Width = 25
Height = 16
Caption = 'mm'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object OkButton: TBitBtn
Left = 16
Top = 200
Width = 73
Height = 25
Caption = 'OK'
Default = True
TabOrder = 0
OnClick = OkButtonClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object Cancel: TBitBtn
Left = 104
Top = 200
Width = 73
Height = 25
Cancel = True
Caption = 'Cancel'
TabOrder = 1
OnClick = CancelClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object TopEd: TEdit
Left = 72
Top = 22
Width = 33
Height = 24
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 3
ParentFont = False
TabOrder = 2
Text = '25'
OnKeyPress = EditKeyPress
end
object BottomEd: TEdit
Left = 72
Top = 54
Width = 33
Height = 24
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 3
ParentFont = False
TabOrder = 3
Text = '25'
OnKeyPress = EditKeyPress
end
object LeftEd: TEdit
Left = 72
Top = 86
Width = 33
Height = 24
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 3
ParentFont = False
TabOrder = 4
Text = '10'
OnKeyPress = EditKeyPress
end
object RightEd: TEdit
Left = 72
Top = 118
Width = 33
Height = 24
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 3
ParentFont = False
TabOrder = 5
Text = '10'
OnKeyPress = EditKeyPress
end
object HeaderEd: TEdit
Left = 248
Top = 22
Width = 33
Height = 24
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 3
ParentFont = False
TabOrder = 6
Text = '15'
OnKeyPress = EditKeyPress
end
object FooterEd: TEdit
Left = 248
Top = 54
Width = 33
Height = 24
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 3
ParentFont = False
TabOrder = 7
Text = '15'
OnKeyPress = EditKeyPress
end
object HLBox: TCheckBox
Left = 192
Top = 96
Width = 105
Height = 17
Caption = 'Use Highlighter'
TabOrder = 8
end
object LNBox: TCheckBox
Left = 192
Top = 120
Width = 113
Height = 17
Caption = 'Print Line Numbers'
TabOrder = 9
end
object PrtButton: TBitBtn
Left = 272
Top = 160
Width = 73
Height = 25
Caption = 'Printer'
TabOrder = 10
OnClick = PrtButtonClick
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDD000000DDD00000000000DDDD000000DD0777777777070DDD000000D000
000000000070DD000000D0777777FFF77000DD000000D077777799977070DD00
0000D0000000000000770D000000D0777777777707070D000000DD0000000000
70700D000000DDD0FFFFFFFF07070D000000DDDD0FCCCCCF0000DD000000DDDD
0FFFFFFFF0DDDD000000DDDDD0FCCCCCF0DDDD000000DDDDD0FFFFFFFF0DDD00
0000DDDDDD000000000DDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD
DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
end
object StdButton: TBitBtn
Left = 16
Top = 160
Width = 161
Height = 25
Caption = 'Set as Standard'
TabOrder = 11
OnClick = StdButtonClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000120B0000120B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
88888800000000000008880FFFFFFFFFFF08880F00F1F000FF08880FFF117FFF
FF08880FF1111F00FF08880F111711FFFF08880FF17FF17FFF08880FFFFFFF17
FF08880F00000FF1FF08880FFFFFFFFF1F08880F0000000FFF08880FFFFFFFF0
0008880F00000FF0F088880FFFFFFFF008888800000000008888}
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 336
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -