paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 02:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Package manager: avoid corruption of translated header comments (which are obviously in UTF-8) in autogenerated package files.

Browse Source 
git-svn-id: trunk@24564 -
This commit is contained in:
maxim 2010-04-10 21:17:42 +00:00
parent 65e13b3061
commit 4b25569b03
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packager/packagesystem.pas
View File

@ -3496,12 +3496,12 @@ begin
+lisPkgMangThisFileWasAutomaticallyCreatedByLazarusDoNotEdit+e
+' '+lisPkgMangThisSourceIsOnlyUsedToCompileAndInstallThePackage+e
+' }'+e+e;
Src:=HeaderSrc
+'unit '+ExtractFileNameOnly(SrcFilename)+';'+e
Src:='unit '+ExtractFileNameOnly(SrcFilename)+';'+e
+e
+'interface'+e
+e;
Src:=BeautifyCodeOptions.BeautifyStatement(Src,0);
Src:=HeaderSrc+Src;
if UsedUnits<>'' then
Src:=Src
+BreakString('uses'+e+GetIndentStr(BeautifyCodeOptions.Indent)+UsedUnits+';',