Я тут занимался немного. Осталось добавить загрузку изображений в ID2D1Bitmap
GitHubprocedure TFormMain.FormCreate(Sender: TObject);
begin
Engine := TD2EngineCore.Create(800, 600);
Engine.LoopedWorld := True;
Engine.CreateTest;
Engine.Run;
end;
procedure TFormMain.FormDestroy(Sender: TObject);
begin
Engine.Free;
end;
procedure TFormMain.FormPaint(Sender: TObject);
begin
Canvas.StretchDraw(ClientRect, Engine.Buffer);
end;
procedure TFormMain.FormResize(Sender: TObject);
begin
Canvas.StretchDraw(ClientRect, Engine.Buffer);
end;
procedure TFormMain.TimerRepaintTimer(Sender: TObject);
begin
Invalidate;
end;