Could anyone check this code and apply to SVN?
---
diff --git a/ide/procedurelist.pas b/ide/procedurelist.pas
index 9e578af..96d8ba9 100644
--- a/ide/procedurelist.pas
+++ b/ide/procedurelist.pas
@@ -431,7 +431,8 @@ begin
end;
end;
finally
- cbObjects.ItemIndex := 0; // select <All> as the default
+ { select <All> as the default }
+ cbObjects.ItemIndex := cbObjects.Items.IndexOf(lisPListAll);
if cbObjects.Text = '' then
cbObjects.ItemIndex := 1;
end;
---
It solved the default item selected on bug on Procedure List. Default
selection should be 'All' at local language, but before this change, the
selection was allways the first item at list, at english is not a
problem, because 'All' usually is the first item at list, but at other
languages, like spanish: 'Todo' usually isn't the first item at list.
With this modification the default item will be allways 'All' in local
language, solving that bug.
Cheers,
Raul Ferriz
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4550 (20091028) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
