小编Yur*_*gen的帖子

渲染我的画布时遇到了一些麻烦.实际上我正试图像空间入侵者一样编写游戏,而不使用任何OpenGL或DirectX.所以在背景中我有移动的天空,并且喷射在它上面移动.但喷气机是致盲的,天空不均匀.这是我的代码

  sky := TBitmap.Create;
  sky.LoadFromFile('sky.bmp');
  jet := TBitmap.Create;
  jet.LoadFromFile('jet.bmp');
  jet.Transparent := True;

  while True do
  begin
       for k := 0 to sky.Height do
       begin
          for i := -1 to (pbMain.Height div sky.Height) do
          begin
                for j := 0 to (pbMain.Width div sky.Width) do
                begin
                    pbMain.Canvas.Draw(nx, ny, jet);
                    pbMain.Canvas.Draw(j*sky.Width, k + i*sky.Height, sky);
                end;
                Application.ProcessMessages;
          end;
          Sleep(1);
       end;
  end;

谢谢.