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

TurboPower_iPro: Fix list index error if ENTER is pressed and no TabItems are present

Browse Source 
git-svn-id: trunk@52101 -
This commit is contained in:
wp 2016-04-02 09:01:14 +00:00
parent be0ae8bc36
commit be0a2f9c82
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/iphtmltablist.pas
View File

@ -27,7 +27,7 @@ implementation
function TIpHtmlTabList.GetTabItem: TObject; function TIpHtmlTabList.GetTabItem: TObject;
begin begin
if FIndex = -1 then if (FIndex = -1) or (FIndex >= Count) then
Exit(nil) Exit(nil)
else else
Result := TObject(Items[FIndex]); Result := TObject(Items[FIndex]);