paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 23:07:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix GetFontData logfont boolean flag check for non-zero value

Browse Source 
git-svn-id: trunk@48284 -
This commit is contained in:
dmitry 2015-03-12 04:27:03 +00:00
parent 192eb7981a
commit bbf31c34b7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/font.inc
View File

@ -145,11 +145,11 @@ begin
Height := lfHeight;
if lfWeight >= FW_BOLD then
Include(Style, fsBold);
if lfItalic = 1 then
if lfItalic > 0 then
Include(Style, fsItalic);
if lfUnderline = 1 then
if lfUnderline > 0 then
Include(Style, fsUnderline);
if lfStrikeOut = 1 then
if lfStrikeOut > 0 then
Include(Style, fsStrikeOut);
Charset := TFontCharset(lfCharSet);
Name := lfFaceName;