paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 13:19:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

ExtendedNotebook: fixed selecting last tab. Issue #0019845

Browse Source 
git-svn-id: trunk@31894 -
This commit is contained in:
martin 2011-08-06 15:55:10 +00:00
parent 2a8cfe716e
commit 91f4559302
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/lazcontrols/extendednotebook.pas
View File

@ -18,7 +18,7 @@ unit ExtendedNotebook;
// Gtk, QT: MDown, Changing, Change, MMove, MUp
// Carbon: MDown, MMove, Changing, Change, MUp
{$DEFINE ExtNBookDebug}
{off $DEFINE ExtNBookDebug}
interface
@ -179,7 +179,6 @@ var
begin
{$IFDEF ExtNBookDebug}debugln(['TExtendedNotebook.MouseUp']);{$ENDIF}
MouseCapture := False;
FMouseDownIndex := -1;
InitDrag;
inherited MouseUp(Button, Shift, X, Y);
{$IFnDEF LCLWIN32}
@ -192,6 +191,7 @@ begin
PageIndex:=MouseUpTabIndex;
end;
{$ENDIF}
FMouseDownIndex := -1;
end;
procedure TExtendedNotebook.MouseMove(Shift: TShiftState; X, Y: Integer);