paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 14:20:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

ExtendedNotebook: Do not drag, if tabs have been added/changed/removed while mouse pressed

Browse Source 
git-svn-id: trunk@37306 -
This commit is contained in:
martin 2012-05-17 14:49:32 +00:00
parent 0f4d82b045
commit f5d9115598
1 changed files with 34 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/lazcontrols/extendednotebook.pas
View File

@ -74,6 +74,9 @@ type
Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure CNNotify(var Message: TLMNotify); message CN_NOTIFY;
procedure RemovePage(Index: Integer); override;
procedure InsertPage(APage: TCustomPage; Index: Integer); override;
procedure CaptureChanged; override;
procedure DoStartDrag(var DragObject: TDragObject); override;
procedure DoEndDrag(Target: TObject; X,Y: Integer); override;
procedure DragOver(Source: TObject; X, Y: Integer; State: TDragState;
@ -116,6 +119,7 @@ Begin
FMouseWaitForDrag := False;
DragCursor := crDrag;
FDragOverIndex := -1;
FDraggingTabIndex := -1;
FDragOverTabRect := Rect(0, 0, 0, 0);
FDragNextToTabRect := Rect(0, 0, 0, 0);
end;
@ -167,8 +171,8 @@ Begin
FMouseDownY := Y;
FTriggerDragX := GetSystemMetrics(SM_CXDRAG);
FTriggerDragY := GetSystemMetrics(SM_CYDRAG);
MouseCapture := True;
end;
MouseCapture := True;
end;
procedure TExtendedNotebook.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
@ -194,6 +198,12 @@ end;
procedure TExtendedNotebook.CNNotify(var Message: TLMNotify);
Begin
if (Dragging or (FDraggingTabIndex >= 0)) and
( (Message.NMHdr^.code = TCN_SELCHANGING) or
(Message.NMHdr^.code = TCN_SELCHANGE) )
then
CancelDrag
else
if Message.NMHdr^.code = TCN_SELCHANGING then Begin
if (fTabDragMode = dmAutomatic) and (not FMouseWaitForDrag) then
FMouseDownIndex := TabIndexAtClientPos(ScreenToClient(Mouse.CursorPos));
@ -202,6 +212,29 @@ Begin
inherited CNNotify(Message);
end;
procedure TExtendedNotebook.RemovePage(Index: Integer);
begin
CancelDrag;
FMouseDownIndex := -1;
FMouseWaitForDrag := False;
inherited RemovePage(Index);
end;
procedure TExtendedNotebook.InsertPage(APage: TCustomPage; Index: Integer);
begin
CancelDrag;
FMouseDownIndex := -1;
FMouseWaitForDrag := False;
inherited InsertPage(APage, Index);
end;
procedure TExtendedNotebook.CaptureChanged;
begin
FMouseDownIndex := -1;
FMouseWaitForDrag := False;
inherited CaptureChanged;
end;
procedure TExtendedNotebook.DoStartDrag(var DragObject: TDragObject);
begin
{$IFDEF ExtNBookDebug}debugln(['TExtendedNotebook.DoStartDrag FDraggingTabIndex=', FDraggingTabIndex]);{$ENDIF}