IDE: made options memo in Show Compiler Options dialog read-only

This commit is contained in:
Maxim Ganetsky 2024-07-20 02:01:01 +03:00
parent 8d0afe3d1f
commit e572621c4b

View File

@ -1,67 +1,68 @@
object ShowCompilerOptionsDlg: TShowCompilerOptionsDlg object ShowCompilerOptionsDlg: TShowCompilerOptionsDlg
Left = 341 Left = 341
Height = 420 Height = 472
Top = 318 Top = 318
Width = 645 Width = 726
Caption = 'Compiler Options' Caption = 'Compiler Options'
ClientHeight = 420 ClientHeight = 472
ClientWidth = 645 ClientWidth = 726
Constraints.MinHeight = 194 Constraints.MinHeight = 218
Constraints.MinWidth = 390 Constraints.MinWidth = 439
DesignTimePPI = 108
Position = poOwnerFormCenter
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
Position = poOwnerFormCenter
LCLVersion = '2.1.0.0'
object CloseButton: TBitBtn object CloseButton: TBitBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 564 Left = 635
Height = 29 Height = 38
Top = 385 Top = 427
Width = 75 Width = 84
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 7
Cancel = True Cancel = True
Caption = '&Close' Caption = '&Close'
Constraints.MinHeight = 22 Constraints.MinHeight = 25
Constraints.MinWidth = 75 Constraints.MinWidth = 84
Default = True Default = True
Kind = bkClose Kind = bkClose
TabOrder = 1 TabOrder = 1
end end
object PageControl1: TPageControl object PageControl1: TPageControl
AnchorSideBottom.Control = CloseButton AnchorSideBottom.Control = CloseButton
Left = 6 Left = 7
Height = 373 Height = 413
Top = 6 Top = 7
Width = 633 Width = 712
ActivePage = CmdLineParamsTabSheet ActivePage = CmdLineParamsTabSheet
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 7
TabIndex = 0 TabIndex = 0
TabOrder = 0 TabOrder = 0
object CmdLineParamsTabSheet: TTabSheet object CmdLineParamsTabSheet: TTabSheet
Caption = 'CmdLineParams' Caption = 'CmdLineParams'
ClientHeight = 342 ClientHeight = 381
ClientWidth = 629 ClientWidth = 702
object CmdLineMemo: TMemo object CmdLineMemo: TMemo
AnchorSideBottom.Control = RelativePathsCheckBox AnchorSideBottom.Control = RelativePathsCheckBox
Left = 6 Left = 7
Height = 306 Height = 344
Top = 6 Top = 7
Width = 617 Width = 688
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 7
Lines.Strings = ( Lines.Strings = (
'CmdLineMemo' 'CmdLineMemo'
) )
ReadOnly = True
ScrollBars = ssAutoVertical ScrollBars = ssAutoVertical
TabOrder = 0 TabOrder = 0
end end
@ -69,55 +70,55 @@ object ShowCompilerOptionsDlg: TShowCompilerOptionsDlg
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Control = CmdLineParamsTabSheet AnchorSideBottom.Control = CmdLineParamsTabSheet
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 7
Height = 24 Height = 23
Top = 318 Top = 358
Width = 184 Width = 182
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'RelativePathsCheckBox' Caption = 'RelativePathsCheckBox'
Checked = True Checked = True
OnChange = RelativePathsCheckBoxChange
State = cbChecked State = cbChecked
TabOrder = 1 TabOrder = 1
OnChange = RelativePathsCheckBoxChange
end end
object MultilineCheckBox: TCheckBox object MultilineCheckBox: TCheckBox
AnchorSideLeft.Control = RelativePathsCheckBox AnchorSideLeft.Control = RelativePathsCheckBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RelativePathsCheckBox AnchorSideTop.Control = RelativePathsCheckBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 205 Left = 206
Height = 24 Height = 23
Top = 318 Top = 358
Width = 151 Width = 151
BorderSpacing.Left = 15 BorderSpacing.Left = 17
Caption = 'MultilineCheckBox' Caption = 'MultilineCheckBox'
Checked = True Checked = True
OnChange = MultilineCheckBoxChange
State = cbChecked State = cbChecked
TabOrder = 2 TabOrder = 2
OnChange = MultilineCheckBoxChange
end end
end end
object InheritedParamsTabSheet: TTabSheet object InheritedParamsTabSheet: TTabSheet
Caption = 'InheritedParams' Caption = 'InheritedParams'
ClientHeight = 342 ClientHeight = 381
ClientWidth = 629 ClientWidth = 702
object InhTreeView: TTreeView object InhTreeView: TTreeView
Left = 0 Left = 0
Height = 287 Height = 306
Top = 0 Top = 0
Width = 477 Width = 702
Align = alClient Align = alClient
ReadOnly = True ReadOnly = True
RightClickSelect = True RightClickSelect = True
TabOrder = 0 TabOrder = 0
OnSelectionChanged = InhTreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
OnSelectionChanged = InhTreeViewSelectionChanged
end end
object InhItemMemo: TMemo object InhItemMemo: TMemo
Left = 0 Left = 0
Height = 61 Height = 69
Top = 292 Top = 312
Width = 477 Width = 702
Align = alBottom Align = alBottom
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoVertical ScrollBars = ssAutoVertical
@ -126,9 +127,9 @@ object ShowCompilerOptionsDlg: TShowCompilerOptionsDlg
object InhSplitter: TSplitter object InhSplitter: TSplitter
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 6
Top = 287 Top = 306
Width = 477 Width = 702
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
end end