pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: fix style check for boldness of the default font

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4025 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-03-14 00:24:13 +00:00
parent 18e94d29b1
commit 032850517e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/richmemo/gtk2/gtk2richmemo.pas
View File

@ -1345,7 +1345,7 @@ begin
// rely on LogFont structure to be initialiazed (as it seems to be) // rely on LogFont structure to be initialiazed (as it seems to be)
if gtkobj^.LogFont.lfItalic > 0 then Include(params.Style, fsItalic); if gtkobj^.LogFont.lfItalic > 0 then Include(params.Style, fsItalic);
if gtkobj^.LogFont.lfWidth >= FW_BOLD then Include(params.Style, fsBold); if gtkobj^.LogFont.lfWeight >= FW_BOLD then Include(params.Style, fsBold);
if gtkobj^.LogFont.lfUnderline > 0 then Include(params.Style, fsUnderline); if gtkobj^.LogFont.lfUnderline > 0 then Include(params.Style, fsUnderline);
if gtkobj^.LogFont.lfStrikeOut > 0 then Include(params.Style, fsStrikeOut); if gtkobj^.LogFont.lfStrikeOut > 0 then Include(params.Style, fsStrikeOut);
end; end;