From 4c5a14004b46ec93ae30b4df59418a2de921c7af Mon Sep 17 00:00:00 2001 From: juha Date: Sun, 28 Jun 2015 12:27:56 +0000 Subject: [PATCH] IDE: Fix TabOrder in FormEditor options. Issue #28346, patch from Alexey Torgashin. git-svn-id: trunk@49462 - --- ide/frames/formed_options.lfm | 150 +++++++++++++++++----------------- 1 file changed, 75 insertions(+), 75 deletions(-) diff --git a/ide/frames/formed_options.lfm b/ide/frames/formed_options.lfm index 5d963a9f1c..d0ec1f7f49 100644 --- a/ide/frames/formed_options.lfm +++ b/ide/frames/formed_options.lfm @@ -17,24 +17,24 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 232 - Height = 183 + Height = 153 Top = 0 Width = 537 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 6 Caption = 'GridGroupBox' - ClientHeight = 158 + ClientHeight = 133 ClientWidth = 533 - TabOrder = 0 + TabOrder = 1 object GridSizeXLabel: TLabel AnchorSideLeft.Control = GridGroupBox AnchorSideTop.Control = GridSizeXSpinEdit AnchorSideTop.Side = asrCenter Left = 6 - Height = 20 - Top = 94 - Width = 100 + Height = 15 + Top = 79 + Width = 77 BorderSpacing.Around = 6 Caption = 'GridSizeXLabel' ParentColor = False @@ -44,9 +44,9 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideTop.Control = GridSizeYSpinEdit AnchorSideTop.Side = asrCenter Left = 6 - Height = 20 - Top = 128 - Width = 99 + Height = 15 + Top = 108 + Width = 77 BorderSpacing.Around = 6 Caption = 'GridSizeYLabel' ParentColor = False @@ -58,24 +58,24 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = GridGroupBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 24 - Top = 60 - Width = 166 + Height = 19 + Top = 50 + Width = 134 BorderSpacing.Left = 6 BorderSpacing.Top = 3 BorderSpacing.Right = 6 Caption = 'SnapToGridCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 1 + TabOrder = 2 end object ShowGridCheckBox: TCheckBox AnchorSideLeft.Control = GridGroupBox AnchorSideTop.Control = GridGroupBox Left = 6 - Height = 24 + Height = 19 Top = 6 - Width = 152 + Width = 123 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'ShowGridCheckBox' @@ -88,24 +88,24 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideTop.Control = ShowGridCheckBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 24 - Top = 33 - Width = 209 + Height = 19 + Top = 28 + Width = 167 BorderSpacing.Left = 6 BorderSpacing.Top = 3 Caption = 'ShowBorderSpaceCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 2 + TabOrder = 1 end object GridSizeXSpinEdit: TSpinEdit AnchorSideLeft.Control = GridSizeXLabel AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SnapToGridCheckBox AnchorSideTop.Side = asrBottom - Left = 112 - Height = 28 - Top = 90 + Left = 89 + Height = 23 + Top = 75 Width = 64 BorderSpacing.Around = 6 MaxValue = 128 @@ -120,9 +120,9 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GridSizeXSpinEdit AnchorSideTop.Side = asrBottom - Left = 111 - Height = 28 - Top = 124 + Left = 89 + Height = 23 + Top = 104 Width = 64 BorderSpacing.Around = 6 MaxValue = 128 @@ -142,16 +142,16 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 0 - Height = 250 - Top = 283 + Height = 205 + Top = 238 Width = 769 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 6 Caption = 'FormEditMiscGroupBox' - ClientHeight = 225 + ClientHeight = 185 ClientWidth = 765 - TabOrder = 1 + TabOrder = 3 object ShowComponentCaptionsCheckBox: TCheckBox AnchorSideLeft.Control = FormEditMiscGroupBox AnchorSideTop.Control = RubberbandSelectsGrandChildsCheckBox @@ -159,16 +159,16 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 24 - Top = 33 - Width = 260 + Height = 19 + Top = 28 + Width = 212 BorderSpacing.Left = 6 BorderSpacing.Top = 3 BorderSpacing.Right = 6 Caption = 'ShowComponentCaptionsCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 0 + TabOrder = 1 end object ShowEditorHintsCheckBox: TCheckBox AnchorSideLeft.Control = FormEditMiscGroupBox @@ -177,16 +177,16 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 24 - Top = 60 - Width = 198 + Height = 19 + Top = 50 + Width = 160 BorderSpacing.Left = 6 BorderSpacing.Top = 3 BorderSpacing.Right = 6 Caption = 'ShowEditorHintsCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 1 + TabOrder = 2 end object OpenDesignerOnOpenUnitCheckBox: TCheckBox AnchorSideLeft.Control = FormEditMiscGroupBox @@ -195,16 +195,16 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 24 - Top = 87 - Width = 265 + Height = 19 + Top = 72 + Width = 214 BorderSpacing.Left = 6 BorderSpacing.Top = 3 BorderSpacing.Right = 6 Caption = 'OpenDesignerOnOpenUnitCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 2 + TabOrder = 3 end object RightClickSelectsCheckBox: TCheckBox AnchorSideLeft.Control = FormEditMiscGroupBox @@ -213,15 +213,15 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 24 - Top = 114 - Width = 200 + Height = 19 + Top = 94 + Width = 162 BorderSpacing.Left = 6 BorderSpacing.Top = 3 Caption = 'RightClickSelectsCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 3 + TabOrder = 4 end object DesignerPaintLazyCheckBox: TCheckBox AnchorSideLeft.Control = FormEditMiscGroupBox @@ -230,24 +230,24 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 24 - Top = 141 - Width = 209 + Height = 19 + Top = 116 + Width = 168 BorderSpacing.Left = 6 BorderSpacing.Top = 3 Caption = 'DesignerPaintLazyCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 4 + TabOrder = 5 end object CreateCompFocusNameCheckBox: TCheckBox AnchorSideLeft.Control = FormEditMiscGroupBox AnchorSideTop.Control = DesignerPaintLazyCheckBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 24 - Top = 168 - Width = 248 + Height = 19 + Top = 138 + Width = 202 BorderSpacing.Left = 6 BorderSpacing.Top = 3 BorderSpacing.Bottom = 3 @@ -255,7 +255,7 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame OnChange = CreateCompFocusNameCheckBoxChange ParentShowHint = False ShowHint = True - TabOrder = 5 + TabOrder = 6 end object RubberbandSelectsGrandChildsCheckBox: TCheckBox AnchorSideLeft.Control = FormEditMiscGroupBox @@ -263,7 +263,7 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = FormEditMiscGroupBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 24 + Height = 19 Top = 6 Width = 759 Anchors = [akTop, akLeft, akRight] @@ -272,38 +272,38 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame Caption = 'RubberbandSelectsGrandChildsCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 6 + TabOrder = 0 end object CheckPackagesOnFormCreateCheckBox: TCheckBox AnchorSideLeft.Control = FormEditMiscGroupBox AnchorSideTop.Control = SwitchToFavoritesOITabCheckBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 24 - Top = 195 - Width = 284 + Height = 19 + Top = 160 + Width = 232 BorderSpacing.Left = 6 BorderSpacing.Top = 3 BorderSpacing.Bottom = 6 Caption = 'CheckPackagesOnFormCreateCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 7 + TabOrder = 8 end object SwitchToFavoritesOITabCheckBox: TCheckBox AnchorSideLeft.Control = CreateCompFocusNameCheckBox AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CreateCompFocusNameCheckBox AnchorSideTop.Side = asrCenter - Left = 274 - Height = 24 - Top = 168 - Width = 247 + Left = 228 + Height = 19 + Top = 138 + Width = 200 BorderSpacing.Left = 20 Caption = 'SwitchToFavoritesOITabCheckBox' ParentShowHint = False ShowHint = True - TabOrder = 8 + TabOrder = 7 end end object GuideLinesGroupBox: TGroupBox @@ -315,15 +315,15 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 232 - Height = 88 - Top = 189 + Height = 73 + Top = 159 Width = 537 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'GuideLinesGroupBox' - ClientHeight = 63 + ClientHeight = 53 ClientWidth = 533 TabOrder = 2 object ShowGuideLinesCheckBox: TCheckBox @@ -331,7 +331,7 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = GuideLinesGroupBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 24 + Height = 19 Top = 6 Width = 521 Anchors = [akTop, akLeft, akRight] @@ -350,8 +350,8 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideRight.Control = GuideLinesGroupBox AnchorSideRight.Side = asrBottom Left = 6 - Height = 24 - Top = 33 + Height = 19 + Top = 28 Width = 521 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 6 @@ -372,20 +372,20 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideBottom.Control = GuideLinesGroupBox AnchorSideBottom.Side = asrBottom Left = 0 - Height = 277 + Height = 232 Top = 0 Width = 226 Anchors = [akTop, akLeft, akBottom] Caption = 'DesignerColorsGroupBox' - ClientHeight = 252 + ClientHeight = 212 ClientWidth = 222 - TabOrder = 3 + TabOrder = 0 object ColorsListBox: TColorListBox AnchorSideLeft.Control = DesignerColorsGroupBox AnchorSideTop.Control = DesignerColorsGroupBox AnchorSideBottom.Control = ColorBox Left = 6 - Height = 212 + Height = 172 Top = 6 Width = 210 Style = [cbCustomColors] @@ -406,7 +406,7 @@ object FormEditorOptionsFrame: TFormEditorOptionsFrame AnchorSideBottom.Side = asrBottom Left = 6 Height = 22 - Top = 224 + Top = 184 Width = 210 Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] Anchors = [akLeft, akBottom]