IDE: Make '...' buttons square (issue #32924).

git-svn-id: trunk@56956 -
This commit is contained in:
wp 2018-01-04 21:35:17 +00:00
parent f0757ff745
commit b6077f9686
11 changed files with 441 additions and 404 deletions

View File

@ -13,15 +13,15 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
KeyPreview = True
OnChangeBounds = FormChangeBounds
OnClose = FormClose
LCLVersion = '1.3'
LCLVersion = '1.9.0.0'
object TextToFindLabel: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = TextToFindComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 20
Height = 15
Top = 16
Width = 109
Width = 85
Alignment = taRightJustify
BorderSpacing.Left = 6
Caption = 'TextToFindLabel'
@ -34,10 +34,10 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TextToFindComboBox
AnchorSideBottom.Side = asrBottom
Left = 456
Height = 28
Left = 458
Height = 23
Top = 12
Width = 25
Width = 23
AllowAllUp = True
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
@ -51,9 +51,9 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideTop.Control = ReplaceTextComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 24
Top = 48
Width = 172
Height = 19
Top = 43
Width = 138
BorderSpacing.Left = 6
Caption = 'ReplaceWithCheckbox'
OnChange = ReplaceWithCheckboxChange
@ -63,15 +63,15 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideLeft.Control = TextToFindLabel
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = EnableAutoCompleteSpeedButton
Left = 121
Height = 28
Left = 97
Height = 23
Top = 12
Width = 335
Width = 361
Anchors = [akTop, akLeft, akRight]
AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
BorderSpacing.Left = 6
ItemHeight = 20
ItemHeight = 15
OnKeyDown = TextToFindComboboxKeyDown
TabOrder = 0
Text = 'TextToFindComboBox'
@ -83,16 +83,16 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 190
Height = 28
Top = 46
Width = 291
Left = 156
Height = 23
Top = 41
Width = 325
Anchors = [akTop, akLeft, akRight]
AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
BorderSpacing.Left = 6
BorderSpacing.Around = 6
ItemHeight = 20
ItemHeight = 15
OnKeyDown = TextToFindComboboxKeyDown
TabOrder = 2
Text = 'ReplaceTextComboBox'
@ -104,21 +104,21 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideBottom.Control = DirectionGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 222
Top = 80
Height = 186
Top = 70
Width = 231
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'OptionsGroupBox'
ClientHeight = 200
ClientHeight = 166
ClientWidth = 227
TabOrder = 3
OnResize = OptionsGroupBoxResize
object PromptOnReplaceCheckBox: TCheckBox
Left = 6
Height = 24
Top = 144
Height = 19
Top = 124
Width = 215
Align = alTop
BorderSpacing.Top = 3
@ -132,8 +132,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end
object MultiLineCheckBox: TCheckBox
Left = 6
Height = 24
Top = 111
Height = 19
Top = 96
Width = 215
Align = alTop
BorderSpacing.Top = 3
@ -145,8 +145,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end
object RegularExpressionsCheckBox: TCheckBox
Left = 6
Height = 24
Top = 78
Height = 19
Top = 68
Width = 215
Align = alTop
BorderSpacing.Top = 3
@ -158,8 +158,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end
object WholeWordsOnlyCheckBox: TCheckBox
Left = 6
Height = 24
Top = 45
Height = 19
Top = 40
Width = 215
Align = alTop
BorderSpacing.Top = 3
@ -171,7 +171,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end
object CaseSensitiveCheckBox: TCheckBox
Left = 6
Height = 24
Height = 19
Top = 12
Width = 215
Align = alTop
@ -191,8 +191,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 243
Height = 70
Top = 156
Height = 58
Top = 134
Width = 238
Anchors = [akTop, akLeft, akRight]
AutoSize = True
@ -205,12 +205,12 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 48
ClientHeight = 38
ClientWidth = 234
TabOrder = 5
object SelectedRadioButton: TRadioButton
Left = 6
Height = 24
Height = 19
Top = 0
Width = 222
Caption = 'SelectedRadioButton'
@ -218,8 +218,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end
object GlobalRadioButton: TRadioButton
Left = 6
Height = 24
Top = 24
Height = 19
Top = 19
Width = 222
Caption = 'GlobalRadioButton'
Checked = True
@ -235,8 +235,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 243
Height = 70
Top = 232
Height = 58
Top = 198
Width = 238
Anchors = [akTop, akLeft, akRight]
AutoSize = True
@ -249,12 +249,12 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 48
ClientHeight = 38
ClientWidth = 234
TabOrder = 6
object BackwardRadioButton: TRadioButton
Left = 6
Height = 24
Height = 19
Top = 0
Width = 222
Caption = 'BackwardRadioButton'
@ -262,8 +262,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end
object ForwardRadioButton: TRadioButton
Left = 6
Height = 24
Top = 24
Height = 19
Top = 19
Width = 222
Caption = 'ForwardRadioButton'
Checked = True
@ -279,8 +279,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 243
Height = 70
Top = 80
Height = 58
Top = 70
Width = 238
Anchors = [akTop, akLeft, akRight]
AutoSize = True
@ -293,12 +293,12 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 48
ClientHeight = 38
ClientWidth = 234
TabOrder = 4
object FromCursorRadioButton: TRadioButton
Left = 6
Height = 24
Height = 19
Top = 0
Width = 222
AutoSize = False
@ -309,8 +309,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end
object EntireScopeRadioButton: TRadioButton
Left = 6
Height = 24
Top = 24
Height = 19
Top = 19
Width = 222
AutoSize = False
Caption = 'EntireScopeRadioButton'
@ -319,8 +319,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end
object BtnPanel: TButtonPanel
Left = 6
Height = 38
Top = 323
Height = 34
Top = 327
Width = 475
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True

View File

@ -12,9 +12,9 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 0
Height = 24
Height = 19
Top = 0
Width = 129
Width = 118
Caption = 'chkCreateMakefile'
ParentShowHint = False
ShowHint = True
@ -27,23 +27,23 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 117
Top = 243
Height = 108
Top = 225
Width = 741
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'ExecuteAfterGroupBox'
ClientHeight = 102
ClientHeight = 88
ClientWidth = 737
TabOrder = 3
object lblRunIfExecAfter: TLabel
AnchorSideLeft.Control = ExecuteAfterGroupBox
AnchorSideTop.Control = ExecuteAfterGroupBox
Left = 6
Height = 13
Height = 15
Top = 6
Width = 99
Width = 90
BorderSpacing.Around = 6
Caption = 'lblRunIfExecAfter'
ParentColor = False
@ -53,9 +53,9 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideTop.Control = ExecuteAfterCommandComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 13
Top = 43
Width = 158
Height = 15
Top = 35
Width = 151
BorderSpacing.Around = 6
Caption = 'ExecuteAfterCommandLabel'
ParentColor = False
@ -64,10 +64,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = lblRunIfExecAfter
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecuteAfterGroupBox
Left = 135
Height = 24
Left = 126
Height = 19
Top = 6
Width = 145
Width = 133
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'chkExecAfterCompile'
@ -77,10 +77,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = chkExecAfterCompile
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecuteAfterGroupBox
Left = 310
Height = 24
Left = 289
Height = 19
Top = 6
Width = 129
Width = 115
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'chkExecAfterBuild'
@ -90,10 +90,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = chkExecAfterBuild
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecuteAfterGroupBox
Left = 469
Height = 24
Left = 434
Height = 19
Top = 6
Width = 123
Width = 109
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'chkExecAfterRun'
@ -105,15 +105,15 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideTop.Control = chkExecAfterCompile
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ExecAfterBrowseButton
Left = 176
Height = 27
Top = 36
Width = 505
Left = 169
Height = 23
Top = 31
Width = 539
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
ItemHeight = 15
TabOrder = 3
Text = 'ExecuteAfterCommandComboBox'
end
@ -123,13 +123,13 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ExecuteAfterCommandComboBox
AnchorSideBottom.Side = asrBottom
Left = 681
Height = 27
Top = 36
Width = 50
Left = 708
Height = 23
Top = 31
Width = 23
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...'
Caption = ''
OnClick = CompCmdBrowseButtonClick
TabOrder = 4
end
@ -138,9 +138,9 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideTop.Control = ExecAfterParsersCheckComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 13
Top = 76
Width = 125
Height = 15
Top = 64
Width = 114
BorderSpacing.Left = 6
Caption = 'ExecAfterParsersLabel'
ParentColor = False
@ -150,10 +150,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecAfterParsersCheckComboBox
AnchorSideTop.Side = asrCenter
Left = 318
Height = 13
Top = 76
Width = 148
Left = 307
Height = 15
Top = 64
Width = 138
Caption = 'ExecAfterParsersSumLabel'
ParentColor = False
end
@ -162,12 +162,12 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecuteAfterCommandComboBox
AnchorSideTop.Side = asrBottom
Left = 137
Height = 27
Top = 69
Left = 126
Height = 22
Top = 60
Width = 175
BorderSpacing.Around = 6
ItemHeight = 0
ItemHeight = 16
OnItemChange = ExecAfterParsersCheckComboBoxItemChange
TabOrder = 5
end
@ -179,23 +179,23 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 84
Top = 153
Height = 80
Top = 139
Width = 741
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'grpCompiler'
ClientHeight = 69
ClientHeight = 60
ClientWidth = 737
TabOrder = 2
object lblRunIfCompiler: TLabel
AnchorSideLeft.Control = grpCompiler
AnchorSideTop.Control = grpCompiler
Left = 6
Height = 13
Height = 15
Top = 6
Width = 92
Width = 90
BorderSpacing.Around = 6
Caption = 'lblRunIfCompiler'
ParentColor = False
@ -205,8 +205,8 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideTop.Control = cobCompiler
AnchorSideTop.Side = asrCenter
Left = 6
Height = 13
Top = 43
Height = 15
Top = 35
Width = 62
BorderSpacing.Around = 6
Caption = 'lblCompiler'
@ -216,10 +216,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = lblRunIfCompiler
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = grpCompiler
Left = 128
Height = 24
Left = 126
Height = 19
Top = 6
Width = 138
Width = 133
BorderSpacing.Left = 30
BorderSpacing.Top = 6
Caption = 'chkCompilerCompile'
@ -229,10 +229,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = chkCompilerCompile
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = grpCompiler
Left = 296
Height = 24
Left = 289
Height = 19
Top = 6
Width = 122
Width = 115
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'chkCompilerBuild'
@ -242,10 +242,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = chkCompilerBuild
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = grpCompiler
Left = 448
Height = 24
Left = 434
Height = 19
Top = 6
Width = 116
Width = 109
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'chkCompilerRun'
@ -258,14 +258,14 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BrowseCompilerButton
Left = 80
Height = 27
Top = 36
Width = 601
Height = 23
Top = 31
Width = 628
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
ItemHeight = 15
TabOrder = 3
Text = 'cobCompiler'
end
@ -275,13 +275,13 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cobCompiler
AnchorSideBottom.Side = asrBottom
Left = 681
Height = 27
Top = 36
Width = 50
Left = 708
Height = 23
Top = 31
Width = 23
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...'
Caption = ''
OnClick = CompCmdBrowseButtonClick
ParentShowHint = False
ShowHint = True
@ -295,23 +295,23 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 117
Top = 30
Height = 108
Top = 25
Width = 741
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'ExecuteBeforeGroupBox'
ClientHeight = 102
ClientHeight = 88
ClientWidth = 737
TabOrder = 1
object lblRunIfExecBefore: TLabel
AnchorSideLeft.Control = ExecuteBeforeGroupBox
AnchorSideTop.Control = ExecuteBeforeGroupBox
Left = 6
Height = 13
Height = 15
Top = 6
Width = 108
Width = 98
BorderSpacing.Around = 6
Caption = 'lblRunIfExecBefore'
ParentColor = False
@ -321,9 +321,9 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideTop.Control = ExecuteBeforeCommandComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 13
Top = 43
Width = 167
Height = 15
Top = 35
Width = 159
BorderSpacing.Around = 6
Caption = 'ExecuteBeforeCommandLabel'
ParentColor = False
@ -332,10 +332,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = lblRunIfExecBefore
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecuteBeforeGroupBox
Left = 144
Height = 24
Left = 134
Height = 19
Top = 6
Width = 154
Width = 141
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'chkExecBeforeCompile'
@ -345,10 +345,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = chkExecBeforeCompile
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecuteBeforeGroupBox
Left = 328
Height = 24
Left = 305
Height = 19
Top = 6
Width = 138
Width = 123
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'chkExecBeforeBuild'
@ -358,10 +358,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Control = chkExecBeforeBuild
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecuteBeforeGroupBox
Left = 496
Height = 24
Left = 458
Height = 19
Top = 6
Width = 132
Width = 117
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Caption = 'chkExecBeforeRun'
@ -373,15 +373,15 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideTop.Control = chkExecBeforeCompile
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ExecBeforeBrowseButton
Left = 185
Height = 27
Top = 36
Width = 496
Left = 177
Height = 23
Top = 31
Width = 531
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
ItemHeight = 15
TabOrder = 3
Text = 'ExecuteBeforeCommandComboBox'
end
@ -392,13 +392,13 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ExecuteBeforeCommandComboBox
AnchorSideBottom.Side = asrBottom
Left = 681
Height = 27
Top = 36
Width = 50
Left = 708
Height = 23
Top = 31
Width = 23
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...'
Caption = ''
OnClick = CompCmdBrowseButtonClick
TabOrder = 4
end
@ -407,12 +407,12 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecuteBeforeCommandComboBox
AnchorSideTop.Side = asrBottom
Left = 146
Height = 27
Top = 69
Left = 134
Height = 22
Top = 60
Width = 182
BorderSpacing.Around = 6
ItemHeight = 0
ItemHeight = 16
OnItemChange = ExecBeforeParsersCheckComboBoxItemChange
TabOrder = 5
end
@ -420,9 +420,9 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideTop.Control = ExecBeforeParsersCheckComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 13
Top = 76
Width = 134
Height = 15
Top = 64
Width = 122
BorderSpacing.Left = 6
Caption = 'ExecBeforeParsersLabel'
ParentColor = False
@ -432,10 +432,10 @@ object CompilerCompilationOptionsFrame: TCompilerCompilationOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExecBeforeParsersCheckComboBox
AnchorSideTop.Side = asrCenter
Left = 334
Height = 13
Top = 76
Width = 157
Left = 322
Height = 15
Top = 64
Width = 146
BorderSpacing.Left = 6
Caption = 'ExecBeforeParsersSumLabel'
ParentColor = False

View File

@ -15,7 +15,7 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
Left = 0
Height = 15
Top = 0
Width = 100
Width = 85
Caption = 'OtherUnitsLabel'
ParentColor = False
end
@ -26,8 +26,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 0
Height = 15
Top = 46
Width = 105
Top = 44
Width = 90
BorderSpacing.Top = 6
Caption = 'IncludeFilesLabel'
ParentColor = False
@ -39,8 +39,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 0
Height = 15
Top = 251
Width = 119
Top = 239
Width = 99
Caption = 'OtherSourcesLabel'
ParentColor = False
end
@ -51,8 +51,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 0
Height = 15
Top = 92
Width = 86
Top = 88
Width = 72
BorderSpacing.Top = 6
Caption = 'LibrariesLabel'
ParentColor = False
@ -64,8 +64,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 0
Height = 15
Top = 138
Width = 118
Top = 132
Width = 103
BorderSpacing.Top = 6
Caption = 'UnitOutputDirLabel'
ParentColor = False
@ -77,8 +77,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 0
Height = 15
Top = 297
Width = 102
Top = 283
Width = 87
BorderSpacing.Top = 6
Caption = 'DebugPathLabel'
ParentColor = False
@ -90,8 +90,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 28
Top = 20
Height = 23
Top = 15
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
@ -107,8 +107,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 28
Top = 74
Height = 23
Top = 59
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
@ -124,8 +124,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 28
Top = 314
Height = 23
Top = 254
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
@ -141,8 +141,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 28
Top = 128
Height = 23
Top = 103
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
@ -158,8 +158,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 28
Top = 182
Height = 23
Top = 147
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
@ -175,8 +175,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 28
Top = 368
Height = 23
Top = 298
Width = 509
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 6
@ -191,8 +191,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideTop.Side = asrBottom
Left = 0
Height = 15
Top = 184
Width = 116
Top = 176
Width = 100
Caption = 'ProjTargetFileLabel'
ParentColor = False
end
@ -203,8 +203,8 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 28
Top = 236
Height = 23
Top = 191
Width = 509
Anchors = [akTop, akLeft, akRight]
OnChange = ProjTargetFileEditChange
@ -219,9 +219,9 @@ object CompilerPathOptionsFrame: TCompilerPathOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 0
Height = 24
Top = 264
Width = 277
Height = 19
Top = 214
Width = 225
BorderSpacing.Bottom = 6
Caption = 'ProjTargetApplyConventionsCheckBox'
ParentShowHint = False

View File

@ -58,6 +58,8 @@ type
procedure DoImport(Sender: TObject);
procedure DoExport(Sender: TObject);
protected
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, {%H-}AYProportion: Double); override;
procedure DoSaveSettings(AOptions: TAbstractIDEOptions);
procedure UpdateTargetFileLabel;
public
@ -74,9 +76,6 @@ implementation
{$R *.lfm}
const
cBrowseBtnSize = 50;
function CheckSearchPath(const Context, ExpandedPath: string; Level: TCheckCompileOptionsMsgLvl; Hint: string = ''): boolean;
var
CurPath: string;
@ -328,6 +327,18 @@ begin
OnSaveIDEOptions(Self, FCompilerOpts);
end;
procedure TCompilerPathOptionsFrame.DoAutoAdjustLayout(
const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double);
begin
if AMode = lapAutoAdjustForDPI then begin
OtherUnitsPathEditBtn.Width := round(OtherUnitsPathEditBtn.Height * AXProportion);
IncludeFilesPathEditBtn.Width := round(IncludeFilesPathEditBtn.Height * AXProportion);
OtherSourcesPathEditBtn.Width := round(OtherSourcesPathEditBtn.Height * AXProportion);
LibrariesPathEditBtn.Width := round(LibrariesPathEditBtn.Height * AXProportion);
DebugPathEditBtn.Width := round(DebugPathEditBtn.Height * AXProportion);
end;
end;
procedure TCompilerPathOptionsFrame.DoSaveSettings(AOptions: TAbstractIDEOptions);
begin
if Assigned(OnSaveIDEOptions) then
@ -506,7 +517,7 @@ begin
AnchorParallel(akTop, 0, OtherUnitsEdit);
AnchorParallel(akBottom, 0, OtherUnitsEdit);
AnchorParallel(akRight, 0, Self);
Width := cBrowseBtnSize;
Width := Height;
AssociatedEdit := OtherUnitsEdit;
ContextCaption := OtherUnitsLabel.Caption;
Templates:='$(LazarusDir)/lcl/units/$(TargetCPU)-$(TargetOS)' +
@ -533,7 +544,7 @@ begin
AnchorParallel(akTop, 0, IncludeFilesEdit);
AnchorParallel(akBottom, 0, IncludeFilesEdit);
AnchorParallel(akRight, 0, Self);
Width := cBrowseBtnSize;
Width := Height;
AssociatedEdit := IncludeFilesEdit;
ContextCaption := IncludeFilesLabel.Caption;
Templates := 'include;inc';
@ -556,7 +567,7 @@ begin
AnchorParallel(akTop, 0, OtherSourcesEdit);
AnchorParallel(akBottom, 0, OtherSourcesEdit);
AnchorParallel(akRight, 0, Self);
Width := cBrowseBtnSize;
Width := Height;
AssociatedEdit := OtherSourcesEdit;
ContextCaption := OtherSourcesLabel.Caption;
Templates := '$(LazarusDir)/lcl' +
@ -582,7 +593,7 @@ begin
AnchorParallel(akTop, 0, LibrariesEdit);
AnchorParallel(akBottom, 0, LibrariesEdit);
AnchorParallel(akRight, 0, Self);
Width := cBrowseBtnSize;
Width := Height;
AssociatedEdit := LibrariesEdit;
ContextCaption := LibrariesLabel.Caption;
Templates := '/usr/X11R6/lib;/sw/lib';
@ -605,7 +616,7 @@ begin
AnchorParallel(akTop, 0, UnitOutputDirEdit);
AnchorParallel(akBottom, 0, UnitOutputDirEdit);
AnchorParallel(akRight, 0, Self);
Width := cBrowseBtnSize;
Width := Height;
OnClick := @FileBrowseBtnClick;
end;
UnitOutputDirEdit.AnchorToNeighbour(akRight, 0, btnUnitOutputDir);
@ -624,7 +635,7 @@ begin
AnchorParallel(akTop, 0, DebugPathEdit);
AnchorParallel(akBottom, 0, DebugPathEdit);
AnchorParallel(akRight, 0, Self);
Width := cBrowseBtnSize;
Width := Height;
AssociatedEdit := DebugPathEdit;
ContextCaption := DebugPathLabel.Caption;
Templates := '$(LazarusDir)/lcl/include' +

