paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 15:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: insert license notice: allow translators to add paragraph

Browse Source 
git-svn-id: trunk@45303 -
This commit is contained in:
mattias 2014-06-02 10:25:59 +00:00
parent 3f0f2cf33a
commit 8db63f148a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourceeditor.pp
View File

@ -4008,8 +4008,8 @@ var
begin begin
if ReadOnly then Exit; if ReadOnly then Exit;
Txt:=CommentText(LCLProc.BreakString( Txt:=CommentText(LCLProc.BreakString(
Format(Notice,[#13#13,#13#13,#13#13,#13#13,#13#13]), StringReplace(Notice, '%s', sLineBreak, [rfReplaceAll]),
FEditor.RightEdge-2,0),CommentType); FEditor.RightEdge-2,0),CommentType);
FEditor.InsertTextAtCaret(Txt); FEditor.InsertTextAtCaret(Txt);
end; end;