Graeme Geldenhuys escribió:
2009/10/16 Raistware <[email protected]>:
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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
