mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 15:18:09 +02:00
df0b4e4aa9
- restrict user input - disable OK button if text is not a number git-svn-id: trunk@60108 -
57 lines
1.2 KiB
Plaintext
57 lines
1.2 KiB
Plaintext
object frmGoto: TfrmGoto
|
|
Left = 423
|
|
Height = 101
|
|
Top = 427
|
|
Width = 250
|
|
AutoSize = True
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsDialog
|
|
Caption = 'frmGoto'
|
|
ClientHeight = 101
|
|
ClientWidth = 250
|
|
LCLVersion = '2.1.0.0'
|
|
object Label1: TLabel
|
|
Left = 6
|
|
Height = 14
|
|
Top = 6
|
|
Width = 238
|
|
Align = alTop
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Label1'
|
|
ParentColor = False
|
|
end
|
|
object Edit1: TEdit
|
|
Left = 6
|
|
Height = 21
|
|
Top = 26
|
|
Width = 238
|
|
Align = alTop
|
|
BorderSpacing.Around = 6
|
|
Constraints.MinWidth = 200
|
|
OnChange = Edit1Change
|
|
OnKeyPress = Edit1KeyPress
|
|
TabOrder = 0
|
|
Text = 'Edit1'
|
|
end
|
|
object ButtonPanel1: TButtonPanel
|
|
Left = 6
|
|
Height = 26
|
|
Top = 53
|
|
Width = 238
|
|
Align = alTop
|
|
OKButton.Name = 'OKButton'
|
|
OKButton.DefaultCaption = True
|
|
HelpButton.Name = 'HelpButton'
|
|
HelpButton.DefaultCaption = True
|
|
HelpButton.Enabled = False
|
|
CloseButton.Name = 'CloseButton'
|
|
CloseButton.DefaultCaption = True
|
|
CloseButton.Enabled = False
|
|
CancelButton.Name = 'CancelButton'
|
|
CancelButton.DefaultCaption = True
|
|
TabOrder = 1
|
|
ShowButtons = [pbOK, pbCancel]
|
|
ShowBevel = False
|
|
end
|
|
end
|