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

Optimize fixing the tab index in TCustomTabControl.TabIndexAtClientPos. Issue #21088

Browse Source 
git-svn-id: trunk@34767 -
This commit is contained in:
juha 2012-01-17 21:40:20 +00:00
parent cec115827d
commit 7b130f07af
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customnotebook.inc
View File

@ -318,7 +318,9 @@ begin
Inc(VisiblePageInd) Inc(VisiblePageInd)
else begin else begin
if VisiblePageInd < Result then if VisiblePageInd < Result then
Inc(Result); Inc(Result)
else
Break;
end; end;
end; end;
end end