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

cody: fixed vk_up on empty

Browse Source 
git-svn-id: trunk@64724 -
This commit is contained in:
mattias 2021-03-02 18:04:30 +00:00
parent 26cadbd4f3
commit 16eb8abc21
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/ide/codyidentifiersdlg.pas
View File

@ -37,7 +37,7 @@ unit CodyIdentifiersDlg;
interface interface
uses uses
Classes, SysUtils, LCLProc, contnrs, Laz_AVL_Tree, Classes, SysUtils, Math, LCLProc, contnrs, Laz_AVL_Tree,
// LCL // LCL
Forms, Controls, Dialogs, ButtonPanel, StdCtrls, ExtCtrls, LCLType, Buttons, Menus, Forms, Controls, Dialogs, ButtonPanel, StdCtrls, ExtCtrls, LCLType, Buttons, Menus,
// IdeIntf // IdeIntf
@ -924,7 +924,7 @@ begin
case Key of case Key of
VK_DOWN: VK_DOWN:
if i<0 then if i<0 then
ItemsListBox.ItemIndex:=0 ItemsListBox.ItemIndex:=Min(ItemsListBox.Items.Count-1,0)
else if i<ItemsListBox.Count-1 then else if i<ItemsListBox.Count-1 then
ItemsListBox.ItemIndex:=i+1; ItemsListBox.ItemIndex:=i+1;
VK_UP: VK_UP: