File tree 3 files changed +14
-8
lines changed
3 files changed +14
-8
lines changed Original file line number Diff line number Diff line change @@ -36,6 +36,8 @@ interface
36
36
GT = ' >' ; // greater-than / closing angle bracket character
37
37
LT = ' <' ; // less-than / opening angle bracket character
38
38
39
+ COPYRIGHT = #$00A9;
40
+
39
41
CRLF = CR + LF; // carriage return followed by line feed
40
42
EOL = CRLF; // end of line character sequence for Windows systems
41
43
EOL2 = EOL + EOL; // 2 end of line sequences
Original file line number Diff line number Diff line change 1
- {
1
+ {
2
2
* This Source Code Form is subject to the terms of the Mozilla Public License,
3
3
* v. 2.0. If a copy of the MPL was not distributed with this file, You can
4
4
* obtain one at https://mozilla.org/MPL/2.0/
5
5
*
6
- * Copyright (C) 2006-2021 , Peter Johnson (gravatar.com/delphidabbler).
6
+ * Copyright (C) 2006-2022 , Peter Johnson (gravatar.com/delphidabbler).
7
7
*
8
8
* Defines a class that manages generation, previewing and saving of a pascal
9
9
* unit.
@@ -98,6 +98,7 @@ implementation
98
98
// Project
99
99
DB.UMetaData,
100
100
UAppInfo,
101
+ UConsts,
101
102
UUrl,
102
103
UUtils;
103
104
@@ -115,8 +116,9 @@ implementation
115
116
// Error message
116
117
sErrorMsg = ' Filename is not valid for a Pascal unit' ;
117
118
// Unit header comments
118
- sLicense = ' The unit is copyright � %0:s by %1:s and is licensed under '
119
- + ' the %2:s.' ;
119
+ sLicense = ' The unit is copyright '
120
+ + COPYRIGHT
121
+ + ' %0:s by %1:s and is licensed under the %2:s.' ;
120
122
sMainDescription = ' This unit was generated automatically. It incorporates a '
121
123
+ ' selection of source code taken from the Code Snippets Database at %0:s.' ;
122
124
sGenerated = ' Generated on : %0:s.' ;
Original file line number Diff line number Diff line change 1
- {
1
+ {
2
2
* This Source Code Form is subject to the terms of the Mozilla Public License,
3
3
* v. 2.0. If a copy of the MPL was not distributed with this file, You can
4
4
* obtain one at https://mozilla.org/MPL/2.0/
5
5
*
6
- * Copyright (C) 2006-2021 , Peter Johnson (gravatar.com/delphidabbler).
6
+ * Copyright (C) 2006-2022 , Peter Johnson (gravatar.com/delphidabbler).
7
7
*
8
8
* Implements a static class that generates source code for code snippet(s)
9
9
* contained in a routine snippet or category view.
@@ -90,6 +90,7 @@ implementation
90
90
DB.UMetaData,
91
91
DB.USnippet,
92
92
DB.USnippetKind,
93
+ UConsts,
93
94
UAppInfo,
94
95
UQuery,
95
96
UUtils;
@@ -108,8 +109,9 @@ function TSnippetSourceGen.BuildHeaderComments: IStringList;
108
109
// when snippets include those from main database
109
110
sMainDBGenerator = ' This code snippet was generated by %0:s %1:s on %2:s.' ;
110
111
sMainDBLicense = ' It includes code taken from the DelphiDabbler Code '
111
- + ' Snippets database that is copyright � %0:s by %1:s and is licensed '
112
- + ' under the %2:s.' ;
112
+ + ' Snippets database that is copyright '
113
+ + COPYRIGHT
114
+ + ' %0:s by %1:s and is licensed under the %2:s.' ;
113
115
// when snippets are all from user defined database
114
116
sUserGenerator = ' This user defined code snippet was generated by '
115
117
+ ' %0:s %1:s on %2:s.' ;
You can’t perform that action at this time.
0 commit comments