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

IDE: TProjectVersionInfo: fixed default value for ProductVersion

Browse Source 
git-svn-id: trunk@27001 -
This commit is contained in:
mattias 2010-08-03 12:48:07 +00:00
parent 534a5a2bc9
commit ad75a2d206
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/w32versioninfo.pas
View File

@ -392,6 +392,7 @@ procedure TProjectVersionInfo.WriteToProjectFile(AConfig: TObject; Path: string)
var
i: integer;
Key: string;
DefaultValue: String;
begin
with TXMLConfig(AConfig) do
begin
@ -409,9 +410,12 @@ begin
DeletePath(Path + 'VersionInfo/StringTable');
for i := 0 to StringTable.Count - 1 do begin
Key:=StringTable.Keys[i];
if Key='FileVersion' then continue; // FileVersion is create automatically
if Key='FileVersion' then continue; // FileVersion is created automatically
DefaultValue:='';
if (Key='ProductVersion') then
DefaultValue:=BuildFileVersionString;
SetDeleteValue(Path + 'VersionInfo/StringTable/' + StringTable.Keys[i],
StringTable.ValuesByIndex[i],'');
StringTable.ValuesByIndex[i],DefaultValue);
end;
end;
end;