From e66ffe4ea22a09d14607d39279e0b845a7d157e8 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 14 Sep 2011 21:23:23 +0000
Subject: [PATCH] =?UTF-8?q?LCL:=20Make=20the=20label=20in=20LabeledEdit=20?=
 =?UTF-8?q?move=20together=20with=20its=20owner=20after=20copying.=20Issue?=
 =?UTF-8?q?=20#19067,=20patch=20from=20=09Fl=C3=A1vio=20Etrusco?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: trunk@32338 -
---
 lcl/extctrls.pp                   | 1 +
 lcl/include/customlabelededit.inc | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp
index 0c85c5c927..96eafa9026 100644
--- a/lcl/extctrls.pp
+++ b/lcl/extctrls.pp
@@ -855,6 +855,7 @@ type
     class procedure WSRegisterClass; override;
     procedure SetParent(AParent: TWinControl); override;
     procedure SetName(const Value: TComponentName); override;
+    procedure Loaded; override;
     procedure DoPositionLabel; virtual;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure CMVisibleChanged(var Msg: TLMessage); message CM_VISIBLECHANGED;
diff --git a/lcl/include/customlabelededit.inc b/lcl/include/customlabelededit.inc
index d21d375ac6..1447594c10 100644
--- a/lcl/include/customlabelededit.inc
+++ b/lcl/include/customlabelededit.inc
@@ -59,6 +59,12 @@ begin
     Text := '';
 end;
 
+procedure TCustomLabeledEdit.Loaded;
+begin
+  inherited Loaded;
+  DoPositionLabel;
+end;
+
 procedure TCustomLabeledEdit.DoPositionLabel;
 begin
   if FEditLabel = nil then exit;