paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 02:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: don't crash when we pressing keys in the empty procedure list (bug #0013377) based on patch of Vladimir Zhirov

Browse Source 
git-svn-id: trunk@19069 -
This commit is contained in:
paul 2009-03-23 01:44:27 +00:00
parent 3b28882b67
commit 1a7230cfff
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/procedurelist.pas
View File

@ -581,6 +581,9 @@ end;
procedure TProcedureListForm.edMethodsKeyDown(Sender: TObject; var Key: Word; procedure TProcedureListForm.edMethodsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
begin begin
if LV.Items.Count = 0 then
Exit;
if Key = VK_Down then if Key = VK_Down then
begin begin
if (LV.Items.IndexOf(LV.ItemFocused) + 1) < LV.Items.Count then if (LV.Items.IndexOf(LV.ItemFocused) + 1) < LV.Items.Count then