IDE, Project options dialog/Path tab: improved taborder, bug #17913.

git-svn-id: trunk@28194 -

ide/frames/compiler_path_options.lfm

@@ -12,7 +12,7 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 18
+    Height = 14
     Top = 0
     Width = 509
     Anchors = [akTop, akLeft, akRight]
@@ -26,8 +26,8 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 18
-    Top = 51
+    Height = 14
+    Top = 41
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Top = 6
@@ -41,8 +41,8 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 18
-    Top = 255
+    Height = 14
+    Top = 205
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Top = 6
@@ -56,8 +56,8 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 18
-    Top = 102
+    Height = 14
+    Top = 82
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Top = 6
@@ -71,8 +71,8 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 18
-    Top = 153
+    Height = 14
+    Top = 123
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Top = 6
@@ -86,8 +86,8 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 18
-    Top = 306
+    Height = 14
+    Top = 246
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Top = 6
@@ -99,9 +99,9 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideTop.Control = LCLWidgetTypeComboBox
     AnchorSideTop.Side = asrCenter
     Left = 0
-    Height = 18
-    Top = 361
-    Width = 134
+    Height = 14
+    Top = 290
+    Width = 101
     Caption = 'LCLWidgetTypeLabel'
     ParentColor = False
   end
@@ -112,8 +112,8 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 27
-    Top = 18
+    Height = 21
+    Top = 14
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Bottom = 6
@@ -127,8 +127,8 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 27
-    Top = 69
+    Height = 21
+    Top = 55
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Bottom = 6
@@ -142,12 +142,12 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 27
-    Top = 273
+    Height = 21
+    Top = 219
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Bottom = 6
-    TabOrder = 2
+    TabOrder = 5
     Text = 'OtherSourcesEdit'
   end
   object LibrariesEdit: TEdit[10]
@@ -157,12 +157,12 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 27
-    Top = 120
+    Height = 21
+    Top = 96
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Bottom = 6
-    TabOrder = 3
+    TabOrder = 2
     Text = 'LibrariesEdit'
   end
   object UnitOutputDirEdit: TEdit[11]
@@ -172,12 +172,12 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 27
-    Top = 171
+    Height = 21
+    Top = 137
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Bottom = 6
-    TabOrder = 4
+    TabOrder = 3
     Text = 'UnitOutputDirEdit'
   end
   object DebugPathEdit: TEdit[12]
@@ -187,12 +187,12 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 27
-    Top = 324
+    Height = 21
+    Top = 260
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Bottom = 6
-    TabOrder = 5
+    TabOrder = 6
     Text = 'DebugPathEdit'
   end
   object LCLWidgetTypeComboBox: TComboBox[13]
@@ -200,15 +200,15 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = DebugPathEdit
     AnchorSideTop.Side = asrBottom
-    Left = 140
-    Height = 27
-    Top = 357
+    Left = 107
+    Height = 21
+    Top = 287
     Width = 171
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
-    ItemHeight = 0
+    ItemHeight = 13
     Style = csDropDownList
-    TabOrder = 6
+    TabOrder = 7
   end
   object ProjTargetFileLabel: TLabel[14]
     AnchorSideLeft.Control = Owner
@@ -217,8 +217,8 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 18
-    Top = 204
+    Height = 14
+    Top = 164
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     Caption = 'ProjTargetFileLabel'
@@ -231,13 +231,13 @@ inherited CompilerPathOptionsFrame: TCompilerPathOptionsFrame
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
     Left = 0
-    Height = 27
-    Top = 222
+    Height = 21
+    Top = 178
     Width = 509
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Bottom = 6
     OnChange = ProjTargetFileEditChange
-    TabOrder = 7
+    TabOrder = 4
     Text = 'ProjTargetFileEdit'
   end
 end

ide/frames/compiler_path_options.pas

@@ -573,6 +573,7 @@ begin
     OnClick := @PathEditBtnClick;
     OnExecuted := @PathEditBtnExecuted;
     Parent := Self;
+    TabOrder:=1;
   end;
   OtherUnitsEdit.AnchorToNeighbour(akRight, 0, OtherUnitsPathEditBtn);
 
@@ -592,6 +593,7 @@ begin
     OnClick := @PathEditBtnClick;
     OnExecuted := @PathEditBtnExecuted;
     Parent := Self;
+    TabOrder:=3;
   end;
   IncludeFilesEdit.AnchorToNeighbour(akRight, 0, IncludeFilesPathEditBtn);
 
@@ -611,6 +613,7 @@ begin
     OnClick := @PathEditBtnClick;
     OnExecuted := @PathEditBtnExecuted;
     Parent := Self;
+    TabOrder:=8;
   end;
   OtherSourcesEdit.AnchorToNeighbour(akRight, 0, OtherSourcesPathEditBtn);
 
@@ -630,6 +633,7 @@ begin
     OnClick := @PathEditBtnClick;
     OnExecuted := @PathEditBtnExecuted;
     Parent := Self;
+    TabOrder:=5;
   end;
   LibrariesEdit.AnchorToNeighbour(akRight, 0, LibrariesPathEditBtn);
 
@@ -648,6 +652,7 @@ begin
     Caption := '...';
     OnClick := @FileBrowseBtnClick;
     Parent := Self;
+    TabOrder:=7;
   end;
   UnitOutputDirEdit.AnchorToNeighbour(akRight, 0, btnUnitOutputDir);
 
@@ -667,6 +672,7 @@ begin
     OnClick := @PathEditBtnClick;
     OnExecuted := @PathEditBtnExecuted;
     Parent := Self;
+    TabOrder:=12;
   end;
   DebugPathEdit.AnchorToNeighbour(akRight, 0, DebugPathEditBtn);