paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 23:22:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: disabled simple dock move until easydockmanager is capable of it

Browse Source 
git-svn-id: trunk@25007 -
This commit is contained in:
mattias 2010-04-27 14:16:06 +00:00
parent 45ecdbc420
commit ca3c600e37
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dragmanager.inc
View File

@ -473,9 +473,11 @@ var
DragMsg: TDragMessage;
Accepted: Boolean;
TargetPos: TPoint;
Moved: Boolean;
{$IFDEF EnableDockMove}
AControl: TControl;
P: TPoint;
Moved: Boolean;
{$ENDIF}
begin
ADockObjectCopy := FDockObject;
if FDockObject <> nil then
@ -495,6 +497,9 @@ begin
if ADockObjectCopy.Control.Floating and ADockObjectCopy.Floating then
begin
DebugLn(['TDockPerformer.DragStop SIMPLE MOVE']);
{$IFDEF EnableDockMove}
// it works on wine, gtk, qt and carbon
// just move
AControl:=ADockObjectCopy.Control;
if AControl.Parent<>nil then
@ -514,6 +519,7 @@ begin
//DebugLn(['TDockPerformer.DragStop MOVED']);
Moved:=true;
Accepted:=true;
{$ENDIF}
end;
if not Moved then begin