mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-28 16:02:49 +02:00
dragmanager: fix typo
git-svn-id: trunk@13747 -
This commit is contained in:
parent
a2dfc721bd
commit
00d2ada452
@ -139,7 +139,7 @@ var
|
||||
begin
|
||||
inherited Create(AManager, AControl);
|
||||
|
||||
AControl.DoStartDock(FDragObject);
|
||||
AControl.DoStartDrag(FDragObject);
|
||||
if FDragObject = nil then
|
||||
begin
|
||||
FDragObjectAutoFree := true;
|
||||
|
Loading…
Reference in New Issue
Block a user