64-bit issue in ovcfxfnt

[Lasibian]

There is a 64-bit issue in ovcfxfnt.pas:

RefreshFixedFontNames casts a TStringlist into an Integer. This needs to be changed to a NativeInt to avoid an access violation in 64-bit.

procedure RefreshFixedFontNames;
  var
    DC : HDC;
  begin
    FixedFontNames.Clear;
    DC := GetDC(0);
    try
      EnumFontFamilies(DC, nil, @EnumFixedFontsProc, integer(FixedFontNames)); // <-- must be NativeInt
    finally
      ReleaseDC(0, DC);
    end;
  end;

[romankassebaum]

Fixed.