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

ide: fix setting of incorrect version info language and charset by taka_jp (issue #0015520)

Browse Source 
git-svn-id: trunk@23482 -
This commit is contained in:
paul 2010-01-18 10:44:46 +00:00
parent e25a2cdb71
commit f576f9dac8
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/frames/project_versioninfo_options.pas
View File

@ -97,6 +97,8 @@ begin
end;
procedure TProjectVersionInfoOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
var
i : integer;
begin
FVersionInfo := TProjectVersionInfo((AOptions as TProject).Resources[TProjectVersionInfo]);
@ -110,12 +112,19 @@ begin
if FVersionInfo.AutoIncrementBuild then
AutomaticallyIncreaseBuildCheckBox.Checked := True;
// ComboBox.sort does not change ItemIndex.[Windows]
LanguageSelectionComboBox.Items.Assign(MSLanguages);
LanguageSelectionComboBox.ItemIndex := MSHexLanguages.IndexOf(FVersionInfo.HexLang);
LanguageSelectionComboBox.Sorted := True;
i := MSHexLanguages.IndexOf(FVersionInfo.HexLang);
if i >= 0 then
i := LanguageSelectionComboBox.Items.IndexOf(MSLanguages[i]);
LanguageSelectionComboBox.ItemIndex := i;
CharacterSetComboBox.Items.Assign(MSCharacterSets);
CharacterSetComboBox.ItemIndex := MSHexCharacterSets.IndexOf(FVersionInfo.HexCharSet);
CharacterSetComboBox.Sorted := True;
i := MSHexCharacterSets.IndexOf(FVersionInfo.HexCharSet);
if i >= 0 then
i := CharacterSetComboBox.Items.IndexOf(MSCharacterSets[i]);
CharacterSetComboBox.ItemIndex := i;
DescriptionEdit.Text := FVersionInfo.DescriptionString;
CopyrightEdit.Text := FVersionInfo.CopyrightString;
end;