Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly
Sign up
Appearance settings

Commit b67c1fa

Browse files
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.
1 parent c2556d9 commit b67c1fa

File tree

3 files changed

+28
-15
lines changed

3 files changed

+28
-15
lines changed

‎Src/FmPreferencesDlg.dfm

Lines changed: 6 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -10,30 +10,29 @@ inherited PreferencesDlg: TPreferencesDlg
1010
TextHeight = 13
1111
inherited pnlBody: TPanel
1212
Width = 609
13-
Height = 329
13+
Height = 353
1414
ExplicitWidth = 609
15-
ExplicitHeight = 329
15+
ExplicitHeight = 353
1616
object pcMain: TPageControl
1717
Left = 163
1818
Top = 0
1919
Width = 446
20-
Height = 329
20+
Height = 353
2121
Align = alRight
2222
MultiLine = True
2323
TabOrder = 1
24-
ExplicitLeft = 159
25-
ExplicitHeight = 377
24+
ExplicitHeight = 329
2625
end
2726
object lbPages: TListBox
2827
Left = 0
2928
Top = 0
3029
Width = 153
31-
Height = 329
30+
Height = 353
3231
Align = alLeft
3332
ItemHeight = 13
3433
TabOrder = 0
3534
OnClick = lbPagesClick
36-
ExplicitHeight = 377
35+
ExplicitHeight = 329
3736
end
3837
end
3938
inherited btnOK: TButton

‎Src/FrSourcePrefs.dfm

Lines changed: 13 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,16 +1,16 @@
11
inherited SourcePrefsFrame: TSourcePrefsFrame
22
Width = 393
3-
Height = 327
3+
Height = 323
44
ExplicitWidth = 393
5-
ExplicitHeight = 327
5+
ExplicitHeight = 323
66
DesignSize = (
77
393
8-
327)
8+
323)
99
object gbSourceCode: TGroupBox
1010
Left = 0
1111
Top = 0
1212
Width = 393
13-
Height = 201
13+
Height = 219
1414
Anchors = [akLeft, akTop, akRight]
1515
Caption = ' Source code formatting '
1616
TabOrder = 0
@@ -56,10 +56,18 @@ inherited SourcePrefsFrame: TSourcePrefsFrame
5656
Caption = '&Truncate comments to one paragraph'
5757
TabOrder = 2
5858
end
59+
object chkUnitImplComments: TCheckBox
60+
Left = 8
61+
Top = 195
62+
Width = 345
63+
Height = 17
64+
Caption = 'Repeat comments in &unit implemenation section'
65+
TabOrder = 3
66+
end
5967
end
6068
object gbFileFormat: TGroupBox
6169
Left = 0
62-
Top = 207
70+
Top = 229
6371
Width = 393
6472
Height = 81
6573
Anchors = [akLeft, akTop, akRight]

‎Src/FrSourcePrefs.pas

Lines changed: 9 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -43,6 +43,7 @@ TSourcePrefsFrame = class(TPrefsBaseFrame)
4343
lblCommentStyle: TLabel;
4444
lblSnippetFileType: TLabel;
4545
chkTruncateComments: TCheckBox;
46+
chkUnitImplComments: TCheckBox;
4647
procedure cbCommentStyleChange(Sender: TObject);
4748
procedure cbSnippetFileTypeChange(Sender: TObject);
4849
strict private
@@ -181,6 +182,7 @@ procedure TSourcePrefsFrame.Activate(const Prefs: IPreferences;
181182
SelectSourceFileType(Prefs.SourceDefaultFileType);
182183
SelectCommentStyle(Prefs.SourceCommentStyle);
183184
chkTruncateComments.Checked := Prefs.TruncateSourceComments;
185+
chkUnitImplComments.Checked := Prefs.CommentsInUnitImpl;
184186
chkSyntaxHighlighting.Checked := Prefs.SourceSyntaxHilited;
185187
(fHiliteAttrs as IAssignable).Assign(Prefs.HiliteAttrs);
186188
fHiliteAttrs.ResetDefaultFont;
@@ -198,13 +200,15 @@ procedure TSourcePrefsFrame.ArrangeControls;
198200
TCtrlArranger.AlignVCentres(20, [lblCommentStyle, cbCommentStyle]);
199201
TCtrlArranger.MoveBelow([lblCommentStyle, cbCommentStyle], frmPreview, 8);
200202
TCtrlArranger.MoveBelow(frmPreview, chkTruncateComments, 8);
201-
gbSourceCode.ClientHeight := TCtrlArranger.TotalControlHeight(gbSourceCode)
202-
+ 10;
203203

204204
TCtrlArranger.AlignVCentres(20, [lblSnippetFileType, cbSnippetFileType]);
205205
TCtrlArranger.MoveBelow(
206206
[lblSnippetFileType, cbSnippetFileType], chkSyntaxHighlighting, 8
207207
);
208+
TCtrlArranger.MoveBelow(chkTruncateComments, chkUnitImplComments, 8);
209+
210+
gbSourceCode.ClientHeight := TCtrlArranger.TotalControlHeight(gbSourceCode)
211+
+ 10;
208212
gbFileFormat.ClientHeight := TCtrlArranger.TotalControlHeight(gbFileFormat)
209213
+ 10;
210214

@@ -218,7 +222,7 @@ procedure TSourcePrefsFrame.ArrangeControls;
218222
TCtrlArranger.AlignLefts(
219223
[
220224
cbCommentStyle, frmPreview, cbSnippetFileType, chkSyntaxHighlighting,
221-
chkTruncateComments
225+
chkTruncateComments, chkUnitImplComments
222226
],
223227
Col2Left
224228
);
@@ -271,6 +275,7 @@ procedure TSourcePrefsFrame.Deactivate(const Prefs: IPreferences);
271275
begin
272276
Prefs.SourceCommentStyle := GetCommentStyle;
273277
Prefs.TruncateSourceComments := chkTruncateComments.Checked;
278+
Prefs.CommentsInUnitImpl := chkUnitImplComments.Checked;
274279
Prefs.SourceDefaultFileType := GetSourceFileType;
275280
Prefs.SourceSyntaxHilited := chkSyntaxHighlighting.Checked;
276281
end;
@@ -348,6 +353,7 @@ procedure TSourcePrefsFrame.UpdateControlState;
348353
chkSyntaxHighlighting.Enabled :=
349354
TFileHiliter.IsHilitingSupported(GetSourceFileType);
350355
chkTruncateComments.Enabled := GetCommentStyle <> csNone;
356+
chkUnitImplComments.Enabled := GetCommentStyle <> csNone;
351357
end;
352358

353359
procedure TSourcePrefsFrame.UpdatePreview;

0 commit comments

Comments
(0)

AltStyle によって変換されたページ (->オリジナル) /