<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-15"
http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Graeme Geldenhuys escribió:
<blockquote
cite="mid:cfcebe780910160359l72c381bev8513e10f649fb452@mail.gmail.com"
type="cite">
<pre wrap="">2009/10/16 Raistware <a class="moz-txt-link-rfc2396E" href="mailto:raistware@gmail.com"><raistware@gmail.com></a>:
</pre>
<blockquote type="cite">
<pre wrap="">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' ?
</pre>
</blockquote>
<pre wrap=""><!---->
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.
</pre>
</blockquote>
<br>
Solved with this modification:<br>
<br>
---<br>
diff --git a/ide/procedurelist.pas b/ide/procedurelist.pas<br>
index 9e578af..96d8ba9 100644<br>
--- a/ide/procedurelist.pas<br>
+++ b/ide/procedurelist.pas<br>
@@ -431,7 +431,8 @@ begin<br>
end;<br>
end;<br>
finally<br>
- cbObjects.ItemIndex := 0; // select <All> as the default<br>
+ { select <All> as the default }<br>
+ cbObjects.ItemIndex := cbObjects.Items.IndexOf(lisPListAll);<br>
if cbObjects.Text = '' then<br>
cbObjects.ItemIndex := 1;<br>
end;<br>
<br>
---<br>
<br>
Hope someone apply it to svn/git.<br>
<br>
Cheers, <br>
Raul Ferriz<br>
<BR>
<BR>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4514 (20091016) __________<BR>
<BR>
ESET NOD32 Antivirus ha comprobado este mensaje.<BR>
<BR>
<A HREF="http://www.eset.com">http://www.eset.com</A><BR>
</body>
</html>