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

examples: fix compilation of docking demo

Browse Source 
git-svn-id: trunk@23120 -
This commit is contained in:
paul 2009-12-13 14:21:13 +00:00
parent e71ab596a6
commit bf0c6805aa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/dockmanager/package/easydocksite.pas
View File

@ -1134,7 +1134,7 @@ begin
Result:=nil; Result:=nil;
n := AName; n := AName;
if assigned(AppLoadStore) if assigned(AppLoadStore)
and AppLoadStore(True, False, DockSite, Result, n) then begin and AppLoadStore(True, False, FDockSite, Result, n) then begin
//all done //all done
end else end else
TWinControlAccess(DockSite).ReloadDockedControl(AName, Result); TWinControlAccess(DockSite).ReloadDockedControl(AName, Result);