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

Examples/fontenum: Handle cocoa in the EnumFamilyFonts function.

Browse Source
This commit is contained in:
wp_xyz 2022-06-01 22:05:20 +02:00
parent 4f3fe4bcd2
commit f6554ced9b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/fontenum/mainunit.pas
View File

@ -120,7 +120,7 @@ begin
if LStyles.IndexOf(s)<0 then begin if LStyles.IndexOf(s)<0 then begin
// encode bold (bit 0), italic (bit 1) -- see SelectFont // encode bold (bit 0), italic (bit 1) -- see SelectFont
n := 0; n := 0;
{$IFDEF LCLWin32} {$IF DEFINED(LCLWin32) or DEFINED(LCLCocoa) }
if (eLogFont.elfLogFont.lfItalic <> 0) then if (eLogFont.elfLogFont.lfItalic <> 0) then
n := n or 1; n := n or 1;
if (eLogFont.elfLogFont.lfWeight > FW_MEDIUM) then if (eLogFont.elfLogFont.lfWeight > FW_MEDIUM) then