From 9e1b1bb13dd9ea871f68ef565534304b9c80fbc9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 3 Aug 2010 12:19:33 +0000
Subject: [PATCH] IDE: TProjectVersionInfo set default values for lang and
 charset

git-svn-id: trunk@26998 -
---
 ide/w32versioninfo.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ide/w32versioninfo.pas b/ide/w32versioninfo.pas
index 09aae6ebb3..ee0b2bf54e 100644
--- a/ide/w32versioninfo.pas
+++ b/ide/w32versioninfo.pas
@@ -132,8 +132,8 @@ function MSCharacterSets: TStringList;
 function MSHexCharacterSets: TStringList;
 
 const
-  DefaultLanguage = '0409';
-  DefaultCharSet = '04E4';
+  DefaultLanguage = '0409'; // U.S. English
+  DefaultCharSet = '04E4'; // Multilingual
 
 implementation
 
@@ -567,6 +567,8 @@ begin
   inherited Create;
   FStringTable := TProjectVersionStringTable.Create('00000000');
   FStringTable.OnModified := @DoModified;
+  HexLang:=DefaultLanguage;
+  HexCharSet:=DefaultCharSet;
 end;
 
 destructor TProjectVersionInfo.Destroy;