paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 05:57:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

TExtendedNotebook: remove workaround for issue #19914

Browse Source 
git-svn-id: trunk@35226 -
This commit is contained in:
martin 2012-02-07 19:26:43 +00:00
parent 31fdb216bc
commit 1829efd0bd
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazcontrols/extendednotebook.pas
View File

@ -172,25 +172,11 @@ Begin
end; end;
procedure TExtendedNotebook.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TExtendedNotebook.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
{$IFnDEF LCLWIN32}
var
MouseUpTabIndex: LongInt;
{$ENDIF}
begin begin
{$IFDEF ExtNBookDebug}debugln(['TExtendedNotebook.MouseUp']);{$ENDIF} {$IFDEF ExtNBookDebug}debugln(['TExtendedNotebook.MouseUp']);{$ENDIF}
MouseCapture := False; MouseCapture := False;
InitDrag; InitDrag;
inherited MouseUp(Button, Shift, X, Y); inherited MouseUp(Button, Shift, X, Y);
{$IFnDEF LCLWIN32}
if not FTabDragged then begin
// no drag => check for normal click and activate page
MouseUpTabIndex := TabIndexAtClientPos(Point(X,Y));
if (Button = mbLeft) and (FMouseDownIndex = MouseUpTabIndex) and
(FDraggingTabIndex >= 0)
then
PageIndex:=MouseUpTabIndex;
end;
{$ENDIF}
FMouseDownIndex := -1; FMouseDownIndex := -1;
end; end;