From 39a2abadebea16de204a4818f3d13edd8161135a Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 9 May 2009 14:19:39 +0000
Subject: [PATCH] lcl: fix compilation

git-svn-id: trunk@19884 -
---
 lcl/include/control.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 9aaa745f7c..7bcdffcfe1 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -3615,7 +3615,7 @@ begin
     if FloatHost <> nil then
     begin
       // => dock this control into it.
-      FloatHost.Caption := GetDockCaption;
+      FloatHost.Caption := FloatHost.GetDockCaption(Self);
       FloatHost.Visible := True;
       Dock(FloatHost,Rect(0, 0, FloatHost.ClientWidth, FloatHost.ClientHeight))
     end