dummzeuch hatte recht. So haben sie es auch gefixt:
Delphi-Quellcode:
// ÅжÏÊÇ·ñµÈ¿í
{$IFDEF DELPHI104_SYDNEY_UP}
FFontIsFixedWidth := EnumFontFamiliesEx(
DC, LogFont, @EnumFontsProc, 0, 0) = 1;
{$ELSE}
FFontIsFixedWidth := EnumFontFamiliesEx(
DC, LogFont, @EnumFontsProc, 0, 0) = BOOL(1);
{$ENDIF}
finally
SaveFont := SelectObject(
DC, SaveFont);
if SaveFont <> 0
then
DeleteObject(SaveFont);
DeleteDC(
DC);
end;
end;
end;
Nun sollte es funktionieren.