mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-06 04:45:54 +02:00
SourceEditor: Improved dragging tabs (visual) (fixed)
git-svn-id: trunk@24253 -
This commit is contained in:
parent
6c6bdd4c89
commit
b467cb0938
@ -6790,8 +6790,6 @@ begin
|
|||||||
tmp := FDragNextToTabRect;
|
tmp := FDragNextToTabRect;
|
||||||
InvalidateRect(Handle, @tmp, false);
|
InvalidateRect(Handle, @tmp, false);
|
||||||
FDragOverIndex := -1;
|
FDragOverIndex := -1;
|
||||||
Accept := False;
|
|
||||||
exit;
|
|
||||||
end;
|
end;
|
||||||
// currently limited to source=self => extendable to allow dragging tabs from other notebooks
|
// currently limited to source=self => extendable to allow dragging tabs from other notebooks
|
||||||
if (Source is TSourceDragableNotebook) and
|
if (Source is TSourceDragableNotebook) and
|
||||||
|
Loading…
Reference in New Issue
Block a user