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

LCL: Missed assigning of default font value Style.

Browse Source 
git-svn-id: trunk@55755 -
This commit is contained in:
michl 2017-08-28 16:10:22 +00:00
parent 8dd9ef126a
commit bc45df2766
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/font.inc
View File

@ -624,6 +624,7 @@ begin
FCharSet := DefFontData.CharSet;
FQuality := DefFontData.Quality;
FHeight := DefFontData.Height;
FStyle := DefFontData.Style;
inherited SetSize(-MulDiv(FHeight, 72, FPixelsPerInch));
DelayAllocate := True;
inherited SetName(DefFontData.Name);