From ff0592d20dc84eddb865c24d553e1aa50aa2f04c Mon Sep 17 00:00:00 2001 From: Maxim Ganetsky Date: Mon, 12 Feb 2024 18:27:26 +0300 Subject: [PATCH] IDE: improved and enabled hints for "store in session" checkboxes in value converters and value formatters debugger options frames --- ide/frames/project_valconv_options.lfm | 83 +++++++++++++----- ide/frames/project_valformatter_options.lfm | 94 +++++++++++++++------ ide/lazarusidestrconsts.pas | 4 +- 3 files changed, 131 insertions(+), 50 deletions(-) diff --git a/ide/frames/project_valconv_options.lfm b/ide/frames/project_valconv_options.lfm index ab7cb34312..d9392f748d 100644 --- a/ide/frames/project_valconv_options.lfm +++ b/ide/frames/project_valconv_options.lfm @@ -9,51 +9,85 @@ object IdeProjectValConvOptionsFrame: TIdeProjectValConvOptionsFrame DesignLeft = 471 DesignTop = 200 inline DbgValConvFrame1: TIdeDbgValConvFrame - Height = 300 - Top = 71 + Height = 291 + Top = 80 Width = 510 Align = alClient - ClientHeight = 300 + ClientHeight = 291 ClientWidth = 510 inherited Panel1: TPanel Width = 510 ClientWidth = 510 inherited lstConverters: TCheckListBox Width = 330 + TopIndex = -1 end inherited Panel2: TPanel Left = 340 + inherited btnAdd: TButton + Height = 32 + end + inherited btnRemove: TButton + Height = 32 + Top = 42 + end + inherited btnUp: TButton + Height = 32 + Top = 86 + OnClick = nil + end + inherited btnDown: TButton + Height = 32 + Top = 123 + end end end inherited pnlCurrentConv: TPanel - Height = 143 + Height = 133 Width = 510 - ClientHeight = 143 + ClientHeight = 133 ClientWidth = 510 inherited Panel4: TPanel Left = 340 - Height = 123 - ClientHeight = 123 + Height = 112 + Top = 21 + ClientHeight = 112 + inherited lblAction: TLabel + Height = 16 + end + inherited dropAction: TComboBox + Height = 32 + Top = 26 + ItemHeight = 0 + end end inherited lblDesc: TLabel + Height = 16 Width = 500 end inherited Panel5: TPanel - Height = 123 + Height = 112 + Top = 21 Width = 340 - ClientHeight = 123 + ClientHeight = 112 ClientWidth = 340 inherited lblName: TLabel + Height = 16 Width = 330 end inherited EdName: TEdit + Height = 33 + Top = 26 Width = 330 end inherited lblTypeNames: TLabel + Height = 16 + Top = 64 Width = 330 end inherited memoTypeNames: TMemo - Height = 45 + Height = 33 + Top = 85 Width = 330 end end @@ -62,13 +96,14 @@ object IdeProjectValConvOptionsFrame: TIdeProjectValConvOptionsFrame Width = 510 end inherited pnlCurConvSetting: TPanel - Top = 300 + Height = 1 + Top = 290 Width = 510 end end object Panel1: TPanel Left = 0 - Height = 56 + Height = 64 Top = 0 Width = 510 Align = alTop @@ -82,38 +117,40 @@ object IdeProjectValConvOptionsFrame: TIdeProjectValConvOptionsFrame ChildSizing.ShrinkHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 - ClientHeight = 56 + ClientHeight = 64 ClientWidth = 510 TabOrder = 1 object chkUseProjList: TCheckBox Left = 6 - Height = 19 + Height = 23 Top = 6 - Width = 249 + Width = 250 Caption = 'chkUseProjList' TabOrder = 0 end object chkUseGlobalList: TCheckBox - Left = 261 - Height = 19 + Left = 262 + Height = 23 Top = 6 - Width = 243 + Width = 242 Caption = 'chkUseGlobalList' TabOrder = 1 end object chkStoreInSession: TCheckBox Left = 6 - Height = 19 - Top = 31 - Width = 249 + Height = 23 + Top = 35 + Width = 250 Caption = 'chkStoreInSession' + ParentShowHint = False + ShowHint = True TabOrder = 2 end end object DividerBevel1: TDividerBevel Left = 0 - Height = 15 - Top = 56 + Height = 16 + Top = 64 Width = 510 Align = alTop Font.Style = [fsBold] diff --git a/ide/frames/project_valformatter_options.lfm b/ide/frames/project_valformatter_options.lfm index 231dd92b74..c2a58de56b 100644 --- a/ide/frames/project_valformatter_options.lfm +++ b/ide/frames/project_valformatter_options.lfm @@ -10,7 +10,7 @@ object IdeProjectValueFormatterOptionsFrame: TIdeProjectValueFormatterOptionsFra DesignTop = 120 object Panel1: TPanel Left = 0 - Height = 56 + Height = 64 Top = 0 Width = 412 Align = alTop @@ -24,49 +24,51 @@ object IdeProjectValueFormatterOptionsFrame: TIdeProjectValueFormatterOptionsFra ChildSizing.ShrinkHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 - ClientHeight = 56 + ClientHeight = 64 ClientWidth = 412 TabOrder = 0 object chkUseProjList: TCheckBox Left = 6 - Height = 19 + Height = 23 Top = 6 - Width = 200 + Width = 201 Caption = 'chkUseProjList' TabOrder = 0 end object chkUseGlobalList: TCheckBox - Left = 212 - Height = 19 + Left = 213 + Height = 23 Top = 6 - Width = 194 + Width = 193 Caption = 'chkUseGlobalList' TabOrder = 1 end object chkStoreInSession: TCheckBox Left = 6 - Height = 19 - Top = 31 - Width = 200 + Height = 23 + Top = 35 + Width = 201 Caption = 'chkStoreInSession' + ParentShowHint = False + ShowHint = True TabOrder = 2 end end object DividerBevel1: TDividerBevel Left = 0 - Height = 15 - Top = 56 + Height = 16 + Top = 64 Width = 412 Align = alTop Font.Style = [fsBold] ParentFont = False end inline IdeDbgVarFormatterFrame1: TIdeDbgVarFormatterFrame - Height = 256 - Top = 71 + Height = 247 + Top = 80 Width = 412 Align = alClient - ClientHeight = 256 + ClientHeight = 247 ClientWidth = 412 TabOrder = 1 inherited Panel1: TPanel @@ -74,9 +76,30 @@ object IdeProjectValueFormatterOptionsFrame: TIdeProjectValueFormatterOptionsFra ClientWidth = 412 inherited lstFormatters: TCheckListBox Width = 232 + TopIndex = -1 end inherited Panel2: TPanel Left = 242 + inherited dropAction: TComboBox + Height = 32 + ItemHeight = 0 + end + inherited btnAdd: TButton + Height = 32 + Top = 42 + end + inherited btnRemove: TButton + Height = 32 + Top = 79 + end + inherited btnUp: TButton + Height = 32 + Top = 123 + end + inherited btnDown: TButton + Height = 32 + Top = 160 + end end end inherited pnlCurrentFormatter: TPanel @@ -85,33 +108,54 @@ object IdeProjectValueFormatterOptionsFrame: TIdeProjectValueFormatterOptionsFra ClientHeight = 120 ClientWidth = 412 inherited lblDesc: TLabel + Height = 16 Width = 402 end inherited Panel5: TPanel - Height = 100 - Width = 412 - ClientHeight = 100 - ClientWidth = 412 + Height = 99 + Top = 21 + Width = 166 + ClientHeight = 99 + ClientWidth = 166 inherited lblName: TLabel - Width = 402 + Height = 16 + Width = 156 end inherited EdName: TEdit - Width = 402 + Height = 33 + Top = 26 + Width = 156 end inherited lblTypeNames: TLabel - Width = 402 + Height = 16 + Top = 64 + Width = 156 end inherited memoTypeNames: TMemo - Height = 22 - Width = 402 + Height = 33 + Top = 82 + Width = 156 end + inherited cbAppendOriginalValue: TComboBox + Height = 32 + Top = 61 + Width = 154 + ItemHeight = 0 + end + end + inherited clDisplayFormat: TCheckListBox + Left = 166 + Height = 99 + Top = 21 + TopIndex = -1 end end inherited Splitter1: TSplitter Width = 412 end inherited pnlCurFormatterSetting: TPanel - Top = 256 + Height = 1 + Top = 246 Width = 412 end end diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index fed570b5ee..fa0bdcb678 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -6366,12 +6366,12 @@ resourcestring +'. The project specific backends (below) are by default stored in the LPI.'; drsStoreConverterConfigInSes = 'Store converter config in session'; drsThisOnlyAffectsTheListOfC = 'This only affects the list of converters ' - +'below. The options setting which list to use are always stored in the session.'; + +'below. The settings which list to use are always stored in the session.'; drsUseTheIDEGlobalListOfConv = 'Use the IDE-Global list of converters'; drsUseTheProjectListOfConver = 'Use the project list of converters'; drsStoreFormatterConfigInSes = 'Store formatter config in session'; drsThisOnlyAffectsTheListOfFormatter = 'This only affects the list of formatters ' - +'below. The options setting which list to use are always stored in the session.'; + +'below. The settings which list to use are always stored in the session.'; drsUseTheIDEGlobalListOfFormatter = 'Use the IDE-Global list of formatters'; drsUseTheProjectListOfFormatter = 'Use the project list of formatters';