paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 23:59:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed initial 'Position' combobox caption i18n in Editor Toolbar options

Browse Source 
git-svn-id: trunk@49395 -
This commit is contained in:
maxim 2015-06-21 18:07:52 +00:00
parent 321e6ad10d
commit 0d184d1540
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/frames/editortoolbar_options.pas
View File

@ -97,6 +97,7 @@ begin
sLocalizedPosValues[3] := lisLeft;
for i := 0 to high(sLocalizedPosValues) do
cbPos.Items[i] := sLocalizedPosValues[i]; // localized
cbPos.Caption := cbPos.Items[cbPos.ItemIndex];
dbGeneralSettings.Caption := 'Editor Toolbars Settings'; // ToDo: Will be removed ...
cbCoolBarVisible.Caption := lisEditorToolbarVisible;
@ -111,7 +112,7 @@ var
begin
Opts := (AOptions as TEnvironmentOptions).EditorToolBarOptions;
cbCoolBarVisible.Checked := Opts.Visible;
cbPos.Caption := Opts.Position;
cbPos.ItemIndex := IndexFromEnglish(Opts.Position);
// Disable controls when toolbar is hidden.
cbPos.Enabled := Opts.Visible;
bConfig.Enabled := Opts.Visible;