71 lines
1.5 KiB
ObjectPascal
71 lines
1.5 KiB
ObjectPascal
object ActCodeForm: TActCodeForm
|
|
Left = 0
|
|
Top = 0
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsDialog
|
|
Caption = #25480#26435
|
|
ClientHeight = 126
|
|
ClientWidth = 299
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
Position = poMainFormCenter
|
|
OnCreate = FormCreate
|
|
TextHeight = 15
|
|
object m_lbTips: TLabel
|
|
Left = 11
|
|
Top = 63
|
|
Width = 283
|
|
Height = 15
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = #35831#36755#20837#25480#26435#30721#24182#39564#35777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -12
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object m_leActCode: TLabeledEdit
|
|
Left = 75
|
|
Top = 27
|
|
Width = 129
|
|
Height = 23
|
|
AutoSize = False
|
|
EditLabel.Width = 45
|
|
EditLabel.Height = 23
|
|
EditLabel.Hint = #35831#36755#20837#25480#26435#30721
|
|
EditLabel.Caption = #25480#26435#30721' '
|
|
EditLabel.ParentShowHint = False
|
|
EditLabel.ShowAccelChar = False
|
|
EditLabel.ShowHint = False
|
|
LabelPosition = lpLeft
|
|
TabOrder = 0
|
|
Text = ''
|
|
OnKeyPress = OnCodeKeyPress
|
|
end
|
|
object m_btnOk: TButton
|
|
Left = 115
|
|
Top = 88
|
|
Width = 75
|
|
Height = 25
|
|
Caption = #20851#38381
|
|
TabOrder = 1
|
|
OnClick = OnOkClick
|
|
end
|
|
object m_btnReset: TButton
|
|
Left = 212
|
|
Top = 26
|
|
Width = 63
|
|
Height = 25
|
|
Caption = #37325#32622
|
|
Enabled = False
|
|
TabOrder = 2
|
|
OnClick = OnResetClick
|
|
end
|
|
end
|