paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: TProjectVersionInfo set default values for lang and charset

Browse Source 
git-svn-id: trunk@26998 -
This commit is contained in:
mattias 2010-08-03 12:19:33 +00:00
parent d47e50d5c5
commit 9e1b1bb13d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/w32versioninfo.pas
View File

@ -132,8 +132,8 @@ function MSCharacterSets: TStringList;
function MSHexCharacterSets: TStringList; function MSHexCharacterSets: TStringList;
const const
DefaultLanguage = '0409'; DefaultLanguage = '0409'; // U.S. English
DefaultCharSet = '04E4'; DefaultCharSet = '04E4'; // Multilingual
implementation implementation
@ -567,6 +567,8 @@ begin
inherited Create; inherited Create;
FStringTable := TProjectVersionStringTable.Create('00000000'); FStringTable := TProjectVersionStringTable.Create('00000000');
FStringTable.OnModified := @DoModified; FStringTable.OnModified := @DoModified;
HexLang:=DefaultLanguage;
HexCharSet:=DefaultCharSet;
end; end;
destructor TProjectVersionInfo.Destroy; destructor TProjectVersionInfo.Destroy;