View File

@ -12,24 +12,24 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
object MarginAndGutterGroupBox: TGroupBox
AnchorSideRight.Side = asrBottom
Left = 0
Height = 160
Height = 151
Top = 0
Width = 588
Align = alTop
AutoSize = True
Caption = 'MarginAndGutterGroupBox'
ClientHeight = 141
ClientWidth = 586
ClientHeight = 131
ClientWidth = 584
TabOrder = 0
object RightMarginLabel: TLabel
AnchorSideLeft.Control = RightMarginComboBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RightMarginComboBox
AnchorSideTop.Side = asrCenter
Left = 334
Height = 18
Top = 12
Width = 107
Left = 310
Height = 15
Top = 10
Width = 94
BorderSpacing.Left = 6
Caption = 'RightMarginLabel'
ParentColor = False
@ -39,10 +39,10 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ShowOnlyLineNumbersMultiplesOfSpinEdit
AnchorSideTop.Side = asrCenter
Left = 318
Height = 18
Top = 75
Width = 136
Left = 294
Height = 15
Top = 68
Width = 121
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Every n-th line number'
@ -53,10 +53,10 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GutterSeparatorIndexSpinBox
AnchorSideTop.Side = asrCenter
Left = 320
Height = 18
Top = 45
Width = 164
Left = 296
Height = 15
Top = 39
Width = 139
BorderSpacing.Left = 6
Caption = 'GutterSeparatorIndexLabel'
ParentColor = False
@ -67,10 +67,10 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideTop.Control = RightMarginLabel
AnchorSideTop.Side = asrCenter
Cursor = crHandPoint
Left = 447
Height = 18
Top = 12
Width = 132
Left = 410
Height = 15
Top = 10
Width = 117
BorderSpacing.Left = 6
Caption = 'RightMarginColorLink'
Font.Color = clBlue
@ -84,9 +84,9 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Control = MarginAndGutterGroupBox
AnchorSideTop.Control = MarginAndGutterGroupBox
Left = 6
Height = 21
Height = 19
Top = 6
Width = 196
Width = 172
BorderSpacing.Around = 6
Caption = 'VisibleRightMarginCheckBox'
OnChange = GeneralCheckBoxOnChange
@ -97,9 +97,9 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideTop.Control = VisibleRightMarginCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 33
Width = 160
Height = 19
Top = 31
Width = 139
BorderSpacing.Around = 6
Caption = 'VisibleGutterCheckBox'
OnChange = GeneralCheckBoxOnChange
@ -110,9 +110,9 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideTop.Control = VisibleGutterCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 60
Width = 197
Height = 19
Top = 56
Width = 172
BorderSpacing.Around = 6
Caption = 'ShowLineNumbersCheckBox'
OnChange = GeneralCheckBoxOnChange
@ -123,13 +123,13 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Control = VisibleRightMarginCheckBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MarginAndGutterGroupBox
Left = 258
Height = 30
Left = 234
Height = 23
Top = 6
Width = 70
BorderSpacing.Left = 50
BorderSpacing.Around = 6
ItemHeight = 0
ItemHeight = 15
Items.Strings = (
'80'
'78'
@ -144,9 +144,9 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Control = GutterSeparatorIndexSpinBox
AnchorSideTop.Control = GutterSeparatorIndexSpinBox
AnchorSideTop.Side = asrBottom
Left = 258
Height = 24
Top = 72
Left = 234
Height = 23
Top = 64
Width = 54
BorderSpacing.Top = 6
MinValue = 1
@ -158,9 +158,9 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Control = RightMarginComboBox
AnchorSideTop.Control = RightMarginComboBox
AnchorSideTop.Side = asrBottom
Left = 258
Height = 24
Top = 42
Left = 234
Height = 23
Top = 35
Width = 56
MaxValue = 4
MinValue = -1
@ -172,9 +172,9 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideTop.Control = ShowLineNumbersCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 87
Width = 134
Height = 19
Top = 81
Width = 117
BorderSpacing.Around = 6
Caption = 'chkShowOverview'
OnChange = GeneralCheckBoxOnChange
@ -185,9 +185,9 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideTop.Control = chkShowOverview
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 114
Width = 120
Height = 19
Top = 106
Width = 106
BorderSpacing.Around = 6
Caption = 'chkTopInfoView'
TabOrder = 7
@ -196,15 +196,15 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
object EditorFontGroupBox: TGroupBox
AnchorSideRight.Side = asrBottom
Left = 0
Height = 133
Top = 166
Height = 113
Top = 157
Width = 588
Align = alTop
AutoSize = True
BorderSpacing.Top = 6
Caption = 'EditorFontGroupBox'
ClientHeight = 114
ClientWidth = 586
ClientHeight = 93
ClientWidth = 584
TabOrder = 1
object EditorFontSizeLabel: TLabel
AnchorSideLeft.Control = EditorFontSizeSpinEdit
@ -212,9 +212,9 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideTop.Control = EditorFontSizeSpinEdit
AnchorSideTop.Side = asrCenter
Left = 62
Height = 18
Top = 45
Width = 119
Height = 15
Top = 39
Width = 103
BorderSpacing.Around = 6
Caption = 'EditorFontSizeLabel'
ParentColor = False
@ -224,10 +224,10 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExtraLineSpacingComboBox
AnchorSideTop.Side = asrCenter
Left = 313
Height = 18
Top = 48
Width = 135
Left = 297
Height = 15
Top = 39
Width = 117
BorderSpacing.Around = 6
Caption = 'ExtraLineSpacingLabel'
ParentColor = False
@ -237,10 +237,10 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExtraCharSpacingComboBox
AnchorSideTop.Side = asrCenter
Left = 313
Height = 18
Top = 84
Width = 138
Left = 297
Height = 15
Top = 68
Width = 120
BorderSpacing.Around = 6
Caption = 'ExtraCharSpacingLabel'
ParentColor = False
@ -250,13 +250,13 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideTop.Control = EditorFontGroupBox
AnchorSideRight.Control = EditorFontButton
Left = 6
Height = 30
Height = 23
Top = 6
Width = 524
Width = 549
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
ItemHeight = 0
ItemHeight = 15
OnEditingDone = EditorFontComboBoxEditingDone
TabOrder = 0
Text = 'EditorFontComboBox'
@ -267,10 +267,10 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = EditorFontComboBox
AnchorSideBottom.Side = asrBottom
Left = 530
Height = 30
Left = 555
Height = 23
Top = 6
Width = 50
Width = 23
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...'
@ -282,8 +282,8 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideTop.Control = EditorFontComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 42
Height = 23
Top = 35
Width = 50
BorderSpacing.Around = 6
MinValue = -100
@ -295,13 +295,13 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = EditorFontComboBox
AnchorSideTop.Side = asrBottom
Left = 207
Height = 30
Top = 42
Left = 191
Height = 23
Top = 35
Width = 100
BorderSpacing.Left = 20
BorderSpacing.Around = 6
ItemHeight = 0
ItemHeight = 15
Items.Strings = (
'0'
'1'
@ -316,12 +316,12 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideLeft.Control = ExtraLineSpacingComboBox
AnchorSideTop.Control = ExtraLineSpacingComboBox
AnchorSideTop.Side = asrBottom
Left = 207
Height = 30
Top = 78
Left = 191
Height = 23
Top = 64
Width = 100
BorderSpacing.Bottom = 6
ItemHeight = 0
ItemHeight = 15
Items.Strings = (
'0'
'1'
@ -337,9 +337,9 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideTop.Control = EditorFontSizeSpinEdit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 36
Top = 72
Width = 195
Height = 19
Top = 64
Width = 172
BorderSpacing.Around = 6
Caption = 'DisableAntialiasingCheckBox'
OnChange = GeneralCheckBoxOnChange
@ -350,8 +350,8 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 150
Top = 305
Height = 179
Top = 276
Width = 588
Align = alClient
BorderSpacing.Top = 6
@ -363,7 +363,7 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
ParentFont = False
TabOrder = 2
BookMarkOptions.Xoffset = 30
Gutter.Width = 61
Gutter.Width = 59
Gutter.MouseActions = <
item
ClickCount = ccAny
@ -795,7 +795,7 @@ object EditorDisplayOptionsFrame: TEditorDisplayOptionsFrame
MouseActions = <>
end
object TSynGutterLineNumber
Width = 21
Width = 19
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone

View File

@ -15,9 +15,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 2
Height = 17
Height = 15
Top = 2
Width = 179
Width = 138
Caption = 'MaxRecentOpenFilesLabel'
ParentColor = False
end
@ -25,9 +25,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideLeft.Control = lblCenter
AnchorSideTop.Control = Owner
Left = 314
Height = 17
Height = 15
Top = 2
Width = 192
Width = 146
BorderSpacing.Left = 3
Caption = 'MaxRecentProjectFilesLabel'
ParentColor = False
@ -38,9 +38,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 2
Height = 24
Top = 54
Width = 256
Height = 19
Top = 48
Width = 195
BorderSpacing.Top = 6
Caption = 'OpenLastProjectAtStartCheckBox'
TabOrder = 2
@ -51,9 +51,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 2
Height = 24
Top = 113
Width = 227
Height = 19
Top = 94
Width = 180
BorderSpacing.Top = 2
Caption = 'ShowCompileDialogCheckBox'
OnChange = ShowCompileDialogCheckBoxChange
@ -64,9 +64,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = AutoCloseCompileDialogCheckBox
AnchorSideTop.Side = asrBottom
Left = 2
Height = 17
Top = 171
Width = 109
Height = 15
Top = 142
Width = 82
BorderSpacing.Top = 10
Caption = 'LazarusDirLabel'
ParentColor = False
@ -78,10 +78,10 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = LazarusDirComboBox
AnchorSideBottom.Side = asrBottom
Left = 570
Height = 29
Top = 188
Width = 50
Left = 597
Height = 23
Top = 157
Width = 23
Anchors = [akTop, akRight, akBottom]
Caption = '...'
OnClick = DirectoriesButtonClick
@ -93,11 +93,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LazarusDirButton
Left = 2
Height = 29
Top = 188
Width = 568
Height = 23
Top = 157
Width = 595
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 15
TabOrder = 6
Text = 'LazarusDirComboBox'
end
@ -107,11 +107,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CompilerPathButton
Left = 2
Height = 29
Top = 240
Width = 568
Height = 23
Top = 201
Width = 595
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 15
TabOrder = 8
Text = 'CompilerPathComboBox'
end
@ -121,10 +121,10 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CompilerPathComboBox
AnchorSideBottom.Side = asrBottom
Left = 570
Height = 29
Top = 240
Width = 50
Left = 597
Height = 23
Top = 201
Width = 23
Anchors = [akTop, akRight, akBottom]
Caption = '...'
OnClick = FilesButtonClick
@ -135,9 +135,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = LazarusDirComboBox
AnchorSideTop.Side = asrBottom
Left = 2
Height = 17
Top = 223
Width = 130
Height = 15
Top = 186
Width = 101
BorderSpacing.Top = 6
Caption = 'CompilerPathLabel'
ParentColor = False
@ -148,11 +148,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FPCSourceDirButton
Left = 2
Height = 29
Top = 292
Width = 568
Height = 23
Top = 245
Width = 595
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 15
TabOrder = 10
Text = 'FPCSourceDirComboBox'
end
@ -162,10 +162,10 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FPCSourceDirComboBox
AnchorSideBottom.Side = asrBottom
Left = 570
Height = 29
Top = 292
Width = 50
Left = 597
Height = 23
Top = 245
Width = 23
Anchors = [akTop, akRight, akBottom]
Caption = '...'
OnClick = DirectoriesButtonClick
@ -176,9 +176,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = CompilerPathComboBox
AnchorSideTop.Side = asrBottom
Left = 2
Height = 17
Top = 275
Width = 129
Height = 15
Top = 230
Width = 100
BorderSpacing.Top = 6
Caption = 'FPCSourceDirLabel'
ParentColor = False
@ -188,9 +188,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = FPCSourceDirComboBox
AnchorSideTop.Side = asrBottom
Left = 2
Height = 17
Top = 327
Width = 105
Height = 15
Top = 274
Width = 81
BorderSpacing.Top = 6
Caption = 'MakePathLabel'
ParentColor = False
@ -200,9 +200,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = MakePathComboBox
AnchorSideTop.Side = asrBottom
Left = 2
Height = 17
Top = 379
Width = 119
Height = 15
Top = 318
Width = 91
BorderSpacing.Top = 6
Caption = 'TestBuildDirLabel'
ParentColor = False
@ -213,11 +213,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MakePathButton
Left = 2
Height = 29
Top = 344
Width = 568
Height = 23
Top = 289
Width = 595
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 15
TabOrder = 12
Text = 'MakePathComboBox'
end
@ -227,10 +227,10 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = MakePathComboBox
AnchorSideBottom.Side = asrBottom
Left = 570
Height = 29
Top = 344
Width = 50
Left = 597
Height = 23
Top = 289
Width = 23
Anchors = [akTop, akRight, akBottom]
Caption = '...'
OnClick = FilesButtonClick
@ -242,11 +242,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TestBuildDirButton
Left = 2
Height = 29
Top = 396
Width = 568
Height = 23
Top = 333
Width = 595
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 15
TabOrder = 14
Text = 'TestBuildDirComboBox'
end
@ -256,10 +256,10 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TestBuildDirComboBox
AnchorSideBottom.Side = asrBottom
Left = 570
Height = 29
Top = 396
Width = 50
Left = 597
Height = 23
Top = 333
Width = 23
Anchors = [akTop, akRight, akBottom]
Caption = '...'
OnClick = DirectoriesButtonClick
@ -271,9 +271,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 32
Height = 24
Top = 137
Width = 261
Height = 19
Top = 113
Width = 206
BorderSpacing.Left = 30
Caption = 'AutoCloseCompileDialogCheckBox'
TabOrder = 5
@ -283,9 +283,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = TestBuildDirComboBox
AnchorSideTop.Side = asrBottom
Left = 2
Height = 17
Top = 431
Width = 198
Height = 15
Top = 362
Width = 153
Alignment = taRightJustify
BorderSpacing.Top = 6
Caption = 'CompilerTranslationFileLabel'
@ -299,10 +299,10 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CompilerTranslationFileComboBox
AnchorSideBottom.Side = asrBottom
Left = 570
Height = 29
Top = 448
Width = 50
Left = 597
Height = 23
Top = 377
Width = 23
Anchors = [akTop, akRight, akBottom]
Caption = '...'
OnClick = CompilerTranslationFileButtonClick
@ -316,11 +316,11 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CompilerTranslationFileButton
Left = 2
Height = 29
Top = 448
Width = 568
Height = 23
Top = 377
Width = 595
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
ItemHeight = 15
ParentShowHint = False
ShowHint = True
TabOrder = 16
@ -342,8 +342,8 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Control = lblCenter
AnchorSideRight.Side = asrBottom
Left = 2
Height = 27
Top = 21
Height = 23
Top = 19
Width = 305
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 3
@ -357,8 +357,8 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 316
Height = 27
Top = 21
Height = 23
Top = 19
Width = 304
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3
@ -370,9 +370,9 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Control = MultipleInstancesComboBox
AnchorSideTop.Side = asrCenter
Left = 2
Height = 17
Top = 87
Width = 156
Height = 15
Top = 73
Width = 121
Caption = 'MultipleInstancesLabel'
ParentColor = False
end
@ -383,14 +383,14 @@ object FilesOptionsFrame: TFilesOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 166
Height = 31
Top = 80
Width = 454
Left = 131
Height = 23
Top = 69
Width = 489
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
ItemHeight = 0
ItemHeight = 15
Style = csDropDownList
TabOrder = 3
end

View File

@ -71,7 +71,6 @@ object IDEOptionsDialog: TIDEOptionsDialog
Width = 249
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
DefaultItemHeight = 18
ReadOnly = True
TabOrder = 0
OnChange = CategoryTreeChange
@ -149,7 +148,7 @@ object IDEOptionsDialog: TIDEOptionsDialog
Left = 281
Height = 23
Top = 5
Width = 50
Width = 23
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 1
Caption = '...'

View File

@ -38,14 +38,14 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
end
object DocGroupBox: TGroupBox
Left = 0
Height = 84
Height = 96
Top = 209
Width = 461
Align = alTop
AutoSize = True
BorderSpacing.Top = 6
Caption = 'FPDoc settings'
ClientHeight = 64
ClientHeight = 76
ClientWidth = 457
TabOrder = 1
object FPDocSearchPathsEdit: TEdit
@ -57,9 +57,11 @@ object PackageIntegrationOptionsFrame: TPackageIntegrationOptionsFrame
Left = 138
Height = 23
Top = 6
Width = 313
Width = 319
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
ParentShowHint = False
ShowHint = True
TabOrder = 0

View File

@ -35,6 +35,9 @@ type
procedure SetSelectedPkgType(PkgType: TLazPackageType);
function ShowMsgPackageTypeMustBeDesign: boolean;
function GetFPDocPkgNameEditValue: string;
protected
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
public
function Check: Boolean; override;
function GetTitle: string; override;
@ -134,6 +137,14 @@ begin
Result := lisPckOptsIDEIntegration;
end;
procedure TPackageIntegrationOptionsFrame.DoAutoAdjustLayout(
const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double);
begin
if AMode = lapAutoAdjustForDPI then begin
FPDocPathButton.Width := round(FPDocPathButton.Height * AXProportion);
end;
end;
procedure TPackageIntegrationOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
PkgTypeGroupBox.Caption := lisPckOptsPackageType;
@ -165,7 +176,7 @@ begin
Name := 'FPDocPathButton';
Caption := '...';
AutoSize := False;
Width := 50;
Width := Height;
Anchors := [akRight];
AnchorParallel(akRight, 6, DocGroupBox);
AnchorParallel(akTop, 0, FPDocSearchPathsEdit);

View File

@ -14,13 +14,13 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 133
Height = 142
Top = 0
Width = 535
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Add paths to dependent packages/projects'
ClientHeight = 114
ClientHeight = 122
ClientWidth = 531
TabOrder = 0
object UnitPathLabel: TLabel
@ -29,8 +29,8 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 9
Width = 26
Top = 10
Width = 22
BorderSpacing.Left = 6
Caption = 'Unit'
ParentColor = False
@ -41,8 +41,8 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 36
Width = 45
Top = 39
Width = 39
BorderSpacing.Left = 6
Caption = 'Include'
ParentColor = False
@ -53,8 +53,8 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 63
Width = 41
Top = 68
Width = 35
BorderSpacing.Left = 6
Caption = 'Object'
ParentColor = False
@ -65,8 +65,8 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 90
Width = 43
Top = 97
Width = 36
BorderSpacing.Left = 6
Caption = 'Library'
ParentColor = False
@ -77,7 +77,7 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideRight.Control = AddPathsGroupBox
AnchorSideRight.Side = asrBottom
Left = 80
Height = 21
Height = 23
Top = 6
Width = 401
Anchors = [akTop, akLeft, akRight]
@ -94,8 +94,8 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideRight.Control = AddPathsGroupBox
AnchorSideRight.Side = asrBottom
Left = 80
Height = 21
Top = 33
Height = 23
Top = 35
Width = 401
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
@ -111,8 +111,8 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideRight.Control = AddPathsGroupBox
AnchorSideRight.Side = asrBottom
Left = 80
Height = 21
Top = 60
Height = 23
Top = 64
Width = 401
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
@ -128,8 +128,8 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideRight.Control = AddPathsGroupBox
AnchorSideRight.Side = asrBottom
Left = 80
Height = 21
Top = 87
Height = 23
Top = 93
Width = 401
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 80
@ -149,12 +149,12 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 0
Height = 171
Top = 139
Top = 148
Width = 535
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'Add options to dependent packages and projects'
ClientHeight = 152
ClientHeight = 151
ClientWidth = 531
TabOrder = 1
object LinkerOptionsLabel: TLabel
@ -163,7 +163,7 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
Left = 6
Height = 15
Top = 6
Width = 38
Width = 32
BorderSpacing.Left = 6
Caption = 'Linker'
ParentColor = False
@ -174,7 +174,7 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
Left = 6
Height = 15
Top = 74
Width = 46
Width = 42
BorderSpacing.Left = 6
Caption = 'Custom'
ParentColor = False
@ -184,10 +184,10 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideTop.Control = AddOptionsGroupBox
AnchorSideRight.Control = AddOptionsGroupBox
AnchorSideRight.Side = asrBottom
Left = 62
Left = 58
Height = 62
Top = 6
Width = 463
Width = 467
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
@ -203,10 +203,10 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = AddOptionsGroupBox
AnchorSideBottom.Side = asrBottom
Left = 62
Height = 72
Left = 58
Height = 71
Top = 74
Width = 463
Width = 467
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 10
BorderSpacing.Top = 6
@ -223,19 +223,19 @@ object PackageUsageOptionsFrame: TPackageUsageOptionsFrame
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 57
Top = 316
Height = 51
Top = 325
Width = 535
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'ProjectGroupBox'
ClientHeight = 38
ClientHeight = 31
ClientWidth = 531
TabOrder = 2
object AddPackageUnitToProjectCheckBox: TCheckBox
Left = 6
Height = 20
Height = 19
Top = 6
Width = 519
Align = alTop

View File

@ -37,6 +37,9 @@ type
LibraryPathButton: TPathEditorButton;
FLazPackage: TLazPackage;
function PathEditBtnExecuted({%H-}Context: String; var NewPath: String): Boolean;
protected
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
public
function GetTitle: string; override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
@ -92,6 +95,17 @@ begin
Result := lisPckOptsUsage;
end;
procedure TPackageUsageOptionsFrame.DoAutoAdjustLayout(
const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double);
begin
if AMode = lapAutoAdjustForDPI then begin
UnitPathButton.Width := round(UnitPathButton.Height * AXProportion);
IncludePathButton.Width := round(IncludePathButton.Height * AXProportion);
ObjectPathButton.Width := round(ObjectPathButton.Height * AXProportion);
LibraryPathButton.Width := round(LibraryPathButton.Height * AXProportion);
end;
end;
procedure TPackageUsageOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
AddPathsGroupBox.Caption := lisPckOptsAddPathsToDependentPackagesProjects;
@ -110,7 +124,7 @@ begin
Parent := AddPathsGroupBox;
Caption := '...';
AutoSize := False;
Width := 50;
Width := Height;
Anchors := [akRight];
AnchorParallel(akRight, 6, AddPathsGroupBox);
AnchorParallel(akTop, 0, UnitPathEdit);
@ -133,7 +147,7 @@ begin
Parent := AddPathsGroupBox;
Caption := '...';
AutoSize := False;
Width := 50;
Width := Height;
Anchors := [akRight];
AnchorParallel(akRight, 6, AddPathsGroupBox);
AnchorParallel(akTop, 0, IncludePathEdit);
@ -151,7 +165,7 @@ begin
Parent := AddPathsGroupBox;
Caption := '...';
AutoSize := False;
Width := 50;
Width := Height;
Anchors := [akRight];
AnchorParallel(akRight, 6, AddPathsGroupBox);
AnchorParallel(akTop, 0, ObjectPathEdit);
@ -169,7 +183,7 @@ begin
Parent := AddPathsGroupBox;
Caption := '...';
AutoSize := False;
Width := 50;
Width := Height;
Anchors := [akRight];
AnchorParallel(akRight, 6, AddPathsGroupBox);
AnchorParallel(akTop, 0, LibraryPathEdit);