[传奇技术]hge 要写个限制box的代码

源码资源网

[传奇技术]hge 要写个限制box的代码
就是内挂跑出窗口外面的那段代码

1. FBackSurface := TDirectDrawSurface.Create;
   
2. try
   
3. //    FBackSurface.SystemMemory := True;
   
4.     FBackSurface.Size := Point(GWidth, GHeight);
   
5.     nWidth := SurfaceX(GLeft) + GWidth;
   
6.     nHeight := SurfaceY(GTop) + GHeight;
   
7. 
   
8.     if (nWidth <> FBackSurface.Width) or (nHeight <> FBackSurface.Height) then begin
   
9.       FBackSurface.Size := Point(nWidth, nHeight);
   
10. //    end else begin
    
11. //      FBackSurface.Fill(0);
    
12.     end;

复制代码