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

easydockmgr: fixed eating exceptions

Browse Source 
git-svn-id: trunk@24766 -
This commit is contained in:
mattias 2010-04-20 22:48:36 +00:00
parent 6591940026
commit 2c1ce4bb6d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/dockmanager/package/umakesite.pas
View File

@ -260,6 +260,7 @@ var
r: TRect;
Site: TFloatingSite absolute Result;
Res: TWinControlAccess absolute AForm;
ok: Boolean;
begin
Result := nil;
AForm.DisableAlign;
@ -282,11 +283,14 @@ begin
img := TImage.Create(AForm); //we could own the img, and be notified when its parent becomes nil
img.Align := alNone;
//if ForIDE then
ok:=false;
try //begin //prevent problems with the following code!
img.AnchorParallel(akRight,0,Result); //anchor to Result=Site or to AForm?
img.AnchorParallel(akTop,0,Result);
except
DebugLn('error AnchorParallel');
ok:=true;
finally
if not ok then
DebugLn('error AnchorParallel');
end;
img.Anchors:=[akRight,akTop];
img.Cursor := crHandPoint;
@ -808,6 +812,7 @@ begin
DebugLn('error WrapDockable: ' + Client.Name);
if Client.HostDockSite <> Site then
Site.Release;
raise;
end;
//retry make client auto-dockable
ctl.DragKind := dkDock;