IDE: In Project Options -> Application, add divider for Windows and Darwin specific settings

git-svn-id: trunk@47320 -

ide/frames/project_application_options.lfm

@@ -1,32 +1,31 @@
 object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
   Left = 0
-  Height = 425
+  Height = 477
   Top = 0
-  Width = 522
-  ClientHeight = 425
-  ClientWidth = 522
+  Width = 487
+  ClientHeight = 477
+  ClientWidth = 487
   TabOrder = 0
-  DesignLeft = 1197
-  DesignTop = 317
+  DesignLeft = 392
+  DesignTop = 251
   object AppSettingsGroupBox: TGroupBox
     Left = 0
-    Height = 356
+    Height = 469
     Top = 0
-    Width = 522
+    Width = 487
     Align = alTop
-    AutoSize = True
     Caption = 'AppSettingsGroupBox'
-    ClientHeight = 338
-    ClientWidth = 518
+    ClientHeight = 444
+    ClientWidth = 483
     TabOrder = 0
     object TitleLabel: TLabel
       AnchorSideLeft.Control = AppSettingsGroupBox
       AnchorSideTop.Control = TitleEdit
       AnchorSideTop.Side = asrCenter
       Left = 6
-      Height = 15
+      Height = 20
       Top = 10
-      Width = 51
+      Width = 65
       BorderSpacing.Left = 6
       Caption = 'TitleLabel'
       ParentColor = False
@@ -35,9 +34,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideLeft.Control = AppSettingsGroupBox
       AnchorSideTop.Control = IconPanel
       Left = 6
-      Height = 15
-      Top = 35
-      Width = 51
+      Height = 20
+      Top = 40
+      Width = 64
       BorderSpacing.Left = 6
       Caption = 'IconLabel'
       ParentColor = False
@@ -49,9 +48,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = IconTrack
       Left = 240
-      Height = 15
-      Top = 176
-      Width = 80
+      Height = 20
+      Top = 178
+      Width = 99
       BorderSpacing.Left = 6
       BorderSpacing.Right = 6
       Caption = 'IconTrackLabel'
@@ -59,9 +58,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
     end
     object TitleEdit: TEdit
       Left = 106
-      Height = 23
+      Height = 28
       Top = 6
-      Width = 406
+      Width = 371
       Align = alTop
       BorderSpacing.Left = 100
       BorderSpacing.Around = 6
@@ -70,25 +69,27 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
     end
     object UseAppBundleCheckBox: TCheckBox
       AnchorSideLeft.Control = AppSettingsGroupBox
-      AnchorSideTop.Control = IconTrack
+      AnchorSideTop.Control = DarwinDividerBevel
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 19
-      Top = 209
-      Width = 150
-      BorderSpacing.Around = 6
+      Height = 24
+      Top = 372
+      Width = 186
+      BorderSpacing.Left = 6
+      BorderSpacing.Top = 3
       Caption = 'UseAppBundleCheckBox'
       TabOrder = 6
     end
     object UseXPManifestCheckBox: TCheckBox
       AnchorSideLeft.Control = AppSettingsGroupBox
-      AnchorSideTop.Control = UseAppBundleCheckBox
+      AnchorSideTop.Control = WindowsDividerBevel
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 19
+      Height = 24
       Top = 234
-      Width = 151
-      BorderSpacing.Around = 6
+      Width = 186
+      BorderSpacing.Left = 6
+      BorderSpacing.Top = 3
       Caption = 'UseXPManifestCheckBox'
       OnChange = UseXPManifestCheckBoxChange
       TabOrder = 7
@@ -99,7 +100,7 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideTop.Side = asrBottom
       Left = 106
       Height = 128
-      Top = 35
+      Top = 40
       Width = 128
       BorderSpacing.Left = 106
       BorderSpacing.Top = 6
@@ -127,9 +128,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideBottom.Control = IconPanel
       AnchorSideBottom.Side = asrBottom
       Left = 240
-      Height = 25
-      Top = 35
-      Width = 111
+      Height = 30
+      Top = 40
+      Width = 131
       AutoSize = True
       BorderSpacing.Left = 6
       Caption = 'LoadIconButton'
@@ -141,9 +142,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideTop.Control = DefaultIconButton
       AnchorSideTop.Side = asrBottom
       Left = 240
-      Height = 25
-      Top = 97
-      Width = 109
+      Height = 30
+      Top = 112
+      Width = 129
       AutoSize = True
       BorderSpacing.Top = 6
       Caption = 'SaveIconButton'
@@ -155,9 +156,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideTop.Control = SaveIconButton
       AnchorSideTop.Side = asrBottom
       Left = 240
