paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 01:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Update TBoundLabel.Font when TLabeledEdit.Font Changes. Issue #20633, patch from Avishai

Browse Source 
git-svn-id: trunk@37662 -
This commit is contained in:
juha 2012-06-15 23:03:44 +00:00
parent 3b50e92d50
commit e0554a6021
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/extctrls.pp
View File

@ -873,6 +873,7 @@ type
procedure CMBiDiModeChanged(var Msg: TLMessage); message CM_BIDIMODECHANGED; procedure CMBiDiModeChanged(var Msg: TLMessage); message CM_BIDIMODECHANGED;
procedure CMVisibleChanged(var Msg: TLMessage); message CM_VISIBLECHANGED; procedure CMVisibleChanged(var Msg: TLMessage); message CM_VISIBLECHANGED;
procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED; procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
procedure CMFontChanged(var Message: TLMessage); message CM_FONTCHANGED;
procedure CreateInternalLabel; virtual; procedure CreateInternalLabel; virtual;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;

6
lcl/include/customlabelededit.inc
View File

@ -127,6 +127,12 @@ begin
FEditLabel.Enabled:=Enabled; FEditLabel.Enabled:=Enabled;
end; end;
procedure TCustomLabeledEdit.CMFontChanged(var Message: TLMessage);
begin
FEditLabel.Font.Assign(Font);
Invalidate;
end;
constructor TCustomLabeledEdit.Create(TheOwner: TComponent); constructor TCustomLabeledEdit.Create(TheOwner: TComponent);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);