paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:19:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: Fix tab order and set ActiveControl in DeclareVarDialog. From n7800.

Browse Source
This commit is contained in:
Juha 2024-04-14 23:54:14 +03:00
parent 0019ed83bd
commit 695e84d46d
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/ide/declarevardlg.lfm
View File

@ -3,6 +3,7 @@ object CodyDeclareVarDialog: TCodyDeclareVarDialog
Height = 331 Height = 331
Top = 243 Top = 243
Width = 410 Width = 410
ActiveControl = TypeEdit
Caption = 'CodyDeclareVarDialog' Caption = 'CodyDeclareVarDialog'
ClientHeight = 331 ClientHeight = 331
ClientWidth = 410 ClientWidth = 410
@ -19,7 +20,7 @@ object CodyDeclareVarDialog: TCodyDeclareVarDialog
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
TabOrder = 0 TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp] ShowButtons = [pbOK, pbCancel, pbHelp]
end end
object Panel1: TPanel object Panel1: TPanel
@ -31,7 +32,7 @@ object CodyDeclareVarDialog: TCodyDeclareVarDialog
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 277 ClientHeight = 277
ClientWidth = 410 ClientWidth = 410
TabOrder = 1 TabOrder = 0
object TypeLabel: TLabel object TypeLabel: TLabel
AnchorSideLeft.Control = Panel1 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = TypeEdit AnchorSideTop.Control = TypeEdit
@ -60,7 +61,7 @@ object CodyDeclareVarDialog: TCodyDeclareVarDialog
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
TabOrder = 0 TabOrder = 1
Text = 'TypeEdit' Text = 'TypeEdit'
end end
object WhereRadioGroup: TRadioGroup object WhereRadioGroup: TRadioGroup
@ -82,7 +83,7 @@ object CodyDeclareVarDialog: TCodyDeclareVarDialog
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
TabOrder = 1 TabOrder = 0
end end
object RedefineLabel: TLabel object RedefineLabel: TLabel
Left = 6 Left = 6