paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 12:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE & Packager: Fix tab order and ActiveControl of some forms

Browse Source 
git-svn-id: trunk@31544 -
This commit is contained in:
juha 2011-07-03 15:42:01 +00:00
parent 4f38e5313f
commit 52c2f1237a
4 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/useprojunitdlg.lfm
View File

@ -28,7 +28,7 @@ object UseUnitDialog: TUseUnitDialog
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Cancel'
TabOrder = 2
TabOrder = 4
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
end
@ -64,7 +64,7 @@ object UseUnitDialog: TUseUnitDialog
'Interface'
'Implementation'
)
TabOrder = 1
TabOrder = 3
end
object UnitsListBox: TListBox
AnchorSideLeft.Control = Owner
@ -81,7 +81,7 @@ object UseUnitDialog: TUseUnitDialog
ItemHeight = 0
OnDblClick = UnitsListBoxDblClick
Style = lbOwnerDrawFixed
TabOrder = 0
TabOrder = 1
end
object AllUnitsCheckBox: TCheckBox
AnchorSideLeft.Control = Owner
@ -95,7 +95,7 @@ object UseUnitDialog: TUseUnitDialog
BorderSpacing.Around = 6
Caption = 'Show all units'
OnChange = AllUnitsCheckBoxChange
TabOrder = 3
TabOrder = 2
end
object FilterEdit: TListFilterEdit
AnchorSideLeft.Control = Owner
@ -112,6 +112,6 @@ object UseUnitDialog: TUseUnitDialog
Font.Color = clBtnShadow
MaxLength = 0
ParentFont = False
TabOrder = 4
TabOrder = 0
end
end

14
packager/installpkgsetdlg.lfm
View File

@ -42,7 +42,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
BorderSpacing.Around = 6
Caption = 'ImportButton'
OnClick = ImportButtonClick
TabOrder = 0
TabOrder = 2
end
object ExportButton: TButton
Left = 6
@ -53,7 +53,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
BorderSpacing.Around = 6
Caption = 'ExportButton'
OnClick = ExportButtonClick
TabOrder = 1
TabOrder = 3
end
object InstallTreeView: TTreeView
Left = 6
@ -68,7 +68,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
ShowButtons = False
ShowLines = False
ShowRoot = False
TabOrder = 2
TabOrder = 0
OnDblClick = InstallTreeViewDblClick
OnSelectionChanged = InstallTreeViewSelectionChanged
Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoToolTips, tvoThemedDraw]
@ -82,7 +82,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
BorderSpacing.Around = 6
Caption = 'UninstallButton'
OnClick = UninstallButtonClick
TabOrder = 3
TabOrder = 1
end
end
object AvailablePkgGroupBox: TGroupBox
@ -120,7 +120,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
ShowButtons = False
ShowLines = False
ShowRoot = False
TabOrder = 0
TabOrder = 1
OnDblClick = AvailableTreeViewDblClick
OnSelectionChanged = AvailableTreeViewSelectionChanged
Options = [tvoAllowMultiselect, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoToolTips, tvoThemedDraw]
@ -134,7 +134,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
BorderSpacing.Around = 6
Caption = 'AddToInstallButton'
OnClick = AddToInstallButtonClick
TabOrder = 1
TabOrder = 2
end
object AvailableFilterEdit: TListFilterEdit
Left = 6
@ -148,7 +148,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
Font.Color = clBtnShadow
MaxLength = 0
ParentFont = False
TabOrder = 2
TabOrder = 0
end
end
object PkgInfoGroupBox: TGroupBox

2
packager/installpkgsetdlg.pas
View File

@ -192,7 +192,7 @@ begin
fAvailablePackages:=TAVLTree.Create(@CompareLazPackageIDNames);
FNewInstalledPackages:=TObjectList.Create(true);
ActiveControl:=AvailableFilterEdit;
PkgInfoMemo.Clear;
end;

8
packager/packageeditor.lfm
View File

@ -31,7 +31,7 @@ inherited PackageEditorForm: TPackageEditorForm
Caption = 'FilePropsGroupBox'
ClientHeight = 101
ClientWidth = 573
TabOrder = 1
TabOrder = 2
object CallRegisterProcCheckBox: TCheckBox
Left = 0
Height = 18
@ -175,7 +175,7 @@ inherited PackageEditorForm: TPackageEditorForm
BevelOuter = bvNone
ClientHeight = 261
ClientWidth = 577
TabOrder = 4
TabOrder = 1
object FilesTreeView: TTreeView
AnchorSideTop.Side = asrBottom
Left = 0
@ -187,7 +187,7 @@ inherited PackageEditorForm: TPackageEditorForm
DefaultItemHeight = 15
PopupMenu = FilesPopupMenu
ReadOnly = True
TabOrder = 0
TabOrder = 1
OnDblClick = FilesTreeViewDblClick
OnKeyPress = FilesTreeViewKeyPress
OnSelectionChanged = FilesTreeViewSelectionChanged
@ -240,7 +240,7 @@ inherited PackageEditorForm: TPackageEditorForm
Font.Color = clBtnShadow
MaxLength = 0
ParentFont = False
TabOrder = 1
TabOrder = 0
end
end
object FilesPopupMenu: TPopupMenu[5]