paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: fixed sorting in localized procedure list

Browse Source 
patch by: Graeme Geldenhuys
fixes issue #14923, #14860

git-svn-id: trunk@22674 -
This commit is contained in:
vincents 2009-11-18 20:41:06 +00:00
parent 7c61fa681f
commit 4cc5abf506
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/procedurelist.pas
View File

@ -391,8 +391,6 @@ var
lNodeText: string;
begin
cbObjects.Items.Clear;
cbObjects.Items.Add(lisPListAll);
cbObjects.Items.Add(lisPListNone);
try
{ get active source editor }
lSrcEditor := SourceEditorWindow.ActiveEditor;
@ -430,10 +428,14 @@ begin
lNode := lNode.NextBrother;
end;
end;
cbObjects.Sorted := true;
cbObjects.Sorted := false;
cbObjects.Items.Insert(0, lisPListAll);
cbObjects.Items.Insert(1, lisPListNone);
finally
cbObjects.ItemIndex := 0; // select <All> as the default
if cbObjects.Text = '' then
cbObjects.ItemIndex := 1;
if cbObjects.Text = '' then // some widgetsets have issues here so we do this
cbObjects.Text := cbObjects.Items[0];
end;
end;