paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 23:59:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: disabled simple dock move code, something is undocking

Browse Source 
git-svn-id: trunk@25001 -
This commit is contained in:
mattias 2010-04-27 10:41:47 +00:00
parent 2dc88b3c07
commit c0ba48b490
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/dockmanager/elasticsite/MakeSite.lpi
View File

@ -62,7 +62,11 @@
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
<LCLWidgetType Value="win32"/>
</SearchPaths>
<CodeGeneration>
<TargetOS Value="win32"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>

2
examples/dockmanager/elasticsite/fmastersite.pas
View File

@ -78,9 +78,7 @@ begin
//f.Visible := True; //???
if f.HostDockSite <> nil then
f := f.HostDockSite;
DebugLn(['TMasterSite.FormCreate AAA1']);
f.Top := 300;
DebugLn(['TMasterSite.FormCreate AAA2']);
f.Show;
DebugLn('Clients: %d', [f.ControlCount]);
{$IFDEF TestUnwrapped}

6
lcl/include/dragmanager.inc
View File

@ -491,8 +491,8 @@ begin
if ADropped then
begin
//DebugLn(['TDockPerformer.DragStop Dropped ',ADockObjectCopy.Control.Floating,' ',ADockObjectCopy.Floating,' ',DbgSName(ADockObjectCopy.Control)]);
if ADockObjectCopy.Control.Floating and ADockObjectCopy.Floating then
DebugLn(['TDockPerformer.DragStop Dropped ',ADockObjectCopy.Control.Floating,' ',ADockObjectCopy.Floating,' ',DbgSName(ADockObjectCopy.Control)]);
{if ADockObjectCopy.Control.Floating and ADockObjectCopy.Floating then
begin
// just move
AControl:=ADockObjectCopy.Control;
@ -513,7 +513,7 @@ begin
//DebugLn(['TDockPerformer.DragStop MOVED']);
Moved:=true;
Accepted:=true;
end;
end;}
if ADockObjectCopy.Control.HostDockSite <> nil then
Accepted := ADockObjectCopy.Control.HostDockSite.DoUnDock(TWinControl(ADockObjectCopy.DragTarget), ADockObjectCopy.Control)