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

IDE: Allow IDE to expand IDE macros in Project Options->Version Info->Other Info. Issue #23468, patch from Cyrax

Browse Source 
git-svn-id: trunk@39908 -
This commit is contained in:
juha 2013-01-20 09:34:27 +00:00
parent 47446ad440
commit e03de76fde
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/w32versioninfo.pas
View File

@ -39,7 +39,7 @@ interface
uses
Classes, SysUtils, Process, LCLProc, Controls, Forms, FileUtil, laz2_DOM,
Laz2_XMLCfg, CodeToolManager, LazConf, IDEProcs, ProjectIntf, CompOptsIntf,
ProjectResourcesIntf, resource, versionresource, versiontypes;
ProjectResourcesIntf, resource, versionresource, versiontypes, TransferMacros;
type
@ -358,6 +358,7 @@ var
lang: string;
charset: string;
i: integer;
VersionValue : String;
begin
Result := True;
if UseVersionInfo then
@ -379,8 +380,11 @@ begin
FStringTable['FileVersion'] := BuildFileVersionString;
st := TVersionStringTable.Create(lang + charset);
for i := 0 to FStringTable.Count - 1 do
st.Add(Utf8ToAnsi(FStringTable.Keys[i]), Utf8ToAnsi(FStringTable.ValuesByIndex[i]));
for i := 0 to FStringTable.Count - 1 do Begin
VersionValue := FStringTable.ValuesByIndex[i];
GlobalMacroList.SubstituteStr(VersionValue);
st.Add(Utf8ToAnsi(FStringTable.Keys[i]), Utf8ToAnsi(VersionValue));
end;
ARes.StringFileInfo.Add(st);
ti.language := StrToInt('$' + lang);