Skip to content

Commit efcef0f

Browse files
committed
Fix malformed bullet char in snippet import wizard
The last page of the Import Wizard dialogue box lists imported snippets as bullet points. The bullet point string literal had become corrupted. Replaced the string literal with a constant containing the Unicode character code point. Fixes #147
1 parent 9a5717a commit efcef0f

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

Src/FmCodeImportDlg.pas

+4-2
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
* v. 2.0. If a copy of the MPL was not distributed with this file, You can
44
* obtain one at https://mozilla.org/MPL/2.0/
55
*
6-
* Copyright (C) 2011-2023, Peter Johnson (gravatar.com/delphidabbler).
6+
* Copyright (C) 2011-2025, Peter Johnson (gravatar.com/delphidabbler).
77
*
88
* Implements a wizard dialogue box that handles the import of user defined
99
* snippets into the database. Permits snippets from the import file to be
@@ -419,14 +419,16 @@ procedure TCodeImportDlg.PresentResults;
419419
/// Creates a label containing name of an imported snippet and adds it to
420420
/// scroll box with top at given position.
421421
procedure AddLabel(var Top: Integer; const SnippetName: string);
422+
const
423+
Bullet = #$2022;
422424
var
423425
Lbl: TLabel;
424426
begin
425427
Lbl := TLabel.Create(Self);
426428
Lbl.Parent := sbFinish;
427429
Lbl.Left := 0;
428430
Lbl.Top := Top;
429-
Lbl.Caption := ' ' + SnippetName;
431+
Lbl.Caption := Bullet + ' ' + SnippetName;
430432
Top := TCtrlArranger.BottomOf(Lbl, 2);
431433
end;
432434
// ---------------------------------------------------------------------------

0 commit comments

Comments
 (0)