-      Height = 25
-      Top = 128
-      Width = 112
+      Height = 30
+      Top = 148
+      Width = 132
       AutoSize = True
       BorderSpacing.Top = 6
       Caption = 'ClearIconButton'
@@ -172,7 +173,7 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideRight.Side = asrBottom
       Left = 106
       Height = 40
-      Top = 163
+      Top = 168
       Width = 128
       Max = 0
       OnChange = IconTrackChange
@@ -186,11 +187,11 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideTop.Control = UseXPManifestCheckBox
       AnchorSideTop.Side = asrBottom
       Left = 27
-      Height = 19
-      Top = 259
-      Width = 123
-      BorderSpacing.Left = 15
-      BorderSpacing.Around = 6
+      Height = 24
+      Top = 261
+      Width = 154
+      BorderSpacing.Left = 21
+      BorderSpacing.Top = 3
       Caption = 'DpiAwareCheckBox'
       TabOrder = 8
     end
@@ -199,11 +200,10 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideTop.Control = ExecutionLevelComboBox
       AnchorSideTop.Side = asrBottom
       Left = 27
-      Height = 19
-      Top = 313
-      Width = 119
-      BorderSpacing.Top = 6
-      BorderSpacing.Bottom = 6
+      Height = 24
+      Top = 319
+      Width = 146
+      BorderSpacing.Top = 3
       Caption = 'UIAccessCheckBox'
       TabOrder = 10
     end
@@ -212,12 +212,14 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = DpiAwareCheckBox
       AnchorSideTop.Side = asrBottom
-      Left = 139
-      Height = 23
-      Top = 284
-      Width = 223
-      BorderSpacing.Around = 6
-      ItemHeight = 15
+      Left = 167
+      Height = 28
+      Top = 288
+      Width = 310
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Left = 6
+      BorderSpacing.Top = 3
+      ItemHeight = 20
       Style = csDropDownList
       TabOrder = 9
     end
@@ -226,11 +228,9 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideTop.Control = ExecutionLevelComboBox
       AnchorSideTop.Side = asrCenter
       Left = 27
-      Height = 15
-      Top = 288
-      Width = 106
-      BorderSpacing.Top = 6
-      BorderSpacing.Bottom = 6
+      Height = 20
+      Top = 292
+      Width = 134
       Caption = 'ExecutionLevelLabel'
       ParentColor = False
     end
@@ -239,36 +239,63 @@ object ProjectApplicationOptionsFrame: TProjectApplicationOptionsFrame
       AnchorSideTop.Control = LoadIconButton
       AnchorSideTop.Side = asrBottom
       Left = 240
-      Height = 25
-      Top = 66
-      Width = 123
+      Height = 30
+      Top = 76
+      Width = 147
       AutoSize = True
       BorderSpacing.Top = 6
       Caption = 'DefaultIconButton'
       OnClick = DefaultIconButtonClick
       TabOrder = 11
     end
-  end
-  object CreateAppBundleButton: TBitBtn
-    AnchorSideLeft.Control = Owner
-    AnchorSideTop.Control = AppSettingsGroupBox
-    AnchorSideTop.Side = asrBottom
-    Left = 0
-    Height = 25
-    Top = 362
-    Width = 155
-    AutoSize = True
-    BorderSpacing.Top = 6
-    Caption = 'CreateAppBundleButton'
-    OnClick = CreateAppBundleButtonClick
-    TabOrder = 1
+    object WindowsDividerBevel: TDividerBevel
+      AnchorSideTop.Control = IconTrack
+      AnchorSideTop.Side = asrBottom
+      Left = 6
+      Height = 20
+      Top = 211
+      Width = 471
+      Caption = 'For Windows'
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Top = 3
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object DarwinDividerBevel: TDividerBevel
+      AnchorSideTop.Control = UIAccessCheckBox
+      AnchorSideTop.Side = asrBottom
+      Left = 6
+      Height = 20
+      Top = 349
+      Width = 471
+      Caption = 'For Darwin'
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Top = 6
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object CreateAppBundleButton: TBitBtn
+      AnchorSideLeft.Control = UseAppBundleCheckBox
+      AnchorSideTop.Control = UseAppBundleCheckBox
+      AnchorSideTop.Side = asrBottom
+      Left = 27
+      Height = 30
+      Top = 402
+      Width = 187
+      AutoSize = True
+      BorderSpacing.Left = 21
+      BorderSpacing.Top = 6
+      Caption = 'CreateAppBundleButton'
+      OnClick = CreateAppBundleButtonClick
+      TabOrder = 12
+    end
   end
   object OpenPictureDialog1: TOpenPictureDialog
-    left = 8
-    top = 392
+    left = 385
+    top = 190
   end
   object SavePictureDialog1: TSavePictureDialog
