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

IDE: configure build lazarus: show clean all option for non writable fallback directory too

Browse Source
This commit is contained in:
mattias 2023-04-20 04:13:44 +02:00
parent dd5684f87d
commit b9995e5f0e
2 changed files with 113 additions and 153 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

233
ide/buildlazdialog.lfm
View File

@ -15,24 +15,24 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.3.0.0'
object CBLDBtnPanel: TPanel object CBLDBtnPanel: TPanel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 38 Height = 60
Top = 442 Top = 420
Width = 700 Width = 700
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 38 ClientHeight = 60
ClientWidth = 700 ClientWidth = 700
TabOrder = 0 TabOrder = 0
object CancelButton: TBitBtn object CancelButton: TBitBtn
Left = 612 Left = 606
Height = 26 Height = 48
Top = 6 Top = 6
Width = 82 Width = 88
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -44,9 +44,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end end
object SaveSettingsButton: TBitBtn object SaveSettingsButton: TBitBtn
Left = 512 Left = 512
Height = 26 Height = 48
Top = 6 Top = 6
Width = 94 Width = 88
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -55,10 +55,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 3 TabOrder = 3
end end
object CompileButton: TBitBtn object CompileButton: TBitBtn
Left = 302 Left = 323
Height = 26 Height = 48
Top = 6 Top = 6
Width = 71 Width = 60
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -68,9 +68,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end end
object HelpButton: TBitBtn object HelpButton: TBitBtn
Left = 6 Left = 6
Height = 26 Height = 48
Top = 6 Top = 6
Width = 71 Width = 77
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -80,10 +80,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 0 TabOrder = 0
end end
object CompileAdvancedButton: TBitBtn object CompileAdvancedButton: TBitBtn
Left = 379 Left = 389
Height = 26 Height = 48
Top = 6 Top = 6
Width = 127 Width = 117
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -94,7 +94,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 442 Height = 420
Top = 0 Top = 0
Width = 700 Width = 700
ActivePage = BuildTabSheet ActivePage = BuildTabSheet
@ -103,18 +103,18 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 1 TabOrder = 1
object BuildTabSheet: TTabSheet object BuildTabSheet: TTabSheet
Caption = 'BuildTabSheet' Caption = 'BuildTabSheet'
ClientHeight = 414 ClientHeight = 391
ClientWidth = 692 ClientWidth = 690
object DetailsPanel: TPanel object DetailsPanel: TPanel
Left = 0 Left = 0
Height = 414 Height = 391
Top = 0 Top = 0
Width = 692 Width = 690
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 414 ClientHeight = 391
ClientWidth = 692 ClientWidth = 690
TabOrder = 0 TabOrder = 0
object BuildProfileLabel: TLabel object BuildProfileLabel: TLabel
AnchorSideLeft.Control = DetailsPanel AnchorSideLeft.Control = DetailsPanel
@ -123,7 +123,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
Left = 6 Left = 6
Height = 15 Height = 15
Top = 11 Top = 11
Width = 83 Width = 86
BorderSpacing.Top = 5 BorderSpacing.Top = 5
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Profile to Build' Caption = 'Profile to Build'
@ -136,15 +136,15 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BuildProfileButton AnchorSideRight.Control = BuildProfileButton
Left = 95 Left = 98
Height = 23 Height = 31
Hint = 'Name of the active profile.' Hint = 'Name of the active profile.'
Top = 7 Top = 3
Width = 560 Width = 555
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 15 ItemHeight = 0
OnSelect = BuildProfileComboBoxSelect OnSelect = BuildProfileComboBoxSelect
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -157,10 +157,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BuildProfileComboBox AnchorSideBottom.Control = BuildProfileComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 661 Left = 659
Height = 23 Height = 31
Hint = 'Manage profiles' Hint = 'Manage profiles'
Top = 7 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -177,8 +177,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 80 Top = 92
Width = 42 Width = 43
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Options' Caption = 'Options'
@ -194,8 +194,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
Left = 6 Left = 6
Height = 56 Height = 56
Hint = 'Options passed to compiler' Hint = 'Options passed to compiler'
Top = 95 Top = 107
Width = 680 Width = 678
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Lines.Strings = ( Lines.Strings = (
'' ''
@ -212,8 +212,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 201 Top = 222
Width = 39 Width = 43
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Defines' Caption = 'Defines'
@ -226,16 +226,17 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = CleanUpGroupBox AnchorSideRight.Control = CleanUpGroupBox
AnchorSideBottom.Control = CommonsDividerBevel AnchorSideBottom.Control = CommonsDividerBevel
Left = 6 Left = 6
Height = 133 Height = 89
Hint = 'Defines without -d' Hint = 'Defines without -d'
Top = 216 Top = 237
Width = 491 Width = 484
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0 ItemHeight = 0
ParentShowHint = False ParentShowHint = False
PopupMenu = OptionsPopupMenu PopupMenu = OptionsPopupMenu
ShowHint = True ShowHint = True
TabOrder = 2 TabOrder = 2
TopIndex = -1
end end
object LCLWidgetTypeLabel: TLabel object LCLWidgetTypeLabel: TLabel
AnchorSideLeft.Control = BuildProfileLabel AnchorSideLeft.Control = BuildProfileLabel
@ -243,8 +244,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 36 Top = 40
Width = 88 Width = 92
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'LCL Widget Type' Caption = 'LCL Widget Type'
ParentColor = False ParentColor = False
@ -255,10 +256,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 31
Top = 51 Top = 55
Width = 209 Width = 209
ItemHeight = 15 ItemHeight = 0
Style = csDropDownList Style = csDropDownList
TabOrder = 3 TabOrder = 3
end end
@ -268,8 +269,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 157 Top = 169
Width = 83 Width = 92
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Target Directory' Caption = 'Target Directory'
@ -281,12 +282,12 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TargetDirectoryButton AnchorSideRight.Control = TargetDirectoryButton
Left = 6 Left = 6
Height = 23 Height = 32
Top = 172 Top = 184
Width = 649 Width = 647
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 15 ItemHeight = 0
TabOrder = 5 TabOrder = 5
end end
object TargetOSLabel: TLabel object TargetOSLabel: TLabel
@ -296,8 +297,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 221 Left = 221
Height = 15 Height = 15
Top = 36 Top = 40
Width = 50 Width = 54
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -311,8 +312,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 451 Left = 451
Height = 15 Height = 15
Top = 36 Top = 40
Width = 58 Width = 61
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -324,11 +325,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ConfirmBuildCheckBox AnchorSideTop.Control = ConfirmBuildCheckBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 436 Left = 457
Height = 19 Height = 23
Hint = 'Increment revision? (ToDo: get a better hint)' Hint = 'Increment revision? (ToDo: get a better hint)'
Top = 373 Top = 351
Width = 171 Width = 182
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'UpdateRevisionIncCheckBox' Caption = 'UpdateRevisionIncCheckBox'
ParentShowHint = False ParentShowHint = False
@ -342,11 +343,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = OptionsMemo AnchorSideRight.Control = OptionsMemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 451 Left = 451
Height = 23 Height = 32
Top = 51 Top = 55
Width = 235 Width = 233
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 15 ItemHeight = 0
TabOrder = 8 TabOrder = 8
end end
object CommonsDividerBevel: TDividerBevel object CommonsDividerBevel: TDividerBevel
@ -356,8 +357,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 349 Top = 326
Width = 680 Width = 678
Caption = 'CommonsDividerBevel' Caption = 'CommonsDividerBevel'
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -372,11 +373,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = DefinesButton AnchorSideTop.Control = DefinesButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 106 Left = 102
Height = 19 Height = 23
Hint = 'Restart Lazarus automatically after building the IDE. Has no effect when building other parts' Hint = 'Restart Lazarus automatically after building the IDE. Has no effect when building other parts'
Top = 373 Top = 351
Width = 162 Width = 179
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 7 BorderSpacing.Top = 7
Caption = 'RestartAfterBuildCheckBox' Caption = 'RestartAfterBuildCheckBox'
@ -388,11 +389,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Control = RestartAfterBuildCheckBox AnchorSideLeft.Control = RestartAfterBuildCheckBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RestartAfterBuildCheckBox AnchorSideTop.Control = RestartAfterBuildCheckBox
Left = 280 Left = 293
Height = 19 Height = 23
Hint = 'Show confirmation dialog when building directly from Tools menu' Hint = 'Show confirmation dialog when building directly from Tools menu'
Top = 373 Top = 351
Width = 144 Width = 152
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'ConfirmBuildCheckBox' Caption = 'ConfirmBuildCheckBox'
ParentShowHint = False ParentShowHint = False
@ -406,10 +407,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 31
Hint = 'Edit list of defines which can be used by any profile' Hint = 'Edit list of defines which can be used by any profile'
Top = 370 Top = 347
Width = 88 Width = 84
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'Edit Defines' Caption = 'Edit Defines'
@ -425,9 +426,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TargetDirectoryComboBox AnchorSideBottom.Control = TargetDirectoryComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 661 Left = 659
Height = 23 Height = 32
Top = 172 Top = 184
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -443,10 +444,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = LCLWidgetTypeComboBox AnchorSideRight.Control = LCLWidgetTypeComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 221 Left = 221
Height = 23 Height = 32
Top = 51 Top = 55
Width = 224 Width = 224
ItemHeight = 15 ItemHeight = 0
TabOrder = 7 TabOrder = 7
end end
object CleanUpGroupBox: TGroupBox object CleanUpGroupBox: TGroupBox
@ -457,10 +458,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CommonsDividerBevel AnchorSideBottom.Control = CommonsDividerBevel
Left = 503 Left = 496
Height = 148 Height = 104
Top = 201 Top = 222
Width = 183 Width = 188
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -474,18 +475,17 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 128 ClientHeight = 88
ClientWidth = 179 ClientWidth = 186
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 13 TabOrder = 13
object CleanAutoRadioButton: TRadioButton object CleanAutoRadioButton: TRadioButton
AnchorSideTop.Control = CleanCommonCheckBox AnchorSideTop.Control = CleanUpGroupBox
AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 23
Top = 31 Top = 6
Width = 142 Width = 153
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CleanAutoRadioButton' Caption = 'CleanAutoRadioButton'
Checked = True Checked = True
@ -497,9 +497,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = CleanAutoRadioButton AnchorSideTop.Control = CleanAutoRadioButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 23
Top = 56 Top = 35
Width = 167 Width = 174
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CleanCommonRadioButton' Caption = 'CleanCommonRadioButton'
OnClick = CleanRadioButtonClick OnClick = CleanRadioButtonClick
@ -509,9 +509,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = CleanCommonRadioButton AnchorSideTop.Control = CleanCommonRadioButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 23
Top = 81 Top = 64
Width = 130 Width = 140
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CleanAllRadioButton' Caption = 'CleanAllRadioButton'
OnClick = CleanRadioButtonClick OnClick = CleanRadioButtonClick
@ -521,47 +521,36 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = CleanAllRadioButton AnchorSideTop.Control = CleanAllRadioButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 23
Top = 106 Top = 93
Width = 131 Width = 139
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CleanOnceCheckBox' Caption = 'CleanOnceCheckBox'
TabOrder = 3 TabOrder = 3
end end
object CleanCommonCheckBox: TCheckBox
AnchorSideTop.Control = CleanUpGroupBox
Left = 6
Height = 19
Top = 6
Width = 154
BorderSpacing.Top = 6
Caption = 'CleanCommonCheckBox'
OnClick = CleanCommonCheckBoxClick
TabOrder = 4
Visible = False
end
end end
end end
end end
object InfoTabSheet: TTabSheet object InfoTabSheet: TTabSheet
Caption = 'InfoTabSheet' Caption = 'InfoTabSheet'
ClientHeight = 408 ClientHeight = 391
ClientWidth = 696 ClientWidth = 690
object InhTreeView: TTreeView object InhTreeView: TTreeView
Left = 0 Left = 0
Height = 414 Height = 391
Top = 0 Top = 0
Width = 692 Width = 690
Align = alClient Align = alClient
ReadOnly = True ReadOnly = True
ShowSeparators = False
TabOrder = 0 TabOrder = 0
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end end
end end
end end
object OptionsPopupMenu: TPopupMenu object OptionsPopupMenu: TPopupMenu
left = 320 Left = 320
top = 592 Top = 592
object ShowOptsMenuItem: TMenuItem object ShowOptsMenuItem: TMenuItem
Caption = 'Show options and defines for cmd line' Caption = 'Show options and defines for cmd line'
OnClick = ShowOptsMenuItemClick OnClick = ShowOptsMenuItemClick

33
ide/buildlazdialog.pas
View File

@ -85,7 +85,6 @@ type
CleanAutoRadioButton: TRadioButton; CleanAutoRadioButton: TRadioButton;
CleanCommonRadioButton: TRadioButton; CleanCommonRadioButton: TRadioButton;
CleanOnceCheckBox: TCheckBox; CleanOnceCheckBox: TCheckBox;
CleanCommonCheckBox: TCheckBox;
CommonsDividerBevel: TDividerBevel; CommonsDividerBevel: TDividerBevel;
ConfirmBuildCheckBox: TCheckBox; ConfirmBuildCheckBox: TCheckBox;
DefinesButton: TButton; DefinesButton: TButton;
@ -125,7 +124,6 @@ type
procedure BuildProfileButtonClick(Sender: TObject); procedure BuildProfileButtonClick(Sender: TObject);
procedure BuildProfileComboBoxSelect(Sender: TObject); procedure BuildProfileComboBoxSelect(Sender: TObject);
procedure CleanRadioButtonClick(Sender: TObject); procedure CleanRadioButtonClick(Sender: TObject);
procedure CleanCommonCheckBoxClick(Sender: TObject);
procedure CompileAdvancedButtonClick(Sender: TObject); procedure CompileAdvancedButtonClick(Sender: TObject);
procedure CompileButtonClick(Sender: TObject); procedure CompileButtonClick(Sender: TObject);
procedure DefinesButtonClick(Sender: TObject); procedure DefinesButtonClick(Sender: TObject);
@ -148,7 +146,6 @@ type
procedure SetupInfoPage; procedure SetupInfoPage;
procedure UpdateInheritedTree; procedure UpdateInheritedTree;
procedure PrepareClose; procedure PrepareClose;
procedure ShowHideCleanup(aShow: Boolean);
public public
constructor Create(TheOwner: TComponent); overload; reintroduce; constructor Create(TheOwner: TComponent); overload; reintroduce;
destructor Destroy; override; destructor Destroy; override;
@ -498,6 +495,7 @@ begin
end; end;
// when cleaning, always clean up fallback output directory too // when cleaning, always clean up fallback output directory too
// Note: fallback = when lazarusdir is readonly
if (IdeBuildMode=bmCleanAllBuild) and (not (blfOnlyIDE in Flags)) then if (IdeBuildMode=bmCleanAllBuild) and (not (blfOnlyIDE in Flags)) then
begin begin
// clean up fallback package output directories // clean up fallback package output directories
@ -581,7 +579,7 @@ begin
Tool:=ExternalToolList.Add('make distclean'); Tool:=ExternalToolList.Add('make distclean');
Tool.Reference(Self,ClassName); Tool.Reference(Self,ClassName);
try try
Tool.Data:=TIDEExternalToolData.Create(IDEToolCompileIDE,'make distclean', Tool.Data:=TIDEExternalToolData.Create(IDEToolCompileIDE,Tool.Title,
MakeExe); MakeExe);
Tool.FreeData:=true; Tool.FreeData:=true;
Tool.Process.Executable:=MakeExe; Tool.Process.Executable:=MakeExe;
@ -1150,7 +1148,6 @@ begin
CleanAllRadioButton.Caption:=lisCleanAll; CleanAllRadioButton.Caption:=lisCleanAll;
CleanOnceCheckBox.Caption:=lisCleanOnlyOnce; CleanOnceCheckBox.Caption:=lisCleanOnlyOnce;
CleanOnceCheckBox.Hint:=lisAfterCleaningUpSwitchToAutomaticClean; CleanOnceCheckBox.Hint:=lisAfterCleaningUpSwitchToAutomaticClean;
CleanCommonCheckBox.Caption:=lisCleanCommonFiles;
UpdateRevisionIncCheckBox.Caption := lisLazBuildUpdateRevInc; UpdateRevisionIncCheckBox.Caption := lisLazBuildUpdateRevInc;
UpdateRevisionIncCheckBox.Hint := lisLazBuildUpdateRevisionInfoInAboutLazarusDialog; UpdateRevisionIncCheckBox.Hint := lisLazBuildUpdateRevisionInfoInAboutLazarusDialog;
@ -1299,7 +1296,6 @@ begin
CleanAutoRadioButton.OnClick:=Nil; CleanAutoRadioButton.OnClick:=Nil;
CleanCommonRadioButton.OnClick:=Nil; CleanCommonRadioButton.OnClick:=Nil;
CleanAllRadioButton.OnClick:=Nil; CleanAllRadioButton.OnClick:=Nil;
CleanCommonCheckBox.OnClick:=Nil;
try try
LCLWidgetTypeComboBox.ItemIndex :=ord(AProfile.TargetPlatform); LCLWidgetTypeComboBox.ItemIndex :=ord(AProfile.TargetPlatform);
UpdateRevisionIncCheckBox.Checked :=AProfile.UpdateRevisionInc; UpdateRevisionIncCheckBox.Checked :=AProfile.UpdateRevisionInc;
@ -1311,7 +1307,6 @@ begin
bmCleanBuild: CleanCommonRadioButton.Checked:=true; bmCleanBuild: CleanCommonRadioButton.Checked:=true;
bmCleanAllBuild: CleanAllRadioButton.Checked:=true; bmCleanAllBuild: CleanAllRadioButton.Checked:=true;
end; end;
CleanCommonCheckBox.Checked := AProfile.IdeBuildMode=bmCleanAllBuild;
CleanOnceCheckBox.Checked:=AProfile.CleanOnce; CleanOnceCheckBox.Checked:=AProfile.CleanOnce;
OptionsMemo.Lines.Assign(AProfile.OptionsLines); OptionsMemo.Lines.Assign(AProfile.OptionsLines);
for i:=0 to DefinesListBox.Items.Count-1 do for i:=0 to DefinesListBox.Items.Count-1 do
@ -1320,7 +1315,6 @@ begin
CleanAutoRadioButton.OnClick:=@CleanRadioButtonClick; CleanAutoRadioButton.OnClick:=@CleanRadioButtonClick;
CleanCommonRadioButton.OnClick:=@CleanRadioButtonClick; CleanCommonRadioButton.OnClick:=@CleanRadioButtonClick;
CleanAllRadioButton.OnClick:=@CleanRadioButtonClick; CleanAllRadioButton.OnClick:=@CleanRadioButtonClick;
CleanCommonCheckBox.OnClick:=@CleanCommonCheckBoxClick;
end; end;
end; end;
@ -1369,7 +1363,6 @@ begin
BuildProfileComboBox.Items.Add(fProfiles[i].Name); BuildProfileComboBox.Items.Add(fProfiles[i].Name);
BuildProfileCombobox.ItemIndex:=fProfiles.CurrentIndex; BuildProfileCombobox.ItemIndex:=fProfiles.CurrentIndex;
CopyProfileToUI(fProfiles.Current); // Copy current selection to UI. CopyProfileToUI(fProfiles.Current); // Copy current selection to UI.
ShowHideCleanup(not fBuilder.IsWriteProtected(fProfiles.Current));
BuildProfileComboBox.Items.EndUpdate; BuildProfileComboBox.Items.EndUpdate;
fUpdatingProfileCombo:=False; fUpdatingProfileCombo:=False;
RestartAfterBuildCheckBox.Checked:=fProfiles.RestartAfterBuild; RestartAfterBuildCheckBox.Checked:=fProfiles.RestartAfterBuild;
@ -1460,16 +1453,6 @@ begin
Format(lisMenuBuildLazarusProf, [fProfiles.Current.Name]); Format(lisMenuBuildLazarusProf, [fProfiles.Current.Name]);
end; end;
procedure TConfigureBuildLazarusDlg.ShowHideCleanup(aShow: Boolean);
// When target directory is read-only, hide Radiobuttons and show a single checkbox.
begin
CleanAutoRadioButton.Visible:=aShow;
CleanCommonRadioButton.Visible:=aShow;
CleanAllRadioButton.Visible:=aShow;
CleanOnceCheckBox.Visible:=aShow;
CleanCommonCheckBox.Visible:=not aShow;
end;
procedure TConfigureBuildLazarusDlg.CompileAdvancedButtonClick(Sender: TObject); procedure TConfigureBuildLazarusDlg.CompileAdvancedButtonClick(Sender: TObject);
// mrOk=change selected profiles. Selected profiles will be saved or discarded // mrOk=change selected profiles. Selected profiles will be saved or discarded
// depending on the calling dialog // depending on the calling dialog
@ -1572,22 +1555,10 @@ begin
CopyUIToProfile(fProfiles.Current); // Save old selection from UI. CopyUIToProfile(fProfiles.Current); // Save old selection from UI.
fProfiles.CurrentIndex:=(Sender as TComboBox).ItemIndex; fProfiles.CurrentIndex:=(Sender as TComboBox).ItemIndex;
CopyProfileToUI(fProfiles.Current); // Copy new selection to UI. CopyProfileToUI(fProfiles.Current); // Copy new selection to UI.
ShowHideCleanup(not fBuilder.IsWriteProtected(fProfiles.Current));
end; end;
procedure TConfigureBuildLazarusDlg.CleanRadioButtonClick(Sender: TObject); procedure TConfigureBuildLazarusDlg.CleanRadioButtonClick(Sender: TObject);
begin begin
CleanCommonCheckBox.Checked:=CleanAllRadioButton.Checked;
//DebugLn(['TConfigureBuildLazarusDlg.CleanRadioButtonClick: set CleanCommonCheckBox to ', CleanCommonRadioButton.Checked]);
end;
procedure TConfigureBuildLazarusDlg.CleanCommonCheckBoxClick(Sender: TObject);
begin
if CleanCommonCheckBox.Checked then
CleanAllRadioButton.Checked:=True
else
CleanAutoRadioButton.Checked:=True;
//DebugLn(['TConfigureBuildLazarusDlg.CleanCommonCheckBoxClick: set CleanCommonRadioButton to ', CleanCommonCheckBox.Checked]);
end; end;
end. end.