Answer the question
In order to leave comments, you need to log in
Answer the question
In order to leave comments, you need to log in
I did a little here. It remains to add image upload to ID2D1Bitmap
GitHub
procedure 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;
Didn't find what you were looking for?
Ask your questionAsk a Question
731 491 924 answers to any question