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

dockmanager example: try floating into new floating site (forced)

Browse Source 
git-svn-id: trunk@22543 -
This commit is contained in:
dodi 2009-11-12 07:26:30 +00:00
parent 820b0bf38d
commit 6b0be3249d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/dockmanager/package/ffloatingsite.pas
View File

@ -82,8 +82,9 @@ When a second control is dragged away, the entire site is moved.
*)
if DockClientCount <= 1 then begin
if NewTarget = nil then begin
Allow := False; //deny
//Allow := True; //move form - where???
//Allow := False; //deny
Allow := True; //move form - where???
Release;
end else
Release;
end else begin