paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 05:39:54 +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 // Gtk, QT: MDown, Changing, Change, MMove, MUp
// Carbon: MDown, MMove, Changing, Change, MUp // Carbon: MDown, MMove, Changing, Change, MUp
{$DEFINE ExtNBookDebug} {off $DEFINE ExtNBookDebug}
interface interface
@ -179,7 +179,6 @@ var
begin begin
{$IFDEF ExtNBookDebug}debugln(['TExtendedNotebook.MouseUp']);{$ENDIF} {$IFDEF ExtNBookDebug}debugln(['TExtendedNotebook.MouseUp']);{$ENDIF}
MouseCapture := False; MouseCapture := False;
FMouseDownIndex := -1;
InitDrag; InitDrag;
inherited MouseUp(Button, Shift, X, Y); inherited MouseUp(Button, Shift, X, Y);
{$IFnDEF LCLWIN32} {$IFnDEF LCLWIN32}
@ -192,6 +191,7 @@ begin
PageIndex:=MouseUpTabIndex; PageIndex:=MouseUpTabIndex;
end; end;
{$ENDIF} {$ENDIF}
FMouseDownIndex := -1;
end; end;
procedure TExtendedNotebook.MouseMove(Shift: TShiftState; X, Y: Integer); procedure TExtendedNotebook.MouseMove(Shift: TShiftState; X, Y: Integer);