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

Revert "LCL: Update TBoundLabel.Font when TLabeledEdit.Font Changes. Issue #20633

Browse Source 
git-svn-id: trunk@37669 -
This commit is contained in:
juha 2012-06-17 05:52:14 +00:00
parent 2bd0f8edfe
commit 503dc10ef7
2 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/extctrls.pp
View File

@ -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;

6
lcl/include/customlabelededit.inc
View File

@ -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);