From 48f9c225700dfb0baf37ddbcb327eb957932600a Mon Sep 17 00:00:00 2001 From: juha Date: Sat, 4 Apr 2015 11:36:01 +0000 Subject: [PATCH] =?UTF-8?q?IDE:=20Improve=20layout=20of=20Toolbar=20config?= =?UTF-8?q?=20dialogs.=20Issue=20#27770,=20patch=20from=20Bal=C3=A1zs=20Sz?= =?UTF-8?q?=C3=A9kely.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: trunk@48619 - --- components/editortoolbar/edttbconfigfrm.lfm | 65 +++++++++++---------- ide/toolbarconfig.lfm | 47 ++++++++------- 2 files changed, 60 insertions(+), 52 deletions(-) diff --git a/components/editortoolbar/edttbconfigfrm.lfm b/components/editortoolbar/edttbconfigfrm.lfm index 2a60d986d5..215bc228ba 100644 --- a/components/editortoolbar/edttbconfigfrm.lfm +++ b/components/editortoolbar/edttbconfigfrm.lfm @@ -1,21 +1,24 @@ object EdtTbConfigForm: TEdtTbConfigForm - Left = 375 + Left = 676 Height = 457 - Top = 200 + Top = 302 Width = 772 Caption = 'EdtTbConfigForm' ClientHeight = 457 ClientWidth = 772 + Constraints.MinHeight = 375 + Constraints.MinWidth = 450 OnCreate = FormCreate OnDestroy = FormDestroy + Position = poScreenCenter LCLVersion = '1.5' object lblMenuTree: TLabel AnchorSideLeft.Control = TV AnchorSideLeft.Side = asrCenter - Left = 170 - Height = 17 + Left = 173 + Height = 15 Top = 14 - Width = 73 + Width = 67 Caption = 'lblMenuTree' ParentColor = False end @@ -23,10 +26,10 @@ object EdtTbConfigForm: TEdtTbConfigForm AnchorSideLeft.Control = lvToolbar AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = lblMenuTree - Left = 573 - Height = 17 + Left = 572 + Height = 15 Top = 14 - Width = 58 + Width = 54 Caption = 'lblToolbar' ParentColor = False end @@ -110,7 +113,7 @@ object EdtTbConfigForm: TEdtTbConfigForm AnchorSideRight.Control = btnCancel AnchorSideBottom.Control = pnlButtons AnchorSideBottom.Side = asrBottom - Left = 609 + Left = 597 Height = 25 Top = 11 Width = 75 @@ -132,10 +135,10 @@ object EdtTbConfigForm: TEdtTbConfigForm AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = pnlButtons AnchorSideBottom.Side = asrBottom - Left = 690 + Left = 678 Height = 25 Top = 11 - Width = 76 + Width = 88 Anchors = [akRight, akBottom] AutoSize = True BorderSpacing.Right = 6 @@ -173,7 +176,7 @@ object EdtTbConfigForm: TEdtTbConfigForm Width = 100 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 6 - ItemHeight = 17 + ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'All' @@ -191,10 +194,10 @@ object EdtTbConfigForm: TEdtTbConfigForm AnchorSideTop.Control = cbProfile AnchorSideTop.Side = asrCenter AnchorSideRight.Control = cbProfile - Left = 288 - Height = 17 - Top = 12 - Width = 38 + Left = 292 + Height = 15 + Top = 13 + Width = 34 Anchors = [akTop, akRight] BorderSpacing.Right = 10 Caption = 'Profile' @@ -215,6 +218,7 @@ object EdtTbConfigForm: TEdtTbConfigForm BorderSpacing.Top = 6 BorderSpacing.Right = 3 BorderSpacing.Bottom = 6 + DefaultItemHeight = 18 ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 1 @@ -243,13 +247,13 @@ object EdtTbConfigForm: TEdtTbConfigForm AnchorSideRight.Control = lvToolbar AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = pnlButtons - Left = 661 + Left = 655 Height = 23 Top = 386 Width = 100 Anchors = [akRight, akBottom] BorderSpacing.Bottom = 6 - ItemHeight = 17 + ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'Top' @@ -266,10 +270,10 @@ object EdtTbConfigForm: TEdtTbConfigForm AnchorSideTop.Control = cbPos AnchorSideTop.Side = asrCenter AnchorSideRight.Control = cbPos - Left = 620 - Height = 17 - Top = 389 - Width = 35 + Left = 617 + Height = 15 + Top = 390 + Width = 32 Anchors = [akTop, akRight] BorderSpacing.Right = 6 Caption = 'lblpos' @@ -296,15 +300,15 @@ object EdtTbConfigForm: TEdtTbConfigForm Left = 443 Height = 312 Top = 66 - Width = 318 - Anchors = [akTop, akLeft, akBottom] + Width = 312 + Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 6 BorderSpacing.Bottom = 37 Columns = < item AutoSize = True Caption = 'Name' - Width = 314 + Width = 308 end item AutoSize = True @@ -328,8 +332,9 @@ object EdtTbConfigForm: TEdtTbConfigForm AnchorSideTop.Side = asrBottom Left = 415 Height = 26 - Top = 272 + Top = 320 Width = 22 + Anchors = [akLeft, akBottom] BorderSpacing.Top = 50 OnClick = btnAddDividerClick ShowHint = True @@ -340,10 +345,10 @@ object EdtTbConfigForm: TEdtTbConfigForm AnchorSideTop.Control = FilterEdit AnchorSideRight.Control = lvToolbar AnchorSideRight.Side = asrBottom - Left = 715 - Height = 17 + Left = 714 + Height = 15 Top = 37 - Width = 46 + Width = 41 Anchors = [akTop, akRight] Caption = 'lbSelect' ParentColor = False @@ -356,7 +361,7 @@ object EdtTbConfigForm: TEdtTbConfigForm Left = 415 Height = 26 Top = 352 - Width = 23 + Width = 22 Anchors = [akLeft, akBottom] Enabled = False OnClick = btnClearClick diff --git a/ide/toolbarconfig.lfm b/ide/toolbarconfig.lfm index b65f8089f1..b16606f7a9 100644 --- a/ide/toolbarconfig.lfm +++ b/ide/toolbarconfig.lfm @@ -1,11 +1,13 @@ object ToolBarConfig: TToolBarConfig - Left = 713 + Left = 707 Height = 457 - Top = 329 - Width = 772 + Top = 263 + Width = 696 Caption = 'ToolBarConfig' ClientHeight = 457 - ClientWidth = 772 + ClientWidth = 696 + Constraints.MinHeight = 350 + Constraints.MinWidth = 500 OnCreate = FormCreate OnDestroy = FormDestroy Position = poScreenCenter @@ -13,7 +15,7 @@ object ToolBarConfig: TToolBarConfig object lblMenuTree: TLabel AnchorSideLeft.Control = TV AnchorSideLeft.Side = asrCenter - Left = 173 + Left = 153 Height = 15 Top = 14 Width = 67 @@ -24,7 +26,7 @@ object ToolBarConfig: TToolBarConfig AnchorSideLeft.Control = lvToolbar AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = lblMenuTree - Left = 575 + Left = 514 Height = 15 Top = 14 Width = 54 @@ -35,7 +37,7 @@ object ToolBarConfig: TToolBarConfig AnchorSideLeft.Control = btnAdd AnchorSideTop.Control = btnAdd AnchorSideTop.Side = asrBottom - Left = 415 + Left = 375 Height = 26 Top = 118 Width = 22 @@ -49,7 +51,7 @@ object ToolBarConfig: TToolBarConfig AnchorSideLeft.Control = Splitter1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = TV - Left = 415 + Left = 375 Height = 26 Top = 91 Width = 22 @@ -64,7 +66,7 @@ object ToolBarConfig: TToolBarConfig AnchorSideLeft.Control = btnRemove AnchorSideTop.Control = btnRemove AnchorSideTop.Side = asrBottom - Left = 415 + Left = 375 Height = 26 Top = 169 Width = 22 @@ -78,7 +80,7 @@ object ToolBarConfig: TToolBarConfig AnchorSideLeft.Control = btnMoveUp AnchorSideTop.Control = btnMoveUp AnchorSideTop.Side = asrBottom - Left = 415 + Left = 375 Height = 26 Top = 196 Width = 22 @@ -96,7 +98,7 @@ object ToolBarConfig: TToolBarConfig Left = 16 Height = 343 Top = 66 - Width = 381 + Width = 341 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 6 BorderSpacing.Right = 3 @@ -130,7 +132,7 @@ object ToolBarConfig: TToolBarConfig AnchorSideTop.Control = TV AnchorSideBottom.Control = TV AnchorSideBottom.Side = asrBottom - Left = 400 + Left = 360 Height = 343 Top = 66 Width = 9 @@ -141,18 +143,18 @@ object ToolBarConfig: TToolBarConfig AnchorSideLeft.Control = btnAdd AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = TV - Left = 443 + Left = 403 Height = 343 Top = 66 - Width = 318 - Anchors = [akTop, akLeft, akBottom] + Width = 277 + Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 6 BorderSpacing.Bottom = 37 Columns = < item AutoSize = True Caption = 'Name' - Width = 314 + Width = 253 end> HideSelection = False ReadOnly = True @@ -167,10 +169,11 @@ object ToolBarConfig: TToolBarConfig AnchorSideLeft.Control = btnAdd AnchorSideTop.Control = btnMoveDown AnchorSideTop.Side = asrBottom - Left = 415 + Left = 375 Height = 26 - Top = 272 + Top = 352 Width = 22 + Anchors = [akLeft, akBottom] BorderSpacing.Top = 50 OnClick = btnAddDividerClick ShowHint = True @@ -181,7 +184,7 @@ object ToolBarConfig: TToolBarConfig AnchorSideTop.Control = FilterEdit AnchorSideRight.Control = lvToolbar AnchorSideRight.Side = asrBottom - Left = 720 + Left = 639 Height = 15 Top = 37 Width = 41 @@ -194,10 +197,10 @@ object ToolBarConfig: TToolBarConfig AnchorSideLeft.Control = btnAdd AnchorSideBottom.Control = lvToolbar AnchorSideBottom.Side = asrBottom - Left = 415 + Left = 375 Height = 26 Top = 383 - Width = 23 + Width = 22 Anchors = [akLeft, akBottom] Enabled = False OnClick = btnClearClick @@ -208,7 +211,7 @@ object ToolBarConfig: TToolBarConfig Left = 6 Height = 34 Top = 417 - Width = 760 + Width = 684 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton'