paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 17:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

published TPanel.Font

Browse Source 
git-svn-id: trunk@7871 -
This commit is contained in:
mattias 2005-10-01 00:53:07 +00:00
parent 06a1976a71
commit 20f205ab1d
4 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/controls.pp
View File

@ -1677,6 +1677,7 @@ type
protected
procedure WMPaint(var Message: TLMPaint); message LM_PAINT;
procedure PaintWindow(DC: HDC); override;
procedure FontChanged(Sender: TObject); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

6
lcl/include/customcontrol.inc
View File

@ -80,6 +80,12 @@ begin
if Assigned(FOnPaint) then FOnPaint(Self);
end;
procedure TCustomControl.FontChanged(Sender: TObject);
begin
Canvas.Font:=Font;
inherited FontChanged(Sender);
end;
{------------------------------------------------------------------------------
Method: TCustomControl.LMPaint
Params: Msg: The paint message

1
lcl/include/custompanel.inc
View File

@ -110,6 +110,7 @@ begin
TS.Layout:= tlCenter;
TS.Opaque:= false;
TS.Clipping:= false;
TS.SystemFont:=Canvas.Font.IsDefault;
Canvas.TextRect(ARect,ARect.Left,ARect.Top, Caption, TS);
end;
end;

2
lcl/include/wincontrol.inc
View File

@ -1751,7 +1751,7 @@ begin
begin
TWSWinControlClass(WidgetSetClass).SetFont(Self, Font);
Exclude(FWinControlFlags,wcfFontChanged);
//NotifyControls(CM_ ...);
Invalidate;
end else
Include(FWinControlFlags,wcfFontChanged);
end;