CMCHTPC / DelphiDX12

DirectX 12 Headers for Delphi and FPC
92 stars 35 forks source link

Samples_FPC / Direct2D / WICAnimatedGIF #21

Open PeterOnDrums opened 3 years ago

PeterOnDrums commented 3 years ago

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,