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

examples: fix compilation of easy docking example under fpc 2.3.1

Browse Source 
git-svn-id: trunk@19904 -
This commit is contained in:
paul 2009-05-10 08:04:45 +00:00
parent 298c34c425
commit 3e9540292e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/dockmanager/easydocksite.pas
View File

@ -505,6 +505,7 @@ var
var var
ZoneExtent: TPoint; ZoneExtent: TPoint;
Acceptable: boolean; Acceptable: boolean;
ADockRect: TRect;
begin begin
(* New DockManager interface, called instead of the old version. (* New DockManager interface, called instead of the old version.
Determine exact target (zone) and DropAlign. Determine exact target (zone) and DropAlign.
@ -542,7 +543,10 @@ begin
end; end;
//position DockRect //position DockRect
if Acceptable then if Acceptable then
PositionDockRect(Control, DropOnControl, DropAlign, DockRect); begin
PositionDockRect(Control, DropOnControl, DropAlign, ADockRect);
DockRect := ADockRect;
end;
end; end;
end; end;