paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 04:19:19 +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)
else begin
if VisiblePageInd < Result then
Inc(Result);
Inc(Result)
else
Break;
end;
end;
end