Update Code Formatting tab of Preferences dialogue

Added new "Repeat comments in unit implementation section" check box to
the FrSourcePrefs frame. This check box sets the value of the
IPreferences.CommentsInUnitImpl property.

Expanded the size of the preferences dialogue box to accommodate the
increased size of the FrSourcePrefs frame.

Author: delphidabbler

Src/FmPreferencesDlg.dfm

@@ -10,30 +10,29 @@ inherited PreferencesDlg: TPreferencesDlg
   TextHeight = 13
   inherited pnlBody: TPanel
     Width = 609
-    Height = 329
+    Height = 353
     ExplicitWidth = 609
-    ExplicitHeight = 329
+    ExplicitHeight = 353
     object pcMain: TPageControl
       Left = 163
       Top = 0
       Width = 446
-      Height = 329
+      Height = 353
       Align = alRight
       MultiLine = True
       TabOrder = 1
-      ExplicitLeft = 159
-      ExplicitHeight = 377
+      ExplicitHeight = 329
     end
     object lbPages: TListBox
       Left = 0
       Top = 0
       Width = 153
-      Height = 329
+      Height = 353
       Align = alLeft
       ItemHeight = 13
       TabOrder = 0
       OnClick = lbPagesClick
-      ExplicitHeight = 377
+      ExplicitHeight = 329
     end
   end
   inherited btnOK: TButton

Src/FrSourcePrefs.dfm

@@ -1,16 +1,16 @@
 inherited SourcePrefsFrame: TSourcePrefsFrame
   Width = 393
-  Height = 327
+  Height = 323
   ExplicitWidth = 393
-  ExplicitHeight = 327
+  ExplicitHeight = 323
   DesignSize = (
     393
-    327)
+    323)
   object gbSourceCode: TGroupBox
     Left = 0
     Top = 0
     Width = 393
-    Height = 201
+    Height = 219
     Anchors = [akLeft, akTop, akRight]
     Caption = ' Source code formatting '
     TabOrder = 0
@@ -56,10 +56,18 @@ inherited SourcePrefsFrame: TSourcePrefsFrame
       Caption = '&Truncate comments to one paragraph'
       TabOrder = 2
     end
+    object chkUnitImplComments: TCheckBox
+      Left = 8
+      Top = 195
+      Width = 345
+      Height = 17
+      Caption = 'Repeat comments in &unit implemenation section'
+      TabOrder = 3
+    end
   end
   object gbFileFormat: TGroupBox
     Left = 0
-    Top = 207
+    Top = 229
     Width = 393
     Height = 81
     Anchors = [akLeft, akTop, akRight]

Src/FrSourcePrefs.pas

@@ -43,6 +43,7 @@   TSourcePrefsFrame = class(TPrefsBaseFrame)
     lblCommentStyle: TLabel;
     lblSnippetFileType: TLabel;
     chkTruncateComments: TCheckBox;
+    chkUnitImplComments: TCheckBox;
     procedure cbCommentStyleChange(Sender: TObject);
     procedure cbSnippetFileTypeChange(Sender: TObject);
   strict private
@@ -181,6 +182,7 @@ procedure TSourcePrefsFrame.Activate(const Prefs: IPreferences;
   SelectSourceFileType(Prefs.SourceDefaultFileType);
   SelectCommentStyle(Prefs.SourceCommentStyle);
   chkTruncateComments.Checked := Prefs.TruncateSourceComments;
+  chkUnitImplComments.Checked := Prefs.CommentsInUnitImpl;
   chkSyntaxHighlighting.Checked := Prefs.SourceSyntaxHilited;
   (fHiliteAttrs as IAssignable).Assign(Prefs.HiliteAttrs);
   fHiliteAttrs.ResetDefaultFont;
@@ -198,13 +200,15 @@ procedure TSourcePrefsFrame.ArrangeControls;
   TCtrlArranger.AlignVCentres(20, [lblCommentStyle, cbCommentStyle]);
   TCtrlArranger.MoveBelow([lblCommentStyle, cbCommentStyle], frmPreview, 8);
   TCtrlArranger.MoveBelow(frmPreview, chkTruncateComments, 8);
-  gbSourceCode.ClientHeight := TCtrlArranger.TotalControlHeight(gbSourceCode)
-    + 10;
 
   TCtrlArranger.AlignVCentres(20, [lblSnippetFileType, cbSnippetFileType]);
   TCtrlArranger.MoveBelow(
     [lblSnippetFileType, cbSnippetFileType], chkSyntaxHighlighting, 8
   );
+  TCtrlArranger.MoveBelow(chkTruncateComments, chkUnitImplComments, 8);
+
+  gbSourceCode.ClientHeight := TCtrlArranger.TotalControlHeight(gbSourceCode)
+    + 10;
   gbFileFormat.ClientHeight := TCtrlArranger.TotalControlHeight(gbFileFormat)
     + 10;
 
@@ -218,7 +222,7 @@ procedure TSourcePrefsFrame.ArrangeControls;
   TCtrlArranger.AlignLefts(
     [
       cbCommentStyle, frmPreview, cbSnippetFileType, chkSyntaxHighlighting,
-      chkTruncateComments
+      chkTruncateComments, chkUnitImplComments
     ],
     Col2Left
   );
@@ -271,6 +275,7 @@ procedure TSourcePrefsFrame.Deactivate(const Prefs: IPreferences);
 begin
   Prefs.SourceCommentStyle := GetCommentStyle;
   Prefs.TruncateSourceComments := chkTruncateComments.Checked;
+  Prefs.CommentsInUnitImpl := chkUnitImplComments.Checked;
   Prefs.SourceDefaultFileType := GetSourceFileType;
   Prefs.SourceSyntaxHilited := chkSyntaxHighlighting.Checked;
 end;
@@ -348,6 +353,7 @@ procedure TSourcePrefsFrame.UpdateControlState;
   chkSyntaxHighlighting.Enabled :=
     TFileHiliter.IsHilitingSupported(GetSourceFileType);
   chkTruncateComments.Enabled := GetCommentStyle <> csNone;
+  chkUnitImplComments.Enabled := GetCommentStyle <> csNone;
 end;
 
 procedure TSourcePrefsFrame.UpdatePreview;