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

IDE: BuildLazDialog tweaking

Browse Source 
git-svn-id: trunk@42260 -
This commit is contained in:
juha 2013-08-02 11:29:32 +00:00
parent 14551f1eae
commit fb8eeff160
2 changed files with 95 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

189
ide/buildlazdialog.lfm
View File

@ -19,20 +19,20 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
object CBLDBtnPanel: TPanel object CBLDBtnPanel: TPanel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 40 Height = 45
Top = 440 Top = 435
Width = 700 Width = 700
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 40 ClientHeight = 45
ClientWidth = 700 ClientWidth = 700
TabOrder = 0 TabOrder = 0
object CancelButton: TBitBtn object CancelButton: TBitBtn
Left = 626 Left = 604
Height = 28 Height = 33
Top = 6 Top = 6
Width = 68 Width = 90
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -43,10 +43,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
TabOrder = 4 TabOrder = 4
end end
object SaveSettingsButton: TBitBtn object SaveSettingsButton: TBitBtn
Left = 536 Left = 499
Height = 28 Height = 33
Top = 6 Top = 6
Width = 84 Width = 99
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 = 355 Left = 296
Height = 28 Height = 33
Top = 6 Top = 6
Width = 56 Width = 63
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 = 28 Height = 33
Top = 6 Top = 6
Width = 57 Width = 76
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 = 417 Left = 365
Height = 28 Height = 33
Top = 6 Top = 6
Width = 113 Width = 128
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -94,26 +94,26 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 440 Height = 435
Top = 0 Top = 0
Width = 700 Width = 700
ActivePage = InfoTabSheet ActivePage = BuildTabSheet
Align = alClient Align = alClient
TabIndex = 1 TabIndex = 0
TabOrder = 1 TabOrder = 1
object BuildTabSheet: TTabSheet object BuildTabSheet: TTabSheet
Caption = 'BuildTabSheet' Caption = 'BuildTabSheet'
ClientHeight = 411 ClientHeight = 410
ClientWidth = 696 ClientWidth = 696
object DetailsPanel: TPanel object DetailsPanel: TPanel
Left = 0 Left = 0
Height = 411 Height = 410
Top = 0 Top = 0
Width = 696 Width = 696
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 411 ClientHeight = 410
ClientWidth = 696 ClientWidth = 696
TabOrder = 0 TabOrder = 0
object BuildProfileLabel: TLabel object BuildProfileLabel: TLabel
@ -122,8 +122,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 15 Height = 15
Top = 13 Top = 11
Width = 87 Width = 104
BorderSpacing.Top = 5 BorderSpacing.Top = 5
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Profile to Build' Caption = 'Profile to Build'
@ -136,11 +136,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BuildProfileButton AnchorSideRight.Control = BuildProfileButton
Left = 99 Left = 116
Height = 29 Height = 25
Hint = 'Name of the active profile.' Hint = 'Name of the active profile.'
Top = 6 Top = 6
Width = 564 Width = 542
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -157,11 +157,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 669 Left = 664
Height = 27 Height = 25
Hint = 'Manage profiles' Hint = 'Manage profiles'
Top = 7 Top = 6
Width = 21 Width = 26
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -178,8 +178,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 91 Top = 83
Width = 43 Width = 48
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Options' Caption = 'Options'
@ -195,7 +195,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
Left = 6 Left = 6
Height = 56 Height = 56
Hint = 'Options passed to compiler' Hint = 'Options passed to compiler'
Top = 106 Top = 98
Width = 684 Width = 684
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Lines.Strings = ( Lines.Strings = (
@ -213,8 +213,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 216 Top = 206
Width = 43 Width = 47
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Defines' Caption = 'Defines'
@ -227,17 +227,16 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = CleanUpGroupBox AnchorSideRight.Control = CleanUpGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 101 Height = 110
Hint = 'Defines without -d' Hint = 'Defines without -d'
Top = 231 Top = 221
Width = 488 Width = 473
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
@ -245,8 +244,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 41 Top = 37
Width = 92 Width = 98
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'LCL Widget Type' Caption = 'LCL Widget Type'
ParentColor = False ParentColor = False
@ -257,8 +256,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 25
Top = 56 Top = 52
Width = 209 Width = 209
ItemHeight = 0 ItemHeight = 0
Style = csDropDownList Style = csDropDownList
@ -270,8 +269,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 168 Top = 160
Width = 93 Width = 100
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Target Directory' Caption = 'Target Directory'
@ -283,9 +282,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TargetDirectoryButton AnchorSideRight.Control = TargetDirectoryButton
Left = 6 Left = 6
Height = 27 Height = 25
Top = 183 Top = 175
Width = 657 Width = 652
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 0 ItemHeight = 0
@ -298,8 +297,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 221 Left = 221
Height = 15 Height = 15
Top = 41 Top = 37
Width = 55 Width = 60
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -313,8 +312,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 451 Left = 451
Height = 15 Height = 15
Top = 41 Top = 37
Width = 62 Width = 68
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -326,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 = 453 Left = 481
Height = 24 Height = 21
Hint = 'Increment revision? (ToDo: get a better hint)' Hint = 'Increment revision? (ToDo: get a better hint)'
Top = 368 Top = 368
Width = 182 Width = 198
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'UpdateRevisionIncCheckBox' Caption = 'UpdateRevisionIncCheckBox'
ParentShowHint = False ParentShowHint = False
@ -344,8 +343,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = OptionsMemo AnchorSideRight.Control = OptionsMemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 451 Left = 451
Height = 27 Height = 25
Top = 56 Top = 52
Width = 239 Width = 239
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ItemHeight = 0 ItemHeight = 0
@ -358,14 +357,14 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 346 Top = 345
Width = 684 Width = 684
Caption = 'CommonsDividerBevel'
AutoSize = True AutoSize = True
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'CommonsDividerBevel'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
@ -375,11 +374,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Control = DefinesButton AnchorSideTop.Control = DefinesButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 98 Left = 107
Height = 24 Height = 21
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 = 368 Top = 368
Width = 179 Width = 189
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 7 BorderSpacing.Top = 7
Caption = 'RestartAfterBuildCheckBox' Caption = 'RestartAfterBuildCheckBox'
@ -391,11 +390,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideLeft.Control = RestartAfterBuildCheckBox AnchorSideLeft.Control = RestartAfterBuildCheckBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RestartAfterBuildCheckBox AnchorSideTop.Control = RestartAfterBuildCheckBox
Left = 289 Left = 308
Height = 24 Height = 21
Hint = 'Show confirmation dialog when building directly from Tools menu' Hint = 'Show confirmation dialog when building directly from Tools menu'
Top = 368 Top = 368
Width = 152 Width = 161
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'ConfirmBuildCheckBox' Caption = 'ConfirmBuildCheckBox'
ParentShowHint = False ParentShowHint = False
@ -409,10 +408,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 27 Height = 25
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 = 367 Top = 366
Width = 80 Width = 89
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'Edit Defines' Caption = 'Edit Defines'
@ -428,10 +427,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = DetailsPanel AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 669 Left = 664
Height = 27 Height = 25
Top = 183 Top = 175
Width = 21 Width = 26
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -447,8 +446,8 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideRight.Control = LCLWidgetTypeComboBox AnchorSideRight.Control = LCLWidgetTypeComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 221 Left = 221
Height = 27 Height = 25
Top = 56 Top = 52
Width = 224 Width = 224
ItemHeight = 0 ItemHeight = 0
TabOrder = 7 TabOrder = 7
@ -460,10 +459,10 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DetailsPanel AnchorSideRight.Control = DetailsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 500 Left = 485
Height = 131 Height = 121
Top = 216 Top = 206
Width = 190 Width = 205
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -478,16 +477,16 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 114 ClientHeight = 102
ClientWidth = 186 ClientWidth = 201
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 13 TabOrder = 13
object CleanAutoRadioButton: TRadioButton object CleanAutoRadioButton: TRadioButton
Left = 6 Left = 6
Height = 24 Height = 21
Top = 6 Top = 6
Width = 174 Width = 189
Caption = 'CleanAutoRadioButton' Caption = 'CleanAutoRadioButton'
Checked = True Checked = True
TabOrder = 0 TabOrder = 0
@ -495,25 +494,25 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end end
object CleanCommonRadioButton: TRadioButton object CleanCommonRadioButton: TRadioButton
Left = 6 Left = 6
Height = 24 Height = 21
Top = 30 Top = 27
Width = 174 Width = 189
Caption = 'CleanCommonRadioButton' Caption = 'CleanCommonRadioButton'
TabOrder = 1 TabOrder = 1
end end
object CleanAllRadioButton: TRadioButton object CleanAllRadioButton: TRadioButton
Left = 6 Left = 6
Height = 24 Height = 21
Top = 54 Top = 48
Width = 174 Width = 189
Caption = 'CleanAllRadioButton' Caption = 'CleanAllRadioButton'
TabOrder = 2 TabOrder = 2
end end
object CleanOnceCheckBox: TCheckBox object CleanOnceCheckBox: TCheckBox
Left = 6 Left = 6
Height = 24 Height = 21
Top = 84 Top = 75
Width = 174 Width = 189
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'CleanOnceCheckBox' Caption = 'CleanOnceCheckBox'
TabOrder = 3 TabOrder = 3
@ -523,11 +522,11 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
end end
object InfoTabSheet: TTabSheet object InfoTabSheet: TTabSheet
Caption = 'InfoTabSheet' Caption = 'InfoTabSheet'
ClientHeight = 411 ClientHeight = 410
ClientWidth = 696 ClientWidth = 696
object InhTreeView: TTreeView object InhTreeView: TTreeView
Left = 0 Left = 0
Height = 411 Height = 410
Top = 0 Top = 0
Width = 696 Width = 696
Align = alClient Align = alClient

2
ide/buildlazdialog.pas
View File

@ -1194,7 +1194,7 @@ var
begin begin
EditForm:=TGenericListEditForm.Create(Nil); EditForm:=TGenericListEditForm.Create(Nil);
try try
EditForm.Caption:=lisLazBuildEditDefinesDialogCaption; EditForm.Caption:=lisLazBuildEditDefines;
EditForm.Memo1.Lines.Assign(fProfiles.AllDefines); EditForm.Memo1.Lines.Assign(fProfiles.AllDefines);
if EditForm.ShowModal=mrOK then begin if EditForm.ShowModal=mrOK then begin
CopyUIToProfile(fProfiles.Current); // Make sure changed fields don't get lost. CopyUIToProfile(fProfiles.Current); // Make sure changed fields don't get lost.