mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 11:19:26 +02:00
examples: fix compilation of docking demo
git-svn-id: trunk@23120 -
This commit is contained in:
parent
e71ab596a6
commit
bf0c6805aa
@ -1134,7 +1134,7 @@ begin
|
||||
Result:=nil;
|
||||
n := AName;
|
||||
if assigned(AppLoadStore)
|
||||
and AppLoadStore(True, False, DockSite, Result, n) then begin
|
||||
and AppLoadStore(True, False, FDockSite, Result, n) then begin
|
||||
//all done
|
||||
end else
|
||||
TWinControlAccess(DockSite).ReloadDockedControl(AName, Result);
|
||||
|
Loading…
Reference in New Issue
Block a user