📄 updateaction.lfm
字号:
object UpdateActionForm: TUpdateActionForm
Left = 586
Height = 271
Top = 306
Width = 228
HorzScrollBar.Page = 227
HorzScrollBar.Range = 199
VertScrollBar.Page = 270
VertScrollBar.Range = 131
ActiveControl = rgAction
Caption = 'UpdateAction'
ClientHeight = 271
ClientWidth = 228
Font.Height = 11
Font.Name = 'Tahoma'
Font.Pitch = fpVariable
object Panel1: TPanel
Left = 5
Height = 262
Top = 4
Width = 217
BevelOuter = bvNone
ClientHeight = 262
ClientWidth = 217
ParentColor = False
TabOrder = 0
object Panel5: TPanel
Left = 1
Height = 128
Top = 1
Width = 215
BevelOuter = bvNone
ClientHeight = 128
ClientWidth = 215
TabOrder = 0
object Label1: TLabel
Left = 6
Height = 13
Top = 15
Width = 46
Caption = 'Message:'
ParentColor = False
end
object Label2: TLabel
Left = 6
Height = 13
Top = 1
Width = 35
Caption = 'Record'
ParentColor = False
end
object lbField: TLabel
Left = 64
Height = 13
Top = 2
Width = 141
AutoSize = False
Caption = 'lbFileld'
ParentColor = False
end
object lbMessage: TLabel
Left = 7
Height = 95
Top = 29
Width = 201
AutoSize = False
Caption = 'lbMessage'
ParentColor = False
WordWrap = True
end
end
object Panel7: TPanel
Left = 1
Height = 131
Top = 130
Width = 98
BevelOuter = bvNone
ClientHeight = 131
ClientWidth = 98
TabOrder = 1
object rgAction: TRadioGroup
Left = 6
Height = 126
Top = 1
Width = 87
AutoFill = True
Caption = 'UpdateAction'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 108
ClientWidth = 83
Items.Strings = (
'Fail'
'Abort'
'Skip'
'Retry'
'Applied'
'Default'
)
TabOrder = 0
end
end
object Panel4: TPanel
Left = 100
Height = 89
Top = 130
Width = 116
BevelOuter = bvNone
ClientHeight = 89
ClientWidth = 116
TabOrder = 2
object rgKind: TRadioGroup
Left = 7
Height = 83
Top = 2
Width = 103
AutoFill = True
Caption = 'UpdateKind'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 65
ClientWidth = 99
Enabled = False
Items.Strings = (
'Modify'
'Insert'
'Delete'
)
TabOrder = 0
end
end
object Panel9: TPanel
Left = 100
Height = 41
Top = 220
Width = 116
BevelOuter = bvNone
ClientHeight = 41
ClientWidth = 116
TabOrder = 3
object Panel2: TPanel
Left = 16
Height = 24
Top = 9
Width = 84
BevelOuter = bvNone
ClientHeight = 24
ClientWidth = 84
Color = clBlue
ParentColor = False
TabOrder = 0
object btOk: TSpeedButton
Left = 1
Height = 22
Top = 1
Width = 82
Caption = 'Ok'
Color = clBtnFace
Flat = True
NumGlyphs = 0
Transparent = False
OnClick = btOkClick
end
end
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -