paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 10:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, procedure list: added check for the case when we don't have any procedures in current file, bug #18897

Browse Source 
git-svn-id: trunk@29773 -
This commit is contained in:
maxim 2011-03-09 21:00:57 +00:00
parent 125402cb2e
commit b6cbb4cf84
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/procedurelist.pas
View File

@ -437,7 +437,7 @@ begin
cbObjects.Items.Insert(1, lisPListNone);
finally
cbObjects.ItemIndex := 0; // select <All> as the default
if cbObjects.Text = '' then // some widgetsets have issues here so we do this
if (cbObjects.Items.Count > 0) and (cbObjects.Text = '') then // some widgetsets have issues here so we do this
cbObjects.Text := cbObjects.Items[0];
end;
end;