SynPDF
SynPDF copied to clipboard
Revert the pull request 46
The change in pull request 46 seems to be invalid: https://github.com/synopse/SynPDF/pull/46
Here is the code I used to test this.
The output was: MS Sans Serif 2 Microsoft Sans Serif 2 Courier New 1 Courier 1
This means that "(ALogFont.lfPitchAndFamily and 3) = FIXED_PITCH" would evaluate for the parameter AIsFixedWidth to
MS Sans Serif 2 => False Microsoft Sans Serif 2 => False Courier New 1 => True Courier 1 => True
This is correct.
@maykon-t can you test on your computer?
// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
program TestFonts;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, Windows;
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
FontType: Integer; Data: Pointer): Integer; stdcall;
begin
WriteLn(string(LogFont.lfFaceName), ' ', LogFont.lfPitchAndFamily and 3);
Result := 1;
end;
var
DC: HDC;
F: LOGFONTW;
begin
DC := GetDC(0);
try
FillChar(F, sizeof(F), 0);
F.lfCharset := DEFAULT_CHARSET;
EnumFontFamiliesEx(DC, F, @EnumFontsProc, 0, 0);
finally
ReleaseDC(0, DC);
end;
ReadLn;
end.