IDE: BuildLazDialog tweaking

git-svn-id: trunk@42260 -

ide/buildlazdialog.lfm

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

ide/buildlazdialog.pas

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