Einzelnen Beitrag anzeigen

EdAdvokat

Registriert seit: 1. Mai 2016
Ort: Berlin
415 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#14

AW: cnvcl-Komponenten mit Fehlermeldung für Delphi 10.4

  Alt 25. Jul 2021, 08:55
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.
Norbert
  Mit Zitat antworten Zitat