📄 pagedemo.dfm
字号:
object ClientAssistant: TClientAssistant
Left = 197
Top = 98
BorderStyle = bsDialog
Caption = 'TPageManager Demo'
ClientHeight = 335
ClientWidth = 493
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
Position = poDefaultPosOnly
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
TextHeight = 13
object BtnPanel: TPanel
Left = 0
Top = 290
Width = 493
Height = 45
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Bevel1: TBevel
Left = 0
Top = 0
Width = 493
Height = 13
Align = alTop
Shape = bsTopLine
end
object SaveBtn: TButton
Left = 324
Top = 12
Width = 77
Height = 25
Caption = '&Save'
TabOrder = 2
Visible = False
OnClick = SaveBtnClick
end
object BackBtn: TButton
Left = 8
Top = 12
Width = 77
Height = 25
Caption = '< &Back'
TabOrder = 0
end
object NextBtn: TButton
Left = 84
Top = 12
Width = 77
Height = 25
Caption = '&Next >'
Default = True
TabOrder = 1
end
object CloseBtn: TButton
Left = 408
Top = 12
Width = 77
Height = 25
Cancel = True
Caption = 'Close'
ModalResult = 2
TabOrder = 3
OnClick = CloseBtnClick
end
end
object Notebook: TNotebook
Left = 0
Top = 0
Width = 493
Height = 290
Align = alClient
TabOrder = 1
object TPage
Left = 0
Top = 0
Caption = 'ToDo'
object Image1: TImage
Left = 12
Top = 12
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
055449636F6E0000010001002020100000000000E80200001600000028000000
2000000040000000010004000000000080020000000000000000000000000000
0000000000000000000080000080000000808000800000008000800080800000
C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
FFFFFF0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000008000000000000
0000000000000000000800000000000000000000000000000007800000000000
0000000000000000000780008000000000000000000000000007780080000000
0000000000000888880778007800080000000000000000000007778078000800
00000000000088888877778077800780000000000000B7777777777807800780
000000000000B7777777777807780778000000000000B77777777777B0780778
000000000000B7777777777B07778077800000000000B7777777777B07778077
800000000000BBBBBBBB77B077777B077800000000000000000B77B07777B077
78000000000000000B0B7B077777B07777B00000000000000B0B7B0BB77B0777
7B00000000000000000BB000B77B07777B00000000000000000BB0B0B7B0BB77
B000000000000000000B0000B7B00B77B000000000000000000B0000BB000B7B
000000000000000000000000BB000B7B000000000000000000000000B0000BB0
000000000000000000000000B0000BB000000000000000000000000000000B00
00000000000000000000000000000B0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000FFFFFFFFFFDFFFFFFFCFFFFFFFC7FFFFFFC6FFFFFFC27FFFFFC237FF
FFC033FFF80011FFE00011FFE00000FFE00000FFE000007FE000007FE000003F
E000003FE000001FE000001FFF00000FFF00001FFF80001FFFC0003FFFC4003F
FFC6107FFFCE107FFFDE30FFFFFE30FFFFFE71FFFFFEF1FFFFFFF3FFFFFFF7FF
FFFFFFFF}
end
object Label1: TLabel
Left = 56
Top = 12
Width = 425
Height = 53
AutoSize = False
Caption =
'This is the TPageManager component demonstration form. You can u' +
'se '#39'Next'#39' or '#39'Back'#39' buttons to move between operation stadies.'
WordWrap = True
end
object Label16: TLabel
Left = 109
Top = 100
Width = 321
Height = 29
AutoSize = False
Caption = 'Choose an operation below: '
WordWrap = True
end
object NewBtn: TRadioButton
Left = 109
Top = 144
Width = 250
Height = 17
Caption = 'Input new customer data'
Checked = True
TabOrder = 0
TabStop = True
end
object EditBtn: TRadioButton
Left = 109
Top = 164
Width = 250
Height = 17
Caption = 'Change selected customer data'
TabOrder = 1
end
object DeleteBtn: TRadioButton
Left = 109
Top = 184
Width = 250
Height = 17
Caption = 'Delete information about selected customer'
TabOrder = 2
end
object ViewBtn: TRadioButton
Left = 109
Top = 204
Width = 250
Height = 17
Caption = 'View customer data (read-only)'
TabOrder = 3
end
end
object TPage
Left = 0
Top = 0
Caption = 'SearchConfirm'
object NewSearchHint: TLabel
Left = 56
Top = 12
Width = 421
Height = 41
AutoSize = False
Caption =
'Customer data to input may already be stored in database. You ca' +
'n check presence of this customer data in database by specifying' +
' selection criteria.'
WordWrap = True
end
object Image3: TImage
Left = 12
Top = 12
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
055449636F6E0000010001002020100000000000E80200001600000028000000
2000000040000000010004000000000080020000000000000000000000000000
0000000000000000000080000080000000808000800000008000800080800000
C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
FFFFFF00000000000000FFFFFFFFFFFFFFFFFFFF000000000000BFBFBFBFBFBF
00BFBFBF000000000000FFFFFFFFFFF0E60FFFFF000000000000BFBFBFBFBFBF
00BFBFBF000000000000FFFFFFFFFFFFFFFFFFFF000000000000BFBFBFBFBFBF
00BFBFBF000000000000FFFFFFFFFFF0E60FFFFF000000000000BFBFBFBFBFB0
E60FBFBF000000000000FFFFFFFFFFF0E60FFFFF000000000000BFBFBFBFBFB0
E60FBFBF0000000000000FFFFFFFFFFF0E60FFFF00000000000118BFBFBF00BF
B0E60FBF000000000001108FFFF0EE0FF0E60FFF0000000000011108BFB0EEE0
066E0FBF00000000000111108FFF0EEEEEE0FFFF000000000001111108BFB000
000FBFBF0000000008011111998FFFFFFFFFFFFF00000000000811119908BFBF
BFBFBFBF000000008077711999908FFFFFFFFFFF000000080777FFF999999000
0000000000000080777FFFF999999000000000000000080777FFFF0000000000
00000000000080777FFFF008000000000000000000080777FFFF080000000000
000000000080777FFFF090000000000000000000080777FFFF09990000000000
0000000008077FFFF099000000000000000000000887FFFF0890000000000000
000000000008FFF0800000000000000000000000000080080000000000000000
0000000000008880000000000000000000000000000000000000000000000000
00000000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000FFF00000
FFF00000FFF00000FFF00000FFE00000FFC00000FFC00000FFC00000FFC00000
FFC00000FF800000FF800000FF000000FE0003FFFC0003FFF80007FFF000FFFF
E003FFFFC007FFFF8003FFFF800FFFFF801FFFFFC07FFFFFE0FFFFFFF1FFFFFF
FFFFFFFF}
end
object Label24: TLabel
Left = 56
Top = 86
Width = 421
Height = 41
AutoSize = False
Caption =
'Select operation from the list below and click "Next" to continu' +
'e.'
WordWrap = True
end
object DoSearchBtn: TRadioButton
Left = 64
Top = 126
Width = 373
Height = 17
Caption = 'Search customer in database (strongly recommended)'
TabOrder = 0
end
object SkipSearchBtn: TRadioButton
Left = 64
Top = 154
Width = 373
Height = 17
Caption = 'Start to input customer data, don'#39't search.'
Checked = True
TabOrder = 1
TabStop = True
end
end
object TPage
Left = 0
Top = 0
Caption = 'SearchParams'
object Image2: TImage
Left = 12
Top = 12
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
055449636F6E0000010001002020100000000000E80200001600000028000000
2000000040000000010004000000000080020000000000000000000000000000
0000000000000000000080000080000000808000800000008000800080800000
C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
FFFFFF0000000000000000000000000000000000000000000000BFBFBFBFBFBF
BFBFBFB0000000000000FFFFFFFFFFFFFFFFFFF0000000000000BFBFBFBFBFBF
BFBFBFB0000000000000FFFFFFFFFFFFFFFFFFF0000000000000BFBFBFBFBFBF
BFBFBFB0000000000000FFFFFFFFFFFFFFFFFFF0000000000000BFBFBFBFBFBF
BFBFBFB0000000000000FFFFFFFFFFFFFFFFFFF0000000000000BFBFBFBFBFBF
BFBFBFB00000000000000FFFFFFFFFFFFFFFFFF000000000000118BFBFBFBFBF
BFBFBFB0000000000001108FFFFFFFFFFFFFFFF00000000000011108BFBFBFBF
BFBFBFB000000000000111108FFFFFFFFFFFFFF0000000000001111108BFBFBF
BFBFBFB00000000008011111998FFFFFFFFFFFF000000000000811119908BFBF
BFBFBFB0000000008077711999908FFFFFFFFFF0000000080777FFF999999000
0000000000000080777FFFF999999000000000000000080777FFFF0000000000
00000000000080777FFFF008000000000000000000080777FFFF080000000000
000000000080777FFFF090000000000000000000080777FFFF09990000000000
0000000008077FFFF099000000000000000000000887FFFF0890000000000000
000000000008FFF0800000000000000000000000000080080000000000000000
0000000000008880000000000000000000000000000000000000000000000000
00000000FFFFFFFFFFF00001FFF00001FFF00001FFF00001FFF00001FFF00001
FFF00001FFF00001FFF00001FFE00001FFC00001FFC00001FFC00001FFC00001
FFC00001FF800001FF800001FF000001FE0003FFFC0003FFF80007FFF000FFFF
E003FFFFC007FFFF8003FFFF800FFFFF801FFFFFC07FFFFFE0FFFFFFF1FFFFFF
FFFFFFFF}
end
object Label17: TLabel
Left = 56
Top = 12
Width = 425
Height = 45
AutoSize = False
Caption =
'Input selection criteria in the fields below. Click "Next" to st' +
'art search. Click "Back" to change type of operation.'
WordWrap = True
end
object Label19: TLabel
Left = 56
Top = 107
Width = 54
Height = 13
Caption = '&Last Name:'
FocusControl = SrchName
end
object Label20: TLabel
Left = 56
Top = 131
Width = 53
Height = 13
Caption = '&First Name:'
FocusControl = SrchFirstName
end
object Label21: TLabel
Left = 56
Top = 155
Width = 20
Height = 13
Caption = '&City:'
FocusControl = SrchCity
end
object Label23: TLabel
Left = 56
Top = 179
Width = 25
Height = 13
Caption = '&State'
FocusControl = SrchState
end
object Label27: TLabel
Left = 56
Top = 203
Width = 55
Height = 13
Caption = '&Occupation'
FocusControl = SrchOccupation
end
object SrchName: TEdit
Left = 144
Top = 104
Width = 150
Height = 19
TabOrder = 0
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -