Samples_FPC / Direct2D / WICAnimatedGIF

[PeterOnDrums]

unit AppUnitp.as does not compile

lazarus 2.0.12 complains
AppUnit.pas(418,101) Error: Incompatible type for arg no. 1: Got "TD2D_SIZE_F", expected "PD2D1_SIZE_F"

code changes :

(starting from line 376)
var
...
...
T : TD2D1_SIZE_F; // added 2021-04-22
begin
...
...
T:= DX12.D2D1.SizeF(m_cxGifImage, m_cyGifImage);
Result := m_pHwndRT.CreateCompatibleRenderTarget( @t, nil, nil,