paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 17:40:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Exchange "max recent files" and "max recent project files" edit boxes in file options dialog for more consistent GUI with MRU drop-down menu

Browse Source
This commit is contained in:
wp_xyz 2024-12-30 16:51:00 +01:00
parent 0f2d6ec40d
commit c5114207c7
1 changed files with 102 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

204
ide/frames/files_options.lfm
View File

@ -12,48 +12,48 @@ object FilesOptionsFrame: TFilesOptionsFrame
DesignLeft = 395 DesignLeft = 395
DesignTop = 121 DesignTop = 121
object MaxRecentOpenFilesLabel: TLabel object MaxRecentOpenFilesLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = MaxRecentOpenFilesSpin
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 2 Left = 317
Height = 18 Height = 15
Top = 2 Top = 2
Width = 161 Width = 138
Caption = 'MaxRecentOpenFilesLabel' Caption = 'MaxRecentOpenFilesLabel'
ParentColor = False ParentColor = False
end end
object MaxRecentProjectFilesLabel: TLabel object MaxRecentProjectFilesLabel: TLabel
AnchorSideLeft.Control = lblCenter AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 314 Left = 3
Height = 18 Height = 15
Top = 2 Top = 2
Width = 170 Width = 146
BorderSpacing.Left = 3 BorderSpacing.Left = 3
Caption = 'MaxRecentProjectFilesLabel' Caption = 'MaxRecentProjectFilesLabel'
ParentColor = False ParentColor = False
end end
object ShowCompileDialogCheckBox: TCheckBox object ShowCompileDialogCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MaxRecentOpenFilesSpin AnchorSideTop.Control = MaxRecentProjectFilesSpin
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 2 Left = 2
Height = 22 Height = 19
Top = 65 Top = 53
Width = 211 Width = 178
BorderSpacing.Top = 11 BorderSpacing.Top = 11
Caption = 'ShowCompileDialogCheckBox' Caption = 'ShowCompileDialogCheckBox'
OnChange = ShowCompileDialogCheckBoxChange
TabOrder = 2 TabOrder = 2
OnChange = ShowCompileDialogCheckBoxChange
end end
object LazarusDirLabel: TLabel object LazarusDirLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = AutoCloseCompileDialogCheckBox AnchorSideTop.Control = AutoCloseCompileDialogCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 2 Left = 2
Height = 18 Height = 15
Top = 119 Top = 101
Width = 98 Width = 82
BorderSpacing.Top = 10 BorderSpacing.Top = 10
Caption = 'LazarusDirLabel' Caption = 'LazarusDirLabel'
ParentColor = False ParentColor = False
@ -68,15 +68,15 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = LazarusDirComboBox AnchorSideBottom.Control = LazarusDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 597 Left = 597
Height = 32 Height = 23
Top = 137 Top = 116
Width = 23 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
OnClick = DirectoriesButtonClick
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 5 TabOrder = 5
OnClick = DirectoriesButtonClick
end end
object LazarusDirComboBox: TComboBox object LazarusDirComboBox: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -84,11 +84,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LazarusDirButton AnchorSideRight.Control = LazarusDirButton
Left = 2 Left = 2
Height = 32 Height = 23
Top = 137 Top = 116
Width = 595 Width = 595
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 24 ItemHeight = 15
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 4 TabOrder = 4
@ -100,11 +100,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CompilerPathButton AnchorSideRight.Control = CompilerPathButton
Left = 2 Left = 2
Height = 32 Height = 23
Top = 193 Top = 160
Width = 595 Width = 595
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 24 ItemHeight = 15
TabOrder = 6 TabOrder = 6
Text = 'CompilerPathComboBox' Text = 'CompilerPathComboBox'
end end
@ -115,22 +115,22 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = CompilerPathComboBox AnchorSideBottom.Control = CompilerPathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 597 Left = 597
Height = 32 Height = 23
Top = 193 Top = 160
Width = 23 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
OnClick = FilesButtonClick
TabOrder = 7 TabOrder = 7
OnClick = FilesButtonClick
end end
object CompilerPathLabel: TLabel object CompilerPathLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = LazarusDirComboBox AnchorSideTop.Control = LazarusDirComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 2 Left = 2
Height = 18 Height = 15
Top = 175 Top = 145
Width = 117 Width = 101
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CompilerPathLabel' Caption = 'CompilerPathLabel'
ParentColor = False ParentColor = False
@ -141,11 +141,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FPCSourceDirButton AnchorSideRight.Control = FPCSourceDirButton
Left = 2 Left = 2
Height = 32 Height = 23
Top = 249 Top = 204
Width = 595 Width = 595
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 24 ItemHeight = 15
TabOrder = 8 TabOrder = 8
Text = 'FPCSourceDirComboBox' Text = 'FPCSourceDirComboBox'
end end
@ -156,22 +156,22 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = FPCSourceDirComboBox AnchorSideBottom.Control = FPCSourceDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 597 Left = 597
Height = 32 Height = 23
Top = 249 Top = 204
Width = 23 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
OnClick = DirectoriesButtonClick
TabOrder = 9 TabOrder = 9
OnClick = DirectoriesButtonClick
end end
object FPCSourceDirLabel: TLabel object FPCSourceDirLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CompilerPathComboBox AnchorSideTop.Control = CompilerPathComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 2 Left = 2
Height = 18 Height = 15
Top = 231 Top = 189
Width = 116 Width = 100
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'FPCSourceDirLabel' Caption = 'FPCSourceDirLabel'
ParentColor = False ParentColor = False
@ -181,9 +181,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = FPCSourceDirComboBox AnchorSideTop.Control = FPCSourceDirComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 2 Left = 2
Height = 18 Height = 15
Top = 287 Top = 233
Width = 94 Width = 81
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'MakePathLabel' Caption = 'MakePathLabel'
ParentColor = False ParentColor = False
@ -193,9 +193,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = MakePathComboBox AnchorSideTop.Control = MakePathComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 2 Left = 2
Height = 18 Height = 15
Top = 343 Top = 277
Width = 107 Width = 91
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'TestBuildDirLabel' Caption = 'TestBuildDirLabel'
ParentColor = False ParentColor = False
@ -206,11 +206,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MakePathButton AnchorSideRight.Control = MakePathButton
Left = 2 Left = 2
Height = 32 Height = 23
Top = 305 Top = 248
Width = 595 Width = 595
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 24 ItemHeight = 15
TabOrder = 10 TabOrder = 10
Text = 'MakePathComboBox' Text = 'MakePathComboBox'
end end
@ -221,13 +221,13 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = MakePathComboBox AnchorSideBottom.Control = MakePathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 597 Left = 597
Height = 32 Height = 23
Top = 305 Top = 248
Width = 23 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
OnClick = FilesButtonClick
TabOrder = 11 TabOrder = 11
OnClick = FilesButtonClick
end end
object TestBuildDirComboBox: TComboBox object TestBuildDirComboBox: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -235,11 +235,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TestBuildDirButton AnchorSideRight.Control = TestBuildDirButton
Left = 2 Left = 2
Height = 32 Height = 23
Top = 361 Top = 292
Width = 595 Width = 595
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 24 ItemHeight = 15
TabOrder = 12 TabOrder = 12
Text = 'TestBuildDirComboBox' Text = 'TestBuildDirComboBox'
end end
@ -250,13 +250,13 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = TestBuildDirComboBox AnchorSideBottom.Control = TestBuildDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 597 Left = 597
Height = 32 Height = 23
Top = 361 Top = 292
Width = 23 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
OnClick = DirectoriesButtonClick
TabOrder = 13 TabOrder = 13
OnClick = DirectoriesButtonClick
end end
object AutoCloseCompileDialogCheckBox: TCheckBox object AutoCloseCompileDialogCheckBox: TCheckBox
AnchorSideLeft.Control = ShowCompileDialogCheckBox AnchorSideLeft.Control = ShowCompileDialogCheckBox
@ -264,9 +264,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 32 Left = 32
Height = 22 Height = 19
Top = 87 Top = 72
Width = 239 Width = 204
BorderSpacing.Left = 30 BorderSpacing.Left = 30
Caption = 'AutoCloseCompileDialogCheckBox' Caption = 'AutoCloseCompileDialogCheckBox'
TabOrder = 3 TabOrder = 3
@ -276,9 +276,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = TestBuildDirComboBox AnchorSideTop.Control = TestBuildDirComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 2 Left = 2
Height = 18 Height = 15
Top = 399 Top = 321
Width = 177 Width = 153
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CompilerTranslationFileLabel' Caption = 'CompilerTranslationFileLabel'
@ -293,15 +293,15 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = CompilerTranslationFileComboBox AnchorSideBottom.Control = CompilerTranslationFileComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 597 Left = 597
Height = 32 Height = 23
Top = 417 Top = 336
Width = 23 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
OnClick = CompilerTranslationFileButtonClick
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 15 TabOrder = 15
OnClick = CompilerTranslationFileButtonClick
end end
object CompilerTranslationFileComboBox: TComboBox object CompilerTranslationFileComboBox: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -309,11 +309,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CompilerTranslationFileButton AnchorSideRight.Control = CompilerTranslationFileButton
Left = 2 Left = 2
Height = 32 Height = 23
Top = 417 Top = 336
Width = 595 Width = 595
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 24 ItemHeight = 15
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 14 TabOrder = 14
@ -329,34 +329,17 @@ object FilesOptionsFrame: TFilesOptionsFrame
ParentColor = False ParentColor = False
end end
object MaxRecentOpenFilesSpin: TSpinEdit object MaxRecentOpenFilesSpin: TSpinEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MaxRecentOpenFilesLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblCenter
AnchorSideRight.Side = asrBottom
Left = 2
Height = 32
Hint = 'Value 0 means unlimited.'
Top = 22
Width = 305
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 3
BorderSpacing.Around = 2
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object MaxRecentProjectFilesSpin: TSpinEdit
AnchorSideLeft.Control = lblCenter AnchorSideLeft.Control = lblCenter
AnchorSideTop.Control = MaxRecentProjectFilesLabel AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MaxRecentOpenFilesLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 316 Left = 317
Height = 32 Height = 23
Hint = 'Value 0 means unlimited.' Hint = 'Value 0 means unlimited.'
Top = 22 Top = 19
Width = 304 Width = 303
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3 BorderSpacing.Left = 3
BorderSpacing.Around = 2 BorderSpacing.Around = 2
@ -364,14 +347,31 @@ object FilesOptionsFrame: TFilesOptionsFrame
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
end end
object MaxRecentProjectFilesSpin: TSpinEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MaxRecentProjectFilesLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblCenter
Left = 2
Height = 23
Hint = 'Value 0 means unlimited.'
Top = 19
Width = 304
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 3
BorderSpacing.Around = 2
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object FppkgConfigurationFileLabel: TLabel object FppkgConfigurationFileLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CompilerTranslationFileComboBox AnchorSideTop.Control = CompilerTranslationFileComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 2 Left = 2
Height = 18 Height = 15
Top = 455 Top = 365
Width = 176 Width = 153
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'FppkgConfigurationFileLabel' Caption = 'FppkgConfigurationFileLabel'
@ -385,11 +385,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FppkgConfigurationFileButton AnchorSideRight.Control = FppkgConfigurationFileButton
Left = 2 Left = 2
Height = 32 Height = 23
Top = 473 Top = 380
Width = 595 Width = 595
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 24 ItemHeight = 15
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 16 TabOrder = 16
@ -402,14 +402,14 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideBottom.Control = FppkgConfigurationFileComboBox AnchorSideBottom.Control = FppkgConfigurationFileComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 597 Left = 597
Height = 32 Height = 23
Top = 473 Top = 380
Width = 23 Width = 23
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
Caption = '...' Caption = '...'
OnClick = FppkgConfigurationFileButtonClick
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 17 TabOrder = 17
OnClick = FppkgConfigurationFileButtonClick
end end
end end