[Lazarus] Bug (whis) at Procedure List

[Raistware]

Graeme Geldenhuys escribió:
> 2009/10/16 Raistware <raistware at gmail.com>:
>   
>> So, In the listbox I have:
>> Ninguno
>> Tclass1
>> Tclass2
>> <Todo>
>>
>>
>> So it seem to be a problem with sorting, that you assumes that the first
>> item should always be 'All' ?
>>     
>
> Ah, that would explain it then. I'm not 100% sure about how to get
> around this though. Maybe sort the list with class names only, then
> disable sorting and then insert <all> and <none> in the top of the
> list. That could work? <all> (or whatever it's resource string value
> is), will then always be at the top.
>
>
>
>   

Solved with this modification:

---
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;

---

Hope someone apply it to svn/git.

Cheers,
   Raul Ferriz



__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4514 (20091016) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20091016/bd4abe4a/attachment-0004.html>