From 503dc10ef78ef42ef859a782ec2d4dd86cf96629 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 17 Jun 2012 05:52:14 +0000
Subject: [PATCH] Revert "LCL: Update TBoundLabel.Font when TLabeledEdit.Font
 Changes. Issue #20633

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

diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp
index 2f2b7561cd..1a6c20b512 100644
--- a/lcl/extctrls.pp
+++ b/lcl/extctrls.pp
@@ -873,7 +873,6 @@ type
     procedure CMBiDiModeChanged(var Msg: TLMessage); message CM_BIDIMODECHANGED;
     procedure CMVisibleChanged(var Msg: TLMessage); message CM_VISIBLECHANGED;
     procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
-    procedure CMFontChanged(var Message: TLMessage); message CM_FONTCHANGED;
     procedure CreateInternalLabel; virtual;
   public
     constructor Create(TheOwner: TComponent); override;
diff --git a/lcl/include/customlabelededit.inc b/lcl/include/customlabelededit.inc
index f254ff8bd1..497b6e2a11 100644
--- a/lcl/include/customlabelededit.inc
+++ b/lcl/include/customlabelededit.inc
@@ -127,12 +127,6 @@ begin
     FEditLabel.Enabled:=Enabled;
 end;
 
-procedure TCustomLabeledEdit.CMFontChanged(var Message: TLMessage);
-begin
-  FEditLabel.Font.Assign(Font);
-  Invalidate;
-end;
-
 constructor TCustomLabeledEdit.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);