paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 00:39:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix Drag/Dock when there is no Dock Sites

Browse Source 
git-svn-id: trunk@13582 -
This commit is contained in:
paul 2008-01-02 16:08:42 +00:00
parent 7bad8ae57d
commit ac274dc4c6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/dragmanager.inc
View File

@ -369,6 +369,9 @@ procedure TDockPerformer.DragMove(APosition: TPoint);
begin
Result := nil;
if Manager.FDockSites = nil then
Exit;
QualifyingSites := TList.Create;
try
for i := 0 to Manager.FDockSites.Count - 1 do
@ -639,7 +642,7 @@ begin
begin
FInDragStop := True;
try
FPerformer.DragStop(ADropped);
Self FPerformer.DragStop(ADropped);
finally
FreeAndNil(FPerformer);
FInDragStop := False;