-    left = 37
-    top = 392
+    left = 385
+    top = 249
   end
 end

ide/frames/project_application_options.pas

@@ -7,8 +7,8 @@ interface
 uses
   Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, Graphics, Dialogs,
   ExtCtrls, StdCtrls, Buttons, ComCtrls, ExtDlgs, Math, LCLType, IDEOptionsIntf,
-  LazIDEIntf, IDEDialogs, Project, LazarusIDEStrConsts, EnvironmentOpts,
-  ApplicationBundle, ProjectIcon, W32Manifest, CompilerOptions;
+  LazIDEIntf, IDEDialogs, DividerBevel, Project, LazarusIDEStrConsts,
+  EnvironmentOpts, ApplicationBundle, ProjectIcon, W32Manifest, CompilerOptions;
 
 type
 
@@ -16,12 +16,14 @@ type
 
   TProjectApplicationOptionsFrame = class(TAbstractIDEOptionsEditor)
     AppSettingsGroupBox: TGroupBox;
+    CreateAppBundleButton: TBitBtn;
     DefaultIconButton: TButton;
+    WindowsDividerBevel: TDividerBevel;
+    DarwinDividerBevel: TDividerBevel;
     UIAccessCheckBox: TCheckBox;
     ExecutionLevelComboBox: TComboBox;
     DpiAwareCheckBox: TCheckBox;
     ClearIconButton: TBitBtn;
-    CreateAppBundleButton: TBitBtn;
     IconImage: TImage;
     IconLabel: TLabel;
     IconPanel: TPanel;
@@ -215,7 +217,8 @@ begin
   UseAppBundleCheckBox.Caption := dlgPOUseAppBundle;
   UseAppBundleCheckBox.Checked := False;
 
-  // manifest
+  // Windows specific, Manifest
+  WindowsDividerBevel.Caption := lisForWindows;
   UseXPManifestCheckBox.Caption := dlgPOUseManifest;
   DpiAwareCheckBox.Caption := dlgPODpiAware;
   ExecutionLevelLabel.Caption := dlgPOExecutionLevel;
@@ -223,10 +226,12 @@ begin
     ExecutionLevelComboBox.Items.Add(ExecutionLevelToCaption[ExecutionLevel]^);
   UIAccessCheckBox.Caption := dlgPOUIAccess;
 
+  // Darwin specific, Application Bundle
+  DarwinDividerBevel.Caption := lisForDarwin;
   CreateAppBundleButton.Caption := dlgPOCreateAppBundle;
   CreateAppBundleButton.LoadGlyphFromResourceName(HInstance, 'pkg_compile');
 
-  // icon
+  // Icon
   IconLabel.Caption := dlgPOIcon;
   LoadIconButton.Caption := dlgPOLoadIcon;
   DefaultIconButton.Caption := dlgPODefaultIcon;

ide/lazarusidestrconsts.pas

@@ -2374,9 +2374,11 @@ resourcestring
   lisTheOtherSourcesContainsADirectoryWhichIsAlreadyInT = 'The "Other sources" '
     +'contains a directory which is already in the "Other unit files".%s%s';
   lisRemoveThePathsFromOtherSources = 'Remove the paths from "Other sources"';
-  dlgPOUseAppBundle = 'Use Application Bundle for running and debugging (Darwin only)';
+  lisForWindows = 'For Windows';
+  lisForDarwin = 'For Darwin';
+  dlgPOUseAppBundle = 'Use Application Bundle for running and debugging';
   dlgPOCreateAppBundle = 'Create Application Bundle';
-  dlgPOUseManifest = 'Use manifest file to enable themes (Windows only)';
+  dlgPOUseManifest = 'Use manifest file to enable themes';
   dlgPODpiAware = 'Enabled DPI Awareness (for Vista+)';
   dlgPOUIAccess = 'UI Access (uiAccess)';
   dlgPOAsInvoker = 'as invoker (asInvoker)';

languages/lazaruside.fi.po

@@ -2728,11 +2728,11 @@ msgstr ""
 
 #: lazarusidestrconsts.dlgpouseappbundle
 msgid "Use Application Bundle for running and debugging (Darwin only)"
-msgstr "Käytä \"Application Bundle\" ajoon ja virheiden jäljitykseen (Darwin)"
+msgstr "Käytä \"Application Bundle\" ajoon ja virheiden jäljitykseen"
 
 #: lazarusidestrconsts.dlgpousemanifest
 msgid "Use manifest file to enable themes (Windows only)"
-msgstr "Käytä manifest-tiedostoa teemoja varten (vain Windows)"
+msgstr "Käytä manifest-tiedostoa teemoja varten"
 
 #: lazarusidestrconsts.dlgpreferdoubleclickoversingleclick
 msgid "Prefer double-click over single-click"