Это готовый способ или просто твоя реализация?
procedure TD2EngineCore.Paint; var Cnv: TDirect2DCanvas; begin Cnv := TDirect2DCanvas.Create(Canvas, Rect(0, 0, Width, Height)); with Cnv do begin BeginDraw; try // рисуем через D2D finally EndDraw; Free; end; end; end;
Стикер
Стикер
DX.
Обсуждают сегодня