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

customdrawn: Fixes an exception by an extra index check when clicking in a tab

Browse Source 
git-svn-id: trunk@33582 -
This commit is contained in:
sekelsenmat 2011-11-17 12:47:58 +00:00
parent d8824e0700
commit 7874c0aac5
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/customdrawn/customdrawncontrols.pas
View File

@ -2105,7 +2105,7 @@ begin
end;
end
// Check if a close button was clicked
else if (nboShowCloseButtons in Options) then
else if (nboShowCloseButtons in Options) and (lTabIndex >= 0) then
begin
FTabCState.CurTabIndex := lTabIndex;
lCloseButtonPos.X := FDrawer.GetMeasuresEx(Canvas, TCDCTABCONTROL_CLOSE_BUTTON_POS_X, FState, FStateEx);