刺客引擎分割代码

1. procedure TFrmDlg.DBTMiddleFrameDirectPaint(Sender: TObject; dsurface: TDXTexture);
   
2. var
   
3.   d: TDXTexture;
   
4.   ax, ay: integer;
   
5.   rc: TRect;
   
6. begin
   
7.   with Sender as TDWindow do begin
   
8.     ax := SurfaceX(Left);
   
9.     ay := SurfaceY(Top);
   
10. 
    
11.     d := g_WMain99Images.Images[1616];   //左竖
    
12.     if d <> nil then begin
    
13.       rc := d.ClientRect;
    
14.       rc.Bottom := Height - 20;
    
15.       dsurface.Draw(ax, ay + 10, rc, d, True);
    
16.     end;
    
17. 
    
18.     d := g_WMain99Images.Images[1618];  //右竖
    
19.     if d <> nil then begin
    
20.       rc := d.ClientRect;      //重绘
    
21.       rc.Bottom := Height - 20;
    
22.       dsurface.Draw(ax + (Width - d.Width) + 2, ay + 10 , rc, d, True);
    
23.     end;
    
24. 
    
25.     d := g_WMain99Images.Images[1611];   //上杠
    
26.     if d <> nil then begin
    
27.       rc := d.ClientRect;
    
28.       rc.Right := Width - 20;
    
29.       dsurface.Draw(ax + 10, ay + 1, rc, d, True);
    
30.     end;
    
31.    
    
32.     d := g_WMain99Images.Images[1614];   //下杠
    
33.     if d <> nil then begin
    
34.       rc := d.ClientRect;
    
35.       rc.Right := Width - 20;
    
36.       dsurface.Draw(ax + 10, ay + (Height - d.Height), rc, d, True);
    
37.     end;
    
38. 
    
39.     d := g_WMain99Images.Images[1610];   //左上角
    
40.     if d <> nil then begin
    
41.       dsurface.Draw(ax, ay + 1, d.ClientRect, d, True);
    
42.     end;
    
43. 
    
44.     d := g_WMain99Images.Images[1612];   //右上角
    
45.     if d <> nil then begin
    
46.       dsurface.Draw(ax + (Width - d.Width) + 2, ay + 1, d.ClientRect, d, True);
    
47.     end;
    
48. 
    
49.     d := g_WMain99Images.Images[1613];   //左下角
    
50.     if d <> nil then begin
    
51.       dsurface.Draw(ax, ay + (Height - d.Height), d.ClientRect, d, True);
    
52. 
    
53.     end;
    
54. 
    
55.     d := g_WMain99Images.Images[1615];   //右下角
    
56.     if d <> nil then begin
    
57.       dsurface.Draw(ax + (Width - d.Width) + 4, ay + (Height - d.Height) + 1, d.ClientRect, d, True);
    
58.     end;
    
59. 
    
60. 
    
61.     //画背景
    
62.     g_DXCanvas.FillRect(ax + 8, ay + 32, Width - 30, Height - 32 - 31, $FFFFFFFF);
    
63.   end;
    
64. end;
    

复制代码

抱歉！您尚未登录，无法查看回复内容！点击此处登录本站