Commit e6753799 authored by Bart B's avatar Bart B 🐞
Browse files

Win32 and CustomDrawn: fix compilation with fpc trunk after r39480 #e67589ea. Issue #34022.

git-svn-id: trunk@58639 -
parent 98304b26
......@@ -1300,8 +1300,13 @@ begin
Rec.LParam := LParam;
Rec.CallBack := CallBack;
LFW.lfFaceName := UTF8ToUTF16(FontName);
{$if fpc_fullversion < 30101}
Result := LongInt(Windows.EnumFontFamiliesExW(DC,
LFW, windows.FontEnumExProc(@EnumExProcRedirW), Windows.LParam(@Rec), Flags));
{$else}
Result := LongInt(Windows.EnumFontFamiliesExW(DC,
LFW, windows.FontEnumExProcW(@EnumExProcRedirW), Windows.LParam(@Rec), Flags));
{$ifend}
end;
(*{------------------------------------------------------------------------------
......
......@@ -1310,8 +1310,13 @@ begin
Rec.LParam := LParam;
Rec.CallBack := CallBack;
LFW.lfFaceName := UTF8ToUTF16(FontName);
{$if fpc_fullversion < 30101}
Result := LongInt(Windows.EnumFontFamiliesExW(DC,
LFW, windows.FontEnumExProc(@EnumExProcRedirW), Windows.LParam(@Rec), Flags));
{$else}
Result := LongInt(Windows.EnumFontFamiliesExW(DC,
LFW, windows.FontEnumExProcW(@EnumExProcRedirW), Windows.LParam(@Rec), Flags));
{$ifend}
end;
{------------------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment