Graeme Geldenhuys escribi?:
Show quoted text 22 lines
2009/10/16 Raistware :
> 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.freepascal.org/pipermail/lazarus/attachments/20091016/bd4abe4a/attachment.html>