paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 09:07:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improved and enabled hints for "store in session" checkboxes in value converters and value formatters debugger options frames

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-02-12 18:27:26 +03:00
parent d818b67429
commit ff0592d20d
3 changed files with 131 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
ide/frames/project_valconv_options.lfm
View File

@ -9,51 +9,85 @@ object IdeProjectValConvOptionsFrame: TIdeProjectValConvOptionsFrame
DesignLeft = 471 DesignLeft = 471
DesignTop = 200 DesignTop = 200
inline DbgValConvFrame1: TIdeDbgValConvFrame inline DbgValConvFrame1: TIdeDbgValConvFrame
Height = 300 Height = 291
Top = 71 Top = 80
Width = 510 Width = 510
Align = alClient Align = alClient
ClientHeight = 300 ClientHeight = 291
ClientWidth = 510 ClientWidth = 510
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 510 Width = 510
ClientWidth = 510 ClientWidth = 510
inherited lstConverters: TCheckListBox inherited lstConverters: TCheckListBox
Width = 330 Width = 330
TopIndex = -1
end end
inherited Panel2: TPanel inherited Panel2: TPanel
Left = 340 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
end end
inherited pnlCurrentConv: TPanel inherited pnlCurrentConv: TPanel
Height = 143 Height = 133
Width = 510 Width = 510
ClientHeight = 143 ClientHeight = 133
ClientWidth = 510 ClientWidth = 510
inherited Panel4: TPanel inherited Panel4: TPanel
Left = 340 Left = 340
Height = 123 Height = 112
ClientHeight = 123 Top = 21
ClientHeight = 112
inherited lblAction: TLabel
Height = 16
end
inherited dropAction: TComboBox
Height = 32
Top = 26
ItemHeight = 0
end
end end
inherited lblDesc: TLabel inherited lblDesc: TLabel
Height = 16
Width = 500 Width = 500
end end
inherited Panel5: TPanel inherited Panel5: TPanel
Height = 123 Height = 112
Top = 21
Width = 340 Width = 340
ClientHeight = 123 ClientHeight = 112
ClientWidth = 340 ClientWidth = 340
inherited lblName: TLabel inherited lblName: TLabel
Height = 16
Width = 330 Width = 330
end end
inherited EdName: TEdit inherited EdName: TEdit
Height = 33
Top = 26
Width = 330 Width = 330
end end
inherited lblTypeNames: TLabel inherited lblTypeNames: TLabel
Height = 16
Top = 64
Width = 330 Width = 330
end end
inherited memoTypeNames: TMemo inherited memoTypeNames: TMemo
Height = 45 Height = 33
Top = 85
Width = 330 Width = 330
end end
end end
@ -62,13 +96,14 @@ object IdeProjectValConvOptionsFrame: TIdeProjectValConvOptionsFrame
Width = 510 Width = 510
end end
inherited pnlCurConvSetting: TPanel inherited pnlCurConvSetting: TPanel
Top = 300 Height = 1
Top = 290
Width = 510 Width = 510
end end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 56 Height = 64
Top = 0 Top = 0
Width = 510 Width = 510
Align = alTop Align = alTop
@ -82,38 +117,40 @@ object IdeProjectValConvOptionsFrame: TIdeProjectValConvOptionsFrame
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 56 ClientHeight = 64
ClientWidth = 510 ClientWidth = 510
TabOrder = 1 TabOrder = 1
object chkUseProjList: TCheckBox object chkUseProjList: TCheckBox
Left = 6 Left = 6
Height = 19 Height = 23
Top = 6 Top = 6
Width = 249 Width = 250
Caption = 'chkUseProjList' Caption = 'chkUseProjList'
TabOrder = 0 TabOrder = 0
end end
object chkUseGlobalList: TCheckBox object chkUseGlobalList: TCheckBox
Left = 261 Left = 262
Height = 19 Height = 23
Top = 6 Top = 6
Width = 243 Width = 242
Caption = 'chkUseGlobalList' Caption = 'chkUseGlobalList'
TabOrder = 1 TabOrder = 1
end end
object chkStoreInSession: TCheckBox object chkStoreInSession: TCheckBox
Left = 6 Left = 6
Height = 19 Height = 23
Top = 31 Top = 35
Width = 249 Width = 250
Caption = 'chkStoreInSession' Caption = 'chkStoreInSession'
ParentShowHint = False
ShowHint = True
TabOrder = 2 TabOrder = 2
end end
end end
object DividerBevel1: TDividerBevel object DividerBevel1: TDividerBevel
Left = 0 Left = 0
Height = 15 Height = 16
Top = 56 Top = 64
Width = 510 Width = 510
Align = alTop Align = alTop
Font.Style = [fsBold] Font.Style = [fsBold]

94
ide/frames/project_valformatter_options.lfm
View File

@ -10,7 +10,7 @@ object IdeProjectValueFormatterOptionsFrame: TIdeProjectValueFormatterOptionsFra
DesignTop = 120 DesignTop = 120
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 56 Height = 64
Top = 0 Top = 0
Width = 412 Width = 412
Align = alTop Align = alTop
@ -24,49 +24,51 @@ object IdeProjectValueFormatterOptionsFrame: TIdeProjectValueFormatterOptionsFra
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 56 ClientHeight = 64
ClientWidth = 412 ClientWidth = 412
TabOrder = 0 TabOrder = 0
object chkUseProjList: TCheckBox object chkUseProjList: TCheckBox
Left = 6 Left = 6
Height = 19 Height = 23
Top = 6 Top = 6
Width = 200 Width = 201
Caption = 'chkUseProjList' Caption = 'chkUseProjList'
TabOrder = 0 TabOrder = 0
end end
object chkUseGlobalList: TCheckBox object chkUseGlobalList: TCheckBox
Left = 212 Left = 213
Height = 19 Height = 23
Top = 6 Top = 6
Width = 194 Width = 193
Caption = 'chkUseGlobalList' Caption = 'chkUseGlobalList'
TabOrder = 1 TabOrder = 1
end end
object chkStoreInSession: TCheckBox object chkStoreInSession: TCheckBox
Left = 6 Left = 6
Height = 19 Height = 23
Top = 31 Top = 35
Width = 200 Width = 201
Caption = 'chkStoreInSession' Caption = 'chkStoreInSession'
ParentShowHint = False
ShowHint = True
TabOrder = 2 TabOrder = 2
end end
end end
object DividerBevel1: TDividerBevel object DividerBevel1: TDividerBevel
Left = 0 Left = 0
Height = 15 Height = 16
Top = 56 Top = 64
Width = 412 Width = 412
Align = alTop Align = alTop
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
inline IdeDbgVarFormatterFrame1: TIdeDbgVarFormatterFrame inline IdeDbgVarFormatterFrame1: TIdeDbgVarFormatterFrame
Height = 256 Height = 247
Top = 71 Top = 80
Width = 412 Width = 412
Align = alClient Align = alClient
ClientHeight = 256 ClientHeight = 247
ClientWidth = 412 ClientWidth = 412
TabOrder = 1 TabOrder = 1
inherited Panel1: TPanel inherited Panel1: TPanel
@ -74,9 +76,30 @@ object IdeProjectValueFormatterOptionsFrame: TIdeProjectValueFormatterOptionsFra
ClientWidth = 412 ClientWidth = 412
inherited lstFormatters: TCheckListBox inherited lstFormatters: TCheckListBox
Width = 232 Width = 232
TopIndex = -1
end end
inherited Panel2: TPanel inherited Panel2: TPanel
Left = 242 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
end end
inherited pnlCurrentFormatter: TPanel inherited pnlCurrentFormatter: TPanel
@ -85,33 +108,54 @@ object IdeProjectValueFormatterOptionsFrame: TIdeProjectValueFormatterOptionsFra
ClientHeight = 120 ClientHeight = 120
ClientWidth = 412 ClientWidth = 412
inherited lblDesc: TLabel inherited lblDesc: TLabel
Height = 16
Width = 402 Width = 402
end end
inherited Panel5: TPanel inherited Panel5: TPanel
Height = 100 Height = 99
Width = 412 Top = 21
ClientHeight = 100 Width = 166
ClientWidth = 412 ClientHeight = 99
ClientWidth = 166
inherited lblName: TLabel inherited lblName: TLabel
Width = 402 Height = 16
Width = 156
end end
inherited EdName: TEdit inherited EdName: TEdit
Width = 402 Height = 33
Top = 26
Width = 156
end end
inherited lblTypeNames: TLabel inherited lblTypeNames: TLabel
Width = 402 Height = 16
Top = 64
Width = 156
end end
inherited memoTypeNames: TMemo inherited memoTypeNames: TMemo
Height = 22 Height = 33
Width = 402 Top = 82
Width = 156
end 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
end end
inherited Splitter1: TSplitter inherited Splitter1: TSplitter
Width = 412 Width = 412
end end
inherited pnlCurFormatterSetting: TPanel inherited pnlCurFormatterSetting: TPanel
Top = 256 Height = 1
Top = 246
Width = 412 Width = 412
end end
end end

4
ide/lazarusidestrconsts.pas
View File

@ -6366,12 +6366,12 @@ resourcestring
+'. The project specific backends (below) are by default stored in the LPI.'; +'. The project specific backends (below) are by default stored in the LPI.';
drsStoreConverterConfigInSes = 'Store converter config in session'; drsStoreConverterConfigInSes = 'Store converter config in session';
drsThisOnlyAffectsTheListOfC = 'This only affects the list of converters ' 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'; drsUseTheIDEGlobalListOfConv = 'Use the IDE-Global list of converters';
drsUseTheProjectListOfConver = 'Use the project list of converters'; drsUseTheProjectListOfConver = 'Use the project list of converters';
drsStoreFormatterConfigInSes = 'Store formatter config in session'; drsStoreFormatterConfigInSes = 'Store formatter config in session';
drsThisOnlyAffectsTheListOfFormatter = 'This only affects the list of formatters ' 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'; drsUseTheIDEGlobalListOfFormatter = 'Use the IDE-Global list of formatters';
drsUseTheProjectListOfFormatter = 'Use the project list of formatters'; drsUseTheProjectListOfFormatter = 'Use the project list of formatters';