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

ide: write win32 version info using ansi instead of utf8

Browse Source 
git-svn-id: trunk@21797 -
This commit is contained in:
paul 2009-09-21 09:30:44 +00:00
parent f74c3e2724
commit 1c8e92d963
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/w32versioninfo.pas
View File

@ -331,26 +331,26 @@ begin
IntToStr(MajorRevNr) + ',' +
IntToStr(MinorRevNr) + ',' +
IntToStr(BuildNr));
AList.Add('PRODUCTVERSION ' + StringReplace(ProductVersionString, '.', ',', [rfReplaceAll]));
AList.Add('PRODUCTVERSION ' + StringReplace(Utf8ToAnsi(ProductVersionString), '.', ',', [rfReplaceAll]));
AList.Add('{');
AList.Add(' BLOCK "StringFileInfo"');
AList.Add(' {');
AList.Add(' BLOCK "' + HexLang + HexCharSet + '"');
AList.Add(' {');
AList.Add(' VALUE "Comments", "' + CommentsString + '\000"');
AList.Add(' VALUE "CompanyName", "' + CompanyString + '\000"');
AList.Add(' VALUE "FileDescription", "' + DescriptionString + '\000"');
AList.Add(' VALUE "Comments", "' + Utf8ToAnsi(CommentsString) + '\000"');
AList.Add(' VALUE "CompanyName", "' + Utf8ToAnsi(CompanyString) + '\000"');
AList.Add(' VALUE "FileDescription", "' + Utf8ToAnsi(DescriptionString) + '\000"');
AList.Add(' VALUE "FileVersion", "' + IntToStr(VersionNr) + '.' +
IntToStr(MajorRevNr) + '.' +
IntToStr(MinorRevNr) + '.' +
IntToStr(BuildNr) + '\000"');
AList.Add(' VALUE "InternalName", "' + InternalNameString + '\000"');
AList.Add(' VALUE "LegalCopyright", "' + CopyrightString + '\000"');
AList.Add(' VALUE "LegalTrademarks", "' + TrademarksString + '\000"');
AList.Add(' VALUE "OriginalFilename", "' + OriginalFilenameString + '\000"');
AList.Add(' VALUE "ProductName", "' + ProdNameString + '\000"');
AList.Add(' VALUE "InternalName", "' + Utf8ToAnsi(InternalNameString) + '\000"');
AList.Add(' VALUE "LegalCopyright", "' + Utf8ToAnsi(CopyrightString) + '\000"');
AList.Add(' VALUE "LegalTrademarks", "' + Utf8ToAnsi(TrademarksString) + '\000"');
AList.Add(' VALUE "OriginalFilename", "' + Utf8ToAnsi(OriginalFilenameString) + '\000"');
AList.Add(' VALUE "ProductName", "' + Utf8ToAnsi(ProdNameString) + '\000"');
AList.Add(' VALUE "ProductVersion", "' +
StringReplace(ProductVersionString, ',', '.', [rfReplaceAll]) +
StringReplace(Utf8ToAnsi(ProductVersionString), ',', '.', [rfReplaceAll]) +
'\000"');
AList.Add(' }');
AList.Add(